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##################################################################### 
### FILE: ADSP.p 
##################################################################### 



Created: Sunday, September 15, 1991 at 9:36 PM 
ADSP.p 
Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 1986-1991 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 

{$ENDC} 

{$IFC NOT Usinglncludes} 

UNIT ADSP; 

INTERFACE 
{$ENDC) 

{$IFC UNDEFINED UsingADSP} 
{$SETC UsingADSP := 1} 

{$!+) 

{$SETC ADSPIncludes := Usinglncludes) 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingAppleTalk ) 

{$1 $$ Shell (PInterfaces) AppleTalk.p) 

{$ENDC) 

{$SETC Usinglncludes := ADSPIncludes) 

CONST 

{ driver control ioResults ) 
errRefNum = -1280; 
errAborted = -127 9; 
errState = -1278; 
errOpening — -1277; 
errAttention ^ -1276; 
errFwdReset = -1275; 
errDSPQueueSize = -1274; 
errOpenDenied ^ -1273; 

{driver control csCodes) 
dsplnit = 255; 
dspRemove - 2 54; 
dspOpen — 253; 
dspClose - 252; 
dspCLInit = 251; 
dspCLRemove — 250; 
dspCLListen = 249; 
dspCLDenv = 248; 



bad connection refNura ) 

control call was aborted ) 

bad connection state for this operation } 

open connection request failed } 

attention message too long } 

read terminated by forward reset ) 

DSP Read/Write Queue Too small } 

open connection request was denied } 



create a new connection end } 

remove a connection end } 

open a connection } 

close a connection } 

create a connection listener ) 

remove a connection listener ) 

post a listener request } 

deny an open connection request } 
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000057 


dspStatus = 247; 




{ get status of connection end } 




000058 


dspRead = 24 6; 




{ read data from the connection ) 




000059 


dspWrite = 245; 




{ write data on the connection } 




000060 


dspAttention = 244; 




{ send an attention message } 




000061 


dspOptions = 243; 




{ set connection end options } 




000062 


dspReset = 242; 




{ forward reset the connection } 




000063 


dspNewCID = 241; 




{ generate a cid for a connection end } 




000064 










000065 


{ connection opening modes } 








000066 


ocRequest ^ 1; 




{ request a connection with remote ) 




000067 


ocPassive ^ 2; 




{ wait for a connection request from remote } 




000068 


ocAccept = 3; 




{ accept request as delivered by listener } 




000069 


ocEstabllsh = 4; 




{ consider connection to be open } 




000070 










000071 


{ connection end states } 








000072 


sListening = 1; 




{ for connection listeners ) 




000073 


sPassive = 2; 




{ waiting for a connection request from remote } 




000074 


sOpening ^ 3; 




{ requesting a connection with remote } 




000075 


sOpen ^ 4; 




{ connection is open } 




000076 


sClosing ^ 5; 




{ connection is being torn down } 




000077 


sClosed ^ 6; 




{ connection end state is closed } 




000078 










000079 


{ client event flags } 








000080 


eClosed = $80; 




{ received connection closed advice } 




000081 


eTearDown = $40; 




{ connection closed due to broken connection } 




000082 


eAttention = $20; 




{ received attention message } 




000083 


eFwdReset = $10; 




{ received forward reset advice } 




000084 










000085 


{ miscellaneous constants } 








000086 


attnBufSize = 570; 




{ size of client attention buffer ) 




000087 


minDSPQueueSize = 100; 




{ Minimum size of receive or send Queue } 




000088 










000089 


TYPE 








000090 


{ connection control block } 








000091 


TPCCB = ^TRCCB; 








000092 


TRCCB = PACKED RECORD 








000093 


ccbLink: TPCCB; 




{ link to next cob } 




000094 


refNum: INTEGER; 




{ user reference number } 




000095 


state: INTEGER; 




{ state of the connection end } 




000096 


userFlags: Byte; 




{ flags for unsolicited connection events } 




000097 


iocalSocket: Byte; 




{ socket number of this connection end } 




000098 


remoteAddress : AddrBlock; 




{ internet address of remote end } 




000099 


attnCode: INTEGER; 




{ attention code received } 




000100 


attnSize: INTEGER; 




{ size of received attention data } 




000101 


attnPtr: Ptr; 




{ ptr to received attention data } 




000102 


reserved: PACKED ARRAY [1..220] 


OF Byte; 


{ adsp internal use ) 




000103 


END; 








000104 










000105 


{ ADSP CntrlParam ioQElement , d 


river cont 


rol call parameter block} 




000106 


DSPPBPtr = ^DSPParamBlock; 








000107 


DSPParamBiock = PACKED RECORD 








000108 


qLink: QElemPtr; 








000109 


qType: INTEGER; 








000110 


ioTrap: INTEGER; 








000111 


ioCmdAddr: Ptr; 








000112 


ioCompletion : ProcPtr; 
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000113 


loResult: OSErr; 






000114 


loNamePtr: StringPtr; 






000115 


loVRefNum: INTEGER; 






000116 


loCRefNum: INTEGER; 


{ adsp driver refNum } 




000117 


csCode: INTEGER; 


{ adsp driver control code } 




000118 


qStatus: LONGINT; 


{ adsp internal use ) 




000119 


ccbRefNum: INTEGER; 


{ refnum of cob ) 




000120 


CASE INTEGER OF 






000121 


dsplnit, dspCLInit : 






000122 


(ccbPtr: TPCCB; 


{pointer to connection control block} 




000123 


userRoutine: ProcPtr; 


{client routine to call on event) 




000124 


sendQSize: INTEGER; 


{size of send queue (0..64K bytes)} 




000125 


sendQueue: Ptr; 


{client passed send queue buffer) 




000126 


recvQSize: INTEGER; 


{size of receive queue (0..64K bytes)} 




000127 


recvQueue : Ptr; 


{client passed receive queue buffer) 




000128 


attnPtr: Ptr; 


{client passed receive attention buffer) 




000129 


localSocket: Byte; 


{local socket number) 




000130 


fillerl: Byte; 


{filler for proper byte alignment) 




000131 


) ; 






000132 


dspOpen, dspCLListen,dspCLDeny; 






000133 


(localCID: INTEGER; 


{local connection id) 




000134 


remoteCID: INTEGER; 


{remote connection id) 




000135 


reraoteAddress ; AddrBlock; 


{address of remote end} 




000136 


f ilterAddress : AddrBlock; 


{address filter) 




000137 


sendSeq: LONGINT; 


{local send sequence number) 




000138 


sendWlndow: INTEGER; 


{send window size) 




000139 


recvSeq: LONGINT; 


{receive sequence number) 




000140 


attnSendSeq: LONGINT; 


{attention send sequence number) 




000141 


attnRecvSeq: LONGINT; 


{attention receive sequence number) 




000142 


ocMode: Byte; 


{open connection mode) 




000143 


oclnterval: Byte; 


{open connection request retry interval) 




000144 


ocMaxiraum; Byte; 


{open connection request retry maximum) 




000145 


filler2: Byte; 


{filler for proper byte alignment) 




000146 


); 






000147 


dspClose, dspRemove : 






000148 


(abort: Byte; 


{abort connection immediately if non-zero) 




000149 


filler3: Byte; 


{filler for proper byte alignment) 




000150 


); 






000151 


dspStatus : 






000152 


(statusCCB: TPCCB; 


{pointer to cob) 




000153 


sendQPending: INTEGER; 


{pending bytes in send queue) 




000154 


sendQFree: INTEGER; 


{available buffer space in send queue) 




000155 


recvQPending: INTEGER; 


{pending bytes in receive queue) 




000156 


recvQFree: INTEGER; 


{available buffer space in receive queue) 




000157 


) ; 






000158 


dspRead, dspWrite : 






000159 


(reqCount: INTEGER; 


{requested number of bytes} 




000160 


actCount: INTEGER; 


{actual number of bytes) 




000161 


dataPtr: Ptr; 


{pointer to data buffer) 




000162 


eom: Byte; 


{indicates logical end of message) 




000163 


flush: Byte; 


{send data now) 




000164 


) ; 






000165 


dspAttention : 






000166 


(attnCode: INTEGER; 


{client attention code) 




000167 


attnSize: INTEGER; 


{size of attention data) 




000168 


attnData: Ptr; 


{pointer to attention data) 
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000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 
000178 
000179 
000180 
000181 
000182 
000183 
000184 
000185 
000186 
000187 
000188 
000189 
000190 
000191 
000192 
000193 
000194 



attnlnterval : Byte; 
flller4: Byte; 

); 

dspOptions : 
(sendBlocking: INTEGER; 

sendTimer: Byte; 

rtmtTimer: Byte; 

badSeqMax: Byte; 

useCheckSum: Byte; 
); 
dspNewCID : 

(newCID: INTEGER; 



{$ENDC) { UsingADSP ) 

{$IFC NOT Uslnglncludes) 

END. 
{$ENDC} 



### END OF FILE ADSP.p 



{retransmit timer in 10-tick intervals} 
{filler for proper byte alignment} 



{quantum for data packets} 
{send timer in 10-tick intervals} 
{retransmit timer in 10-tick intervals} 
{threshold for sending retransmit advice} 
{use ddp packet checksum} 



{new connection id returned) 



' N 
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000195 

000196 ##################################################################### 

000197 ### FILE: AIFF.p 

000198 ##################################################################### 
000199 

000200 

000201 { 

000202 Created: Monday, December 2, 1991 at 5:01 PM 

000203 AIFF.p 

000204 Pascal Interface to the Macintosh Libraries 
000205 

000206 Copyright Apple Computer, Inc. 1990-1991 

000207 All rights reserved 

000208 ) 
000209 
000210 

000211 {$IFC UNDEFINED Usinglncludes } 

000212 {$SETC Usinglncludes := 0} 

000213 {$ENDC) 
000214 

000215 {$IFC NOT Usinglncludes) 

000216 UNIT AIFF; 

000217 INTERFACE 

000218 {$ENDC} 
000219 

000220 {$IFC UNDEFINED UsingAIFF} 

000221 {$SETC UsingAIFF := 1} 
000222 

000223 {$1+) 

000224 {$SETC AIFFIncludes := Usinglncludes) 

000225 {$SETC Usinglncludes := 1} 

000226 {$IFC UNDEFINED UsingTypes} 

000227 {$1 5$Shell (PInterfaces) Types. p) 

000228 {$ENDC} 

000229 {$SETC Usinglncludes := AIFFIncludes) 
000230 

000231 CONST 

000232 AIFFID = 'AIFF'; 

000233 AIFCID = 'AIFC; 

000234 FormatVersionID = 'EVER'; 

000235 CommonID = 'COMM'; 

000236 FORMID = 'FORM'; 

000237 SoundDatalD = ' SSND ' ; 

000238 MarkerlD = 'MARK'; 

000239 InstrumentID = 'INST'; 

000240 MIDIDatalD = 'MIDI'; 

000241 AudioRecordingID = 'AESD'; 

000242 ApplicationSpecificID = 'APPL'; 

000243 CommentID = ' COMT ' ; 

000244 NamelD = 'NAME'; 

000245 AuthorlD = 'AUTH'; 

000246 CopyrightID = '(c) '; 

000247 AnnotationID = 'ANNO'; 

000248 NoLooping = 0; 

000249 ForwardLooping = 1; 
.000250 ForwardBackwardLoopinq = 2; 



' N 
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000251 

000252 { AIFF-C Versions ) 

000253 AIFCVerslonl = $A2805140; 
000254 

000255 { Compression Names } 

000256 NoneNarae ^ 'not compressed'; 

000257 ACE2tolName = 'ACE 2-to-l ' ; 

000258 ACE8to3Name = 'ACE 8-to-3 ' ; 

000259 MACE3tolName = 'MACE 3-to-l ' 

000260 MACE6tolName ='MACE 6-to-l ' ; 
000261 

000262 { Compression Types ) 

000263 NoneType = 'NONE' 

000264 ACE2Type = 'ACE2' 

000265 ACE8Type = 'ACE8' 

000266 MACE3Type = 'MAC3'; 

000267 MACE6Type = 'IyIAC6'; 
000268 

000269 TYPE 

000270 ID = LONGINT; 

000271 MarkerldType = INTEGER; 
000272 

000273 ChunkHeader = RECORD 

000274 ckID: ID; 

000275 ckSize: LONGINT; 

000276 END; 
000277 

000278 ContalnerChunk = RECORD 

000279 ckID: ID; 

000280 ckSize: LONGINT; 

000281 formType: ID; 

000282 END; 
000283 

000284 FormatVerslonChunkPtr = ^FormatVersionChunk; 

000285 FormatVerslonChunk = RECORD 

000286 ckID: ID; 

000287 ckSlze: LONGINT; 

000288 tlmestamp: LONGINT; 

000289 END; 
000290 

000291 CommonChunkPtr = -^CommonChunk; 

000292 CommonChunk = RECORD 

000293 ckID: ID; 

000294 ckSize: LONGINT; 

000295 numChannels: INTEGER; 

000296 numSampleFrames: LONGINT; 

000297 sampleSlze: INTEGER; 

000298 sampleRate: Extended80; 

000299 END; 
000300 

000301 ExtCommonChunkPtr = ^ExtCommonChunk; 

000302 ExtCommonChunk = RECORD 

000303 ckID: ID; 

000304 ckSize: LONGINT; 

000305 numChannels: INTEGER; 
.000306 numSampleFrames: LONGINT; 



' N 
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000307 sampleSize: INTEGER; 

000308 sampleRate: ExtendedSO; 

000309 compressionType : ID; 

000310 compressionName: PACKED ARRAY [0..0] OF Byte; 

000311 END; 
000312 

000313 SoundDataChunkPtr = ^SoundDataChunk; 

000314 SoundDataChunk = RECORD 

000315 ckID: ID; 

000316 ckSize: LONGINT; 

000317 offset: LONGINT; 

000318 blockSize: LONGINT; 

000319 END; 
000320 

000321 Marker = RECORD 

000322 id: MarkerldType; 

000323 position: LONGINT; 

000324 markerName: Str255; 

000325 END; 
000326 

000327 MarkerChunkPtr = -^MarkerChunk; 

000328 MarkerChunk = RECORD 

000329 ckID: ID; 

000330 ckSize: LONGINT; 

000331 numMarkers: INTEGER; 

000332 Markers: ARRAY [0..0] OF Marker; 

000333 END; 
000334 

000335 AIFFLoop = RECORD 

000336 playMode: INTEGER; 

000337 beginLoop: MarkerldType; 

000338 endLoop: MarkerldType; 

000339 END; 
000340 

000341 InstruraentChunkPtr — "^ InstrumentChunk; 

000342 InstrumentChunk = PACKED RECORD 

000343 ckID: ID; 

000344 ckSize: LONGINT; 

000345 baseFrequency : Byte; 

000346 detune: Byte; 

000347 iowFrequency : Byte; 

000348 highFrequency : Byte; 

000349 iowVelocity: Byte; 

000350 highVelocity: Byte; 

000351 gain: INTEGER; 

000352 sustainLoop: AIFFLoop; 

000353 releaseLoop: AIFFLoop; 

000354 END; 
000355 

000356 MIDIDataChunkPtr = ^MIDIDataChunk; 

000357 MIDIDataChunk = RECORD 

000358 ckID: ID; 

000359 ckSize: LONGINT; 

000360 MIDIdata: PACKED ARRAY [0..0] OF SignedByte; 
00 03 61 END; 

000362 
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000363 AudioRecordingChunkPtr ^ "^AudioRecordingChunk; 

000364 AudioRecordingChunk = RECORD 

000365 ckID: ID; 

000366 ckSize: LONGINT; 

000367 AESChannelStatus: PACKED ARRAY [0..23] OF SlgnedByte; 

000368 END; 
000369 

000370 ApplicationSpecif icChunkPtr ^ ^ApplicationSpecif icChunk; 

000371 AppllcatlonSpeciflcChunk = RECORD 

000372 ckID: ID; 

000373 ckSize: LONGINT; 

000374 applicationSignature ; OSType; 

000375 data: PACKED ARRAY [0..0] OF Byte; 
00037 6 END; 

000377 

00037 8 Comment = RECORD 

00037 9 timeStamp: LONGINT; 

000380 marker: MarkerldType; 

000381 count: INTEGER; 

000382 text: PACKED ARRAY [0..0] OF Byte; 

000383 END; 
000384 

000385 CommentsChunkPtr ^ ^CommentsChunk; 

000386 CommentsChunk = RECORD 

000387 ckID: ID; 

000388 CkSize: LONGINT; 

000389 numComments: INTEGER; 

000390 comments: ARRAY [0..0] OF Comment; 
0003 91 END; 

000392 

000393 TextChunkPtr = ^TextChunk; 

000394 TextChunk = RECORD 

000395 ckID: ID; 

000396 ckSize: LONGINT; 

000397 text: PACKED ARRAY [0..0] OF Byte; 

000398 END; 
000399 
000400 
000401 

000402 {$ENDC) { UslngAIFF ) 
000403 

000404 {$IFC NOT Uslnglncludes) 

000405 END. 

000406 {$ENDC} 
000407 

000408 

000409 ### END OF FILE AIFF.p 

000410 
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000411 

000412 ##################################################################### 

000413 ### FILE: Aliases. p 

000414 ##################################################################### 
000415 

000416 { 

000417 Created: Monday, January 28, 1991 at 1:26 PM 

000418 Aliases. p 

000419 Pascal Interface to the Macintosh Libraries 
000420 

000421 Copyright Apple Computer, Inc. 1989-1990 

000422 All rights reserved 

000423 ) 
000424 
000425 

000426 {$IFC UNDEFINED Usinglncludes } 

000427 {$SETC Usinglncludes := 0} 

000428 {$ENDC} 
000429 

000430 {$IFC NOT Usinglncludes) 

000431 UNIT Aliases; 

000432 INTERFACE 

000433 {$ENDC) 
000434 

000435 {$IFC UNDEFINED UsingAliases ) 

000436 {$SETC UsingAliases := 1) 
000437 

000438 {$1+) 

000439 {$SETC Aliaseslncludes := Usinglncludes) 

000440 {$SETC Usinglncludes := 1} 

000441 {$IFC UNDEFINED UsingTypes) 

000442 {$1 5$Shell (PInterfaces) Types. p) 

000443 {$ENDC) 

000444 {$IFC UNDEFINED UsingDialogs ) 

000445 {$1 $$Shell (Plnterfaces)Dialogs.p} 

000446 {$ENDC} 

000447 {$IFC UNDEFINED UsingAppleTalk ) 

000448 {$1 $$Shell (PInterfaces) AppleTalk.p) 

000449 {$ENDC) 

000450 {$IFC UNDEFINED UsingFiles) 

000451 {$1 5$Shell (Plnterfaces)Files.p) 

000452 {$ENDC) 

000453 {$SETC Usinglncludes := Aliaseslncludes) 
000454 

000455 CONST 

000456 rAliasType ^ 'alls'; { Aliases are stored as resources of this type ) 
000457 

000458 { define alias resolution action rules mask ) 



000459 kARMMountVol = $00000001; 

000460 kARMNoUI = $00000002; 

000461 kARMMultVols = $00000008; 

000462 kARMSearch = $00000100; 

000463 kARMSearchMore = $00000200; 

000464 kARMSearchRelFirst = $00000400; 
000465 

.000466 { define alias record information types 



mount the volume automatically } 

no user interface allowed during resolution ) 

search on multiple volumes ) 

search quickly } 

search further } 

search target on a relative path first } 
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000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 
000481 
000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000506 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 



asiZoneName — -3; 
asiServerName ^ -2; 
asiVolumeName ^ -1; 
aslAliasName - 0; 
asiParentName ^ 1; 



{ get zone name ) 

{ get server name } 

{ get volume name } 

{ get aliased file/folder/volume name } 

{ get parent folder name } 



TYPE 

{ define the alias record that will be the blackbox for the caller } 

AliasPtr - ^AliasRecord; 

AliasHandle = ^AliasPtr; 

AliasRecord = RECORD 

userType : OSType; { appl stored type like creator type } 

aliasSize; INTEGER; { alias record size in bytes, for appl usage } 

END; 



AliasInfoType = INTEGER; 
AliasFilterProcPtr = ProcPtr; 



alias record information type 



{ create a new alias between fromFile-target and return alias record handle } 
FUNCTION NewAlias (fromFile: FSSpecPtr; 

target: FSSpec; 

VAR alias: AliasHandle): OSErr; 
INLINE $7002,$A823; 

{ create a minimal new alias for a target and return alias record handle } 
FUNCTION NewAliasMinimal (target : FSSpec; 

VAR alias: AliasHandle): OSErr; 
INLINE $7008,$A823; 

{ create a minimal new alias from a target fullpath (optional zone and server name) and return alias record handle } 
FUNCTION NewAliasMinimalFromFullPath (fullPathLength: INTEGER; 

fullPath: Ptr; 

zoneName: Str32; 

serverName : Str31; 

VAR alias: AliasHandle): OSErr; 
INLINE $7009,$A823; 

{ given an alias handle and fromFile, resolve the alias, update the alias record and return aliased filename and wasChanged flag. } 
FUNCTION ResolveAlias (fromFile: FSSpecPtr; 

alias: AliasHandle; 

VAR target: FSSpec; 

VAR wasChanged: BOOLEAN) : OSErr; 
INLINE $7003,$A823; 

{ given an alias handle and an index specifying requested alias information type, return the information from alias record as a string. } 
FUNCTION GetAliasInfo (alias : AliasHandle; 

index: AliasInfoType; 

VAR theString: Str63) : OSErr; 
INLINE $7007,$A823; 

{ given a file spec, return target file spec if input file spec is an alias. 
It resolves the entire alias chain or one step of the chain. It returns 
info about whether the target is a folder or file; and whether the input 
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000523 file spec was an alias or not. } 

000524 FUNCTION ResoiveAliasFile (VAR theSpec: FSSpec; 

000525 resolveAliasChains : BOOLEAN; 

000526 VAR targetlsFolder : BOOLEAN; 

000527 VAR wasAliased: BOOLEAN) : OSErr; 

000528 INLINE $700C,$A823; 
000529 

000530 { Low Level Routines 

000531 given an alias handle and fromFile/ match the alias and return aliased filename (s) and needsUpdate flag } 

000532 FUNCTION MatchAlias (fromFile: FSSpecPtr; 

000533 rulesMask: LONGINT; 

000534 alias: AliasHandle; 

000535 VAR aliasCount: INTEGER; 

000536 aliasList: FSSpecArrayPtr; 

000537 VAR needsUpdate: BOOLEAN; 

000538 aliasFilter: AliasFilterProcPtr; 

000539 yourDataPtr: UNIV Ptr) : OSErr; 

000540 INLINE $7005,$A823; 
000541 

000542 { given a f romFile-target pair and an alias handle, update the lias record pointed to by alias handle to represent target as the new alias. 

000543 FUNCTION UpdateAllas ( fromFile : FSSpecPtr; 

000544 target: FSSpec; 

000545 alias: AliasHandle; 

000546 VAR wasChanged: BOOLEAN) : OSErr; 

000547 INLINE $7006,$A823; 
000548 

000549 

000550 {$ENDC) ( UsingAliases } 

000551 

000552 {$IFC NOT Usinglncludes ) 

000553 END. 

000554 {$ENDC) 
000555 

000556 

000557 ### END OF FILE Aliases. p 

000558 
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000559 

0005 60 ##################################################################### 

000561 ### FILE: AppleEvents.p 

0005 62 ##################################################################### 

000563 

000564 

000565 { 

000566 Created: Monday, September 16, 1991 at 2:41 PM 

000567 AppleEvents.p 

000568 Pascal Interface to the Macintosh Libraries 
000569 

000570 Copyright Apple Computer, Inc. 1989-1991 

000571 All rights reserved 
000572 

000573 ) 

000574 

000575 

000576 {$IFC UNDEFINED Usinglncludes } 

000577 {$SETC Usinglncludes := 0} 

000578 {$ENDC} 
000579 

000580 {$IFC NOT Usinglncludes) 

000581 UNIT AppleEvents; 

000582 INTERFACE 

000583 {$ENDC) 
000584 

000585 {$IFC UNDEFINED UsingAppleEvents ) 

000586 {$SETC UsingAppleEvents := 1) 
000587 

000588 {$!+) 

000589 {$SETC AppleEventsIncludes := Usinglncludes) 

000590 {$SETC Usinglncludes := 1} 

000591 {$IFC UNDEFINED UsingTypes) 

000592 {$1 $$Shell (PInterfaces) Types. p) 

000593 {$ENDC) 

000594 {$IFC UNDEFINED UsingMemory ) 

000595 {$1 $$Shell (Plnterfaces)Memory .p) 

000596 {$ENDC) 

000597 {$IFC UNDEFINED UsingOSUtils ) 

000598 {$1 $$Shell (PInterfaces) OSUtils.p} 

000599 {$ENDC) 

000600 {$IFC UNDEFINED UsingEvents) 

000601 {$1 5$Shell (Plnterfaces)Events.p) 

000602 {$ENDC) 

000603 {$IFC UNDEFINED UsingEPPC} 

000604 {$1 5$Shell (PInterfaces) EPPC.p) 

000605 {$ENDC) 

000606 {$IFC UNDEFINED UsingNotif ication } 

000607 {$1 $$Shell (Plnterfaces)Notification.p) 

000608 {$ENDC) 

000609 {$SETC Usinglncludes := AppleEventsIncludes) 
000610 

000611 CONST 

000612 typeBoolean = 'bool'; 

000613 typeChar = ' TEXT ' ; 
.000614 typeSMInt = ' shor ' ; 
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000515 typelnteger ^ 'long'; 

000616 typeSMFloat = 'sing'; 

000617 typeFloat = ' doub ' ; 

000618 typeLonglnteger ^ 'long'; 

000619 typeShortlnteger = 'shor'; 

000620 typeLongFloat = 'doub'; 

000621 typeShortFloat = 'sing'; 

000622 typeExtended = 'exte'; 

000623 typeCorap - ' corap ' ; 

000624 typeMagnitude = 'magn'; 

000625 typeAEList = 'list'; 

000626 typeAERecord = 'reco'; 

000627 typelrue = 'true'; 

000628 typeFalse = 'fals'; 

000629 typeAlias = 'alls'; 

000630 typeEnumerated = 'enum'; 

000631 typelype = 'type'; 

000632 typeAppParameters ^ ' appa ' ; 

000633 typeProperty ^ 'prop'; 

000634 typeFSS = ' f ss '; 

000635 typeKeyword ^ 'keyw'; 

000636 typeSectionH ^ 'sect'; 

000637 typeWildCard = '****'; 
000638 

000639 typeApplSignature ^ 'sign'; 

000640 typeSessionID = 'ssid'; 

000641 typelargetlD = 'targ'; 

000642 typeProcessSerialNumber ^ 'psn '; 

000643 typeNull = 'null'; {the type of null/nonexistent data} 
000644 

000645 kCoreEventClass = ' aevt ' ; 
000646 

000647 kAEOpenApplication = ' oapp ' ; 

000648 kAEOpenDocuments = ' odoc ' ; 

000649 kAEPrintDocuments = 'pdoc'; 

000650 kAEQuitApplication = 'quit'; 
000651 

000652 kAECreatorType = 'area'; 

000653 kAEQuitAll = 'quia'; 

000654 kAEShutDown = 'shut'; 

000655 kAERestart = 'rest'; 

000656 kAEApplicationDled = 'obit'; 

000657 keyProcessSerialNuraber — 'psn '; 
000658 

000659 keyErrorNuraber — 'errn'; 

000660 keyErrorString = 'errs'; 
000661 

000662 kAEAnswer = 'ansr'; 
000663 

000664 keyDirectObject = ' '; 

000665 
000666 

000667 { keyword used in install special handler } 

000668 keyPreDispatch = 'phac'; { PreHandler Accessor Call ) 

000669 keySelectProc = 'selh'; { More selector Call } 
^00670 
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000671 
000672 
000673 
000674 
000675 
000676 
000677 
000678 
000679 
000680 
000681 
000682 
000683 
000684 
000685 
000686 
000687 
000688 
000689 
000690 
000691 
000692 
000693 
000694 
000695 
000696 
000697 
000698 
000699 
000700 
000701 
000702 
000703 
000704 
000705 
000706 
000707 
000708 
000709 
000710 
000711 
000712 
000713 
000714 
000715 
000716 
000717 
000718 
000719 
000720 
000721 
000722 
000723 
000724 
000725 
000726 



{ keywords used in attributes ) 
keyTransact ionlDAttr - 'tran'; 
keyReturnlDAttr = 'rtid'; 
keyEventClassAttr - 'evcl'; 
keyEventlDAttr = 'evid'; 
keyAddressAttr — ' addr ' ; 
keyOptionalKeywordAttr — ' optk ' ; 
keyTimeoutAttr — 'timo'; 
keylnteractLevelAttr ^ 'inte'; 
keyEventSourceAttr = 'esrc'; 
keyMissedKeywordAttr ^ 'miss'; 

{ constants for use in AESendMode } 
kAENoReply = $00000001; 
kAEQueueReply = $00000002; 
kAEWaitReply = $00000003; 

kAENeverlnteract = $00000010; 
kAECanlnteract = $00000020; 
kAEAlwaysInteract = $00000030; 

kAECanSwitchLayer = $00000040; 

kAEDontReconnect = $00000080; 

kAEWantReceipt = nReturnReceipt; 



{this attribute is read only will be set in AESend} 
{ this attribute is read only } 
{ this attribute is read only } 



{ Sender doesn't want a reply to event ) 

{ Sender wants a reply but won't wait } 

{ Sender wants a reply and will be waiting ) 

{ Server should not interact with user } 

{ Server may try to interact with user } 

{ Server should always interact with user where appropriate } 

{ Interaction may switch layer } 

{ don't reconnect if there is a sessClosedErr from PPCToolbox } 



{ Send wants a receipt of message } 



{ constants to be used in AESendPriority } 

kAENormalPriority ^ $00000000; { Post message at the end of event queue } 

kAEHighPriority ^ nAttnMsg; { Post message at the front of the event queue } 

{ special constants in generating events } 

kAnyTransactionID - 0; { no transaction is in use } 

kAutoGenerateReturnID ^ -1; { AECreateAppleEvent will generate a session-unique ID 



{ constant for use AESend } 
kAEDefaultTimeout = -1; 
kNoTimeOut = -2; 



{ timeout value determined by AEM } 

{ wait until reply comes back, however long it takes } 



{ dispatch parameter to AEResumeTheCurrentEvent takes a pointer to a dispatch 
table, or one of these two constants } 
kAENoDispatch = 0; 
kAEUseStandardDispatch = -1; 

{ Error messages in response to reading and writing event contents } 

errAECoercionFail = -1700; 

errAEDescNotFound = -1701; 

errAECorruptData = -1702; 

errAEWrongDataType = -1703; 

errAENotAEDesc = -1704; 

errAEBadListltem = -1705; 

errAENewerVersion ^ -1706; 

errAENotAppleEvent = -1707; 



{ Specified list item does not exist } 

{ Need newer version of AppleEvent Manager 

{ The event is not in AppleEvent format } 



{ Error messages in response to sending/receiving a message ) 

errAEEventNotHandled ^ -1708; { The AppleEvent was not handled by any handler 
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000727 
000728 
000729 
000730 
000731 
000732 
000733 
000734 
000735 
000736 
000737 
000738 
000739 
000740 
000741 
000742 
000743 
000744 
000745 
000746 
000747 
000748 
000749 
000750 
000751 
000752 
000753 
000754 
000755 
000756 
000757 
000758 
000759 
000760 
000761 
000762 
000763 
000764 
000765 
000766 
000767 
000768 
000769 
000770 
000771 
000772 
000773 
000774 
000775 
000776 
000777 
000778 
000779 
000780 
000781 
000782 



errAEReplyNotValld = -1709; 
errAEUnknownSendMode = -1710; 
errAEWaitCanceled = -1711; 
errAETimeout = -1712; 

errAENoUserlnteraction = -1713; 
errAENotASpecialFunction = -1714; 
errAEParamMissed ^ -1715; 



{ AEResetTimer was passed an invalid reply parameter } 

{ Mode wasn't NoReply, WaitRepiy, or QueueRepiy; or Interaction level is unknown } 

{ In AESend, User cancelled out of wait loop for reply or receipt ) 

{ AppieEvent timed out } 

{ no user interaction allowed } 

{ there is no special function with this keyword } 

{ a required parameter was not accessed } 



errAEUnknownAddressType — -1716; { The target address type is not known } 

errAEHandlerNotFound - -1717; { No handler in the dispatch tables fits the parameters to 
AEGetEventHandler or AEGetCoercionHandler ) 



errAEReplyNotArrived = -1718; 
errAEIllegallndex = -1719; 



{ the contents of the reply you are accessing have not arrived yet ) 
{ Index is out of range in a put operation } 



TYPE 

AEKeyword = PACKED ARRAY [ 1 . . 4 ] OF CHAR; 
AEEventClass = PACKED ARRAY [1..4] OF CHAR; 
AEEventID = PACKED ARRAY [1..4] OF CHAR; 
DescType = ResType; 

{ tagged data, the standard AppieEvent data type } 
AEDesc = RECORD 

descriptorType : DescType; 

dataHandle: Handle; 

END; 



AEAddressDesc = AEDesc; 
AEDescList = AEDesc; 
AERecord = AEDescList; 
AppieEvent = AERecord; 
AESendMode = LONGINT; 
AESendPriority = INTEGER; 



{ an AEDesc which contains addressing data ) 

{ a list of AEDesc is a special kind of AEDesc } 

{ AERecord is a list of keyworded AEDesc } 

{ an AERecord that contains an AppieEvent } 

{ Type of parameter to AESend } 

{ Type of priority param of AESend } 



{ type of param to AEGetlnteractionAllowed and AESetlnteractionAllowed } 
AEInteractAllowed = (kAEInteractWithSelf , kAEInteractWithLocal, kAEInteractWithAll) ; 

{ Return param to AEGetTheCurrentEvent , and kAEEventSource attribute } 
AEEventSource ^ (kAEUnknownSource, kAEDirectCall, kAESameProcess, kAELocalProcess, 
kAERemoteProcess ) ; 



{ types for AppieEvent Array support 

Basic data type of attibutes & parameters} 
AEKeyDesc = RECORD 
descKey: AEKeyword; 
descContent : AEDesc; 
END; 



AEArrayType = (kAEDataArray, kAEPackedArray, kAEHandleArray, kAEDescArray, 
kAEKeyDescArray) ; 
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000783 

000784 { Array routines support these different types of elements} 

000785 AEArrayData = RECORD 

000786 case AEArrayType OF 

000787 kAEDataArray : 

000788 (AEDataArray : Array[0..0] OF Integer); 

000789 kAEPackedArray : 

000790 (AEPackedArray: Packed Array [ .. ] OF Char); 

000791 kAEHandleArray : 

000792 (AEHandleArray: Array[0..0] OF Handle); 

000793 kAEDescArray : 

000794 (AEDescArray : Array[0..0] OF AEDesc) ; 

000795 kAEKeyDescArray: 

000796 (AEKeyDescArray : Array [0..0] OF AEKeyDesc) ; 

000797 END; 
000798 

000799 AEArrayDataPolnter = -^AEArrayData; 

000800 

000801 

000802 

000803 EventHandlerProcPtr = ProcPtr; 

000804 IdleProcPtr = ProcPtr; 

000805 EventFilterProcPtr = ProcPtr; 
000806 

000807 

000808 { ********************************************************************* 

000809 The following calls apply to any AEDesc. Every result descriptor is created for you, 

000810 so you will be responsible for memory management of the descriptors so created. 

000811 Purgeable descriptor data is not supported: the AEM does not call LoadResource . } 

000812 FUNCTION AECreateDesc (typeCode: DescType; 

000813 dataPtr: Ptr; 

000814 dataSize: Size; 

000815 VAR result: AEDesc): OSErr; 

000816 INLINE $3030, $0825, $A816; 

000817 FUNCTION AECoercePtr (typeCode: DescType; 

000818 dataPtr: Ptr; 

000819 dataSize: Size; 

000820 toType: DescType; 

000821 VAR result: AEDesc): OSErr; 

000822 INLINE $3030, $0A02, $A816; 

000823 FUNCTION AECoerceDesc (theAEDesc: AEDesc; 

000824 toType: DescType; 

000825 VAR result: AEDesc): OSErr; 

000826 INLINE $303C, $0603, $A816; 

000827 FUNCTION AEDisposeDesc (VAR theAEDesc: AEDesc): OSErr; 

000828 INLINE $3030, $0204, $A816; 

000829 FUNCTION AEDuplicateDesc (theAEDesc: AEDesc; 

000830 VAR result: AEDesc): OSErr; 

000831 INLINE $303C, $0405, $A816; 
000832 

000833 { ********************************************************************* 

000834 The following calls apply to AEDescList . 

000835 Since AEDescList is a subtype of AEDesc, the calls in the previous 

000836 section can also be used for AEDescList. All list and array indices are 1-based. 

000837 If the data was greater than maximumSize in the routines below, then actualSize will 
.000838 be greater than maximumSize, but only maximumSize bytes will actually be retrieved. } 
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000839 


FUNCTION AECreateList (factoringPtr: Ptr; 




000840 


f actoredSize : Size; 




000841 


isRecord: BOOLEAN; 




000842 


VAR resultList: AEDescList): OSErr; 




000843 


INLINE $303C, $0706, $A816; 




000844 


FUNCTION AECountltems (theAEDescLlst : AEDescList; 




000845 


VARtheCount: LONGINT) : OSErr; 




000846 


INLINE $303C, $0407, $A816; 




000847 


FUNCTION AEPutPtr{theAEDescList: AEDescList; 




000848 


index: LONGINT; 




000849 


typeCode: DescType; 




000850 


dataPtr: Ptr; 




000851 


dataSize: Size): OSErr; 




000852 


INLINE $303C, $0A08, $A816; 




000853 


FUNCTION AEPutDesc (theAEDescLlst : AEDescList; 




000854 


index: LONGINT; 




000855 


theAEDesc: AEDesc) : OSErr; 




000856 


INLINE $303C, $0609, $A816; 




000857 


FUNCTION AEGetNthPtr (theAEDescLlst : AEDescList; 




000858 


index: LONGINT; 




000859 


desiredType: DescType; 




000860 


VAR theAEKeyword: AEKeyword; 




000861 


VAR typeCode: DescType; 




000862 


dataPtr: Ptr; 




000863 


maximumSize : Size; 




000864 


VAR actualSize: Size): OSErr; 




000865 


INLINE $303C, $100A, $A816; 




000866 


FUNCTION AEGetNthDesc (theAEDescLlst : AEDescList; 




000867 


index: LONGINT; 




000868 


desiredType: DescType; 




000869 


VAR theAEKeyword: AEKeyword; 




000870 


VAR result: AEDesc): OSErr; 




000871 


INLINE $303C, $OAOB, $A816; 




000872 


FUNCTION AESlzeOfNthltem (theAEDescLlst: AEDescList; 




000873 


index: LONGINT; 




000874 


VAR typeCode: DescType; 




000875 


VAR dataSize: Size) : OSErr; 




000876 


INLINE $303C, $082A, $A816; 




000877 


FUNCTION AEGetArray (theAEDescLlst : AEDescList; 




000878 


arrayType : AEArrayType; 




000879 


arrayPtr: AEArrayDataPointer; 




000880 


maximumSize: Size; 




000881 


VAR ItemType: DescType; 




000882 


VAR itemSize: Size; 




000883 


VAR itemCount: LONGINT): OSErr; 




000884 


INLINE $303C, $ODOC, $A816; 




000885 


FUNCTION AEPutArray (theAEDescLlst : AEDescList; 




000886 


arrayType: AEArrayType; 




000887 


arrayPtr: AEArrayDataPointer; 




000888 


itemType: DescType; 




000889 


itemSize: Size; 




000890 


itemCount: LONGINT): OSErr; 




000891 


INLINE $303C, $OBOD, $A816; 




000892 


FUNCTION AEDeleteltem (theAEDescLlst: AEDescList; 




000893 


index: LONGINT) : OSErr; 




000894 


INLINE $303C, $040E, $A816; 


J 
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000895 






000896 


{ ^-k^-k-ki^^-k^-k^-k-k-k-k-k^-k-k-k-k-k-k-k^-k-k-k-k-k-k-k^-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k^-k-k-k-k-k-k-k-k-k-k-k^ 




000897 


The following calls apply to AERecord. 




000898 


Since AERecord is a subtype of AEDescList, the calls in the previous 




000899 


sections can also be used for AERecord 




000900 


an AERecord can be created by using AECreateList with isRecord set to true } 




000901 


FUNCTION AEPutKeyPtr (theAERecord: AERecord; 




000902 


theAEKeyword: AEKeyword; 




000903 


typeCode: DescType; 




000904 


dataPtr: Ptr; 




000905 


dataSize: Size): OSErr; 




000906 


INLINE $303C, $0A0F, $A816; 




000907 


FUNCTION AEPutKeyDesc (theAERecord: AERecord; 




000908 


theAEKeyword: AEKeyword; 




000909 


theAEDesc: AEDesc) : OSErr; 




000910 


INLINE $303C, $0610, $A816; 




000911 


FUNCTION AEGetKeyPtr (theAERecord: AERecord; 




000912 


theAEKeyword: AEKeyword; 




000913 


desiredType: DescType; 




000914 


VAR typeCode: DescType; 




000915 


dataPtr: Ptr; 




000916 


maximumSize : Size; 




000917 


VAR actualSize: Size): OSErr; 




000918 


INLINE $303C, $0E11, $A816; 




000919 


FUNCTION AEGetKeyDesc (theAERecord: AERecord; 




000920 


theAEKeyword: AEKeyword; 




000921 


desiredType: DescType; 




000922 


VAR result: AEDesc): OSErr; 




000923 


INLINE $303C, $0812, $A816; 




000924 


FUNCTION AESizeOfKeyDesc (theAERecord: AERecord; 




000925 


theAEKeyword: AEKeyword; 




000926 


VAR typeCode: DescType; 




000927 


VAR dataSize: Size) : OSErr; 




000928 


INLINE $303C, $0829, $A816; 




000929 


FUNCTION AEDeleteKeyDesc (theAERecord: AERecord; 




000930 


theAEKeyword: AEKeyword) : OSErr; 




000931 


INLINE $303C, $0413, $A816; 




000932 






000933 


{ 




000934 


********************************************************************* 




000935 


The following calls are used to pack and unpack parameters from records of 




000936 


type AppleEvent . Since AppleEvent is a subtype of AERecord, the calls in the previous 




000937 


sections can also be used for variables of type AppleEvent. The next six calls 




000938 


are in fact identical to the six calls for AERecord. 




000939 


} 




000940 


FUNCTION AEPutParamPtr (theAppleEvent : AppleEvent; 




000941 


theAEKeyword: AEKeyword; 




000942 


typeCode: DescType; 




000943 


dataPtr: Ptr; 




000944 


dataSize: Size): OSErr; 




000945 


INLINE $303C, $0A0F, $A816; 




000946 


FUNCTION AEPutParamDesc (theAppleEvent : AppleEvent; 




000947 


theAEKeyword: AEKeyword; 




000948 


theAEDesc: AEDesc) : OSErr; 




000949 


INLINE $303C, $0610, $A816; 




000950 


FUNCTION AEGetParamPtr (theAppleEvent : AppleEvent; 
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000951 


theAEKeyword: AEKeyword; 




000952 


desiredType: DescType; 




000953 


VAR typeCode: DescType; 




000954 


dataPtr: Ptr; 




000955 


maximumSize : Size; 




000956 


VAR actualSize: Size) : OSErr; 




000957 


INLINE $303C, $0E11, $A816; 




000958 


FUNCTION AEGetParamDesc (theAppleEvent : AppleEvent; 




000959 


theAEKeyword: AEKeyword; 




000960 


desiredType: DescType; 




000961 


VAR result: AEDesc) : OSErr; 




000962 


INLINE $303C, $0812,$A816; 




000963 


FUNCTION AESizeOfParam (theAppleEvent : AppleEvent; 




000964 


theAEKeyword: AEKeyword; 




000965 


VAR typeCode: DescType; 




000966 


VAR dataSize: Size): OSErr; 




000967 


INLINE $303C, $0829,$A816; 




000968 


FUNCTION AEDeleteParam (theAppleEvent : AppleEvent; 




000969 


theAEKeyword: AEKeyword) : OSErr; 




000970 


INLINE $303C, $0413, $A816; 




000971 






000972 


{ ^-k^-k-k-k^-k^i^^-k-k-k-k-k^-k-k-k-k-k-k-k^-k-k-k^-k-k-k-k-k-k-k^-k-k-k-k-k-k-k^-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k^ 




000973 


The following calls also apply to type AppleEvent. Message attributes are far more restricted, and 




000974 


can only be accessed through the following 5 calls. The various list and record routines cannot be used 




000975 


to access the attributes of an event. } 




000976 


FUNCTION AEGetAttributePtr (theAppleEvent : AppleEvent; 




000977 


theAEKeyword: AEKeyword; 




000978 


desiredType: DescType; 




000979 


VAR typeCode: DescType; 




000980 


dataPtr: Ptr; 




000981 


maximumSize: Size; 




000982 


VAR actualSize: Size): OSErr; 




000983 


INLINE $303C,$0E15,$A816; 




000984 


FUNCTION AEGetAttributeDesc (theAppleEvent : AppleEvent; 




000985 


theAEKeyword: AEKeyword; 




000986 


desiredType: DescType; 




000987 


VAR result: AEDesc): OSErr; 




000988 


INLINE $303C,$0826,$A816; 




000989 


FUNCTION AESizeOfAttribute (theAppleEvent : AppleEvent; 




000990 


theAEKeyword: AEKeyword; 




000991 


VAR typeCode: DescType; 




000992 


VAR dataSize: Size): OSErr; 




000993 


INLINE $303C, $0828, 5A816; 




000994 


FUNCTION AEPutAttributePtr (theAppleEvent : AppleEvent; 




000995 


theAEKeyword: AEKeyword; 




000996 


typeCode: DescType; 




000997 


dataPtr: Ptr; 




000998 


dataSize: Size): OSErr; 




000999 


INLINE $303C, $0A16,$A816; 




001000 


FUNCTION AEPutAttributeDesc (theAppleEvent : AppleEvent; 




001001 


theAEKeyword: AEKeyword; 




001002 


theAEDesc: AEDesc): OSErr; 




001003 


INLINE $303C, $0627,$A816; 




001004 






001005 


( ********************************************************************* 




001006 


The next four calls are basic routines used to create, send, and process AppleEvents. } 


J 
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001007 FUNCTION AECreateAppleEvent (theAEEventClass : AEEventClass; 

001008 theAEEventID: AEEventID; 

001009 target: AEAddressDesc; 

001010 returnID: INTEGER; 

001011 transactionID: LONGINT; 

001012 VAR result: AppleEvent): OSErr; 

001013 INLINE $303C, $0B14, $A816; 

001014 FUNCTION AESend (theAppleEvent : AppleEvent; 

001015 VAR reply: AppleEvent; 

001016 sendMode: AESendMode; 

001017 sendPriority: AESendPriority; 

001018 timeOutlnTicks: LONGINT; 

001019 IdleProc: IdleProcPtr; 

001020 filterProc: EventFilterProcPtr ) : OSErr; 

001021 INLINE $303C, $0D17, $A816; 

001022 FUNCTION AEProcessAppleEvent (theEventRecord : EventRecord) : OSErr; 

001023 INLINE $303C, $021B, $A81 6 ; 
001024 

001025 { During event processing, an event handler may realize that it is likely 

001026 to exceed the client's timeout limit. Passing the reply to this 

001027 routine causes a wait event to be generated to ask the client for more time. } 

001028 FUNCTION AEResetTimer (reply : AppleEvent): OSErr; 

001029 INLINE $303C, $021 9, $A81 6 ; 
001030 

001031 { ********************************************************************* 

001032 The following four calls are available for applications which need more sophisticated control 

001033 over when and how events are processed. Applications which implement multi-session servers or 

001034 which implement their own internal event queueing will probably be the major clients of these 

001035 routines. 
001036 

001037 Can be called from within a handier to prevent the AEM from disposing of 

001038 the AppleEvent when the handler returns. Can be used to asynchronously process the 

001039 event (as in MacApp) . ) 

001040 FUNCTION AESuspendTheCurrentEvent (theAppleEvent : AppleEvent): OSErr; 

001041 INLINE $303C, S022B, $A816; 
001042 

001043 { 

001044 Tells the AppleEvent manager that processing is either about to resume or has 

001045 been completed on a previously suspended event. The procPtr passed in as the 

001046 dispatcher parameter will be called to attempt to redispatch the event. Several 

001047 constants for the dispatcher parameter allow special behavior. They are: 

001048 - kAEUseStandardDispatch means redispatch as if the event was just received, using the 

001049 standard AppleEvent Dispatcher. 

001050 - kAENoDispatch means ignore the parameter. 

001051 Use this in the case where no redispatch is needed, and the event has been handled. 

001052 - non nil means call the routine which dispatcher points to. 

001053 } 

001054 FUNCTION AEResumeTheCurrentEvent (theAppleEvent : AppleEvent; 

001055 reply: AppleEvent; 

001056 dispatcher: EventHandlerProcPtr; 

001057 handlerRefcon: LONGINT): OSErr; 

001058 INLINE $303C, $081 8 , $A81 6 ; 
001059 

001060 { Allows application to examine the currently executing event } 

001061 FUNCTION AEGetTheCurrentEvent (VAR theAppleEvent: AppleEvent): OSErr; 
.001062 INLINE 5303C, $02 lA, 5A81 6 ; 
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001063 

001064 { Set the current event to the parameter } 

001065 FUNCTION AESetTheCurrentEvent (theAppleEvent : AppleEvent) : OSErr; 

001066 INLINE $303C, $022C, $A81 6 ; 
001067 

001068 { 

001069 ********************************************************************* 

001070 The following three calls are used to allow applications to behave courteously 

001071 when a user interaction such as a dialog box is needed. 

001072 } 

001073 FUNCTION AEGet InteractionAllowed (VAR level: AEInteractAllowed) : OSErr; 

001074 INLINE $303C, $021D, 5A81 6 ; 

001075 FUNCTION AESetlnteractionAllowed (level: AEInteractAllowed): OSErr; 

001076 INLINE $303C, $011E, 5A81 6 ; 

001077 FUNCTION AEInteractWithUser (timeOutlnTicks: LONGINT; 

001078 nmReqPtr: NMRecPtr; 

001079 idleProc: IdleProcPtr) : OSErr; 

001080 INLINE $303C, $0 610, $A81 6 ; 
001081 

001082 { ********************************************************************* 

001083 These calls are used to set up and modify the event dispatch table } 
001084 

001085 { Add an AppleEvent Handler } 

001086 FUNCTION AEInstallEventHandler (theAEEventClass : AEEventClass; 

001087 theAEEventID: AEEventID; 

001088 handler: EventHandlerProcPtr; 

001089 handlerRefcon: LONGINT; 

001090 isSysHandler: BOOLEAN) : OSErr; 

001091 INLINE $303C, $091F, $A816; 
001092 

001093 { Remove an AppleEvent Handler } 

001094 FUNCTION AERemoveEventHandler (theAEEventClass : AEEventClass; 

001095 theAEEventID: AEEventID; 

001096 handler: EventHandlerProcPtr; 

001097 isSysHandler: BOOLEAN) : OSErr; 

001098 INLINE $303C, $0720 , $A81 6 ; 
001099 

001100 { Get the corresponding AppleEvent Handler } 

001101 FUNCTION AEGetEventHandler (theAEEventClass: AEEventClass; 

001102 theAEEventID: AEEventID; 

001103 VAR handler: EventHandlerProcPtr; 

001104 VAR handlerRefcon: LONGINT; 

001105 isSysHandler: BOOLEAN) : OSErr; 

001106 INLINE $303C, $0921, $A816; 
001107 

001108 { ********************************************************************* 

001109 These calls are used to set up and modify the coercion dispatch table } 

001110 FUNCTION AEInstallCoercionHandler (fromType: DescType; 

001111 toType: DescType; 

001112 handler: ProcPtr; 

001113 handlerRefcon: LONGINT; 

001114 fromTypelsDesc: BOOLEAN; 

001115 isSysHandler: BOOLEAN) : OSErr; 

001116 INLINE $303C, $0A22, $A816; 
001117 

.001118 { Remove a Coercion Handler } 
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001119 FUNCTION AERemoveCoercionHandler (fromType: DescType; 

001120 toType: DescType; 

001121 handler: ProcPtr; 

001122 isSysHandler: BOOLEAN) : OSErr; 

001123 INLINE $303C, $0723, $A816; 
001124 

001125 { Get the corresponding Coercion Handler } 

001126 FUNCTION AEGetCoercionHandler ( fromType : DescType; 

001127 toType: DescType; 

001128 VAR handler: ProcPtr; 

001129 VAR handlerRefcon: LONGINT; 

001130 VAR fromTypelsDesc: BOOLEAN; 

001131 isSysHandler: BOOLEAN): OSErr; 

001132 INLINE $303C, $0B24, $A816; 
001133 

001134 { 

001135 ********************************************************************* 

001136 These calls are used to set up and modify special hooks into the AppleEvent Manager. 
001137 

001138 Install the special handler named by the Keyword ) 

001139 FUNCTION AEInstallSpecialHandler ( f unctionClass : AEKeyword; 

001140 handler: ProcPtr; 

001141 isSysHandler: BOOLEAN) : OSErr; 

001142 INLINE $303C, $0500, $A816; 
001143 

00114 4 { Remove the special handler named by the Keyword } 

001145 FUNCTION AERemoveSpecialHandler ( f unctionClass : AEKeyword; 

001146 handler: ProcPtr; 

001147 isSysHandler: BOOLEAN) : OSErr; 

001148 INLINE $303C, $0501, $A816; 
001149 

001150 { Get the special handler named by the Keyword } 

001151 FUNCTION AEGetSpecialHandler (functionClass: AEKeyword; 

001152 VAR handler: ProcPtr; 

001153 isSysHandler: BOOLEAN) : OSErr; 

001154 INLINE $303C, $052D, $A816; 
001155 

001156 

001157 {$ENDC) { UsingAppleEvents ) 

001158 

001159 {$IFC NOT Usinglncludes ) 

001160 END. 

001161 {$ENDC} 
001162 

001163 

001164 ### END OF FILE AppleEventS . p 

001165 
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001166 






001167 


##################################################################### 




001168 


### FILE: AppleTalk.p 




001169 


##################################################################### 




001170 






001171 






001172 


{ 




001173 


Created: Sunday, September 15, 1991 at 9:47 PM 




001174 


AppleTalk.p 




001175 


Pascal Interface to the Macintosh Libraries 




001176 






001177 


Copyright Apple Computer, Inc. 1985-1991 




001178 


All rights reserved 




001179 


) 




001180 






001181 






001182 


{$IFC UNDEFINED Usinglncludes } 




001183 


{$SETC Usinglncludes := 0} 




001184 


{$ENDC) 




001185 






001186 


{$IFC NOT Usinglncludes) 




001187 


UNIT AppleTalk; 




001188 


INTERFACE 




001189 


{$ENDC} 




001190 






001191 


{$IFC UNDEFINED UsingAppleTalk } 




001192 


{$SETC UsingAppleTalk := 1} 




001193 






001194 


{$!+) 




001195 


{$SETC AppleTalklncludes := Usinglncludes} 




001196 


{$SETC Usinglncludes := 1} 




001197 


{$IFC UNDEFINED UsingTypes) 




001198 


{$1 $$Shell (PInterfaces) Types. p) 




001199 


{$ENDC) 




001200 


{$IFC UNDEFINED UsingOSUtils ) 




001201 


{$1 $$ Shell (PInterfaces) OSUtiis .p} 




001202 


{$ENDC) 




001203 


{$SETC Usinglncludes := AppleTalklncludes} 




001204 






001205 


CONST 




001206 






001207 


{ Driver unit and reference numbers (ADSP is dynamic) } 




001208 






001209 


mppUnitNum ^9; { MPP unit number } 




001210 


atpUnitNum = 10 


{ ATP unit number } 




001211 


xppUnitNum =40 


{ XPP unit number } 




001212 


mppRefNum = -10 


{ MPP reference number ) 




001213 


atpRefNum = -11 


{ ATP reference number ) 




001214 


xppRefNum = -41 


{ XPP reference number ) 




001215 






001216 


{ .MPP csCodes ) 




001217 






001218 


lookupRepiy = 242; { This command queued to ourself } 




001219 


writeLAP = 243; { Write out LAP packet ) 




001220 


detachPH = 244; { Detach LAP protocol handler } 




001221 


attachPH = 245; { Attach LAP protocol handler } 


J 
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001222 


writeDDP = 246; 


Write out DDP packet ) 




001223 


closeSkt = 247; 


Close DDP socket ) 




001224 


openSkt = 248; 


Open DDP socket ) 




001225 


loadNBP = 24 9; 


Load NBP command-executing code } 




001226 


lastResident = 249; 


Last resident command ) 




001227 


conflrmName = 250; 


Confirm name } 




001228 


lookupName = 251; 


Look up name on internet } 




001229 


removeName = 2 52; 


Remove name from Names Table ) 




001230 


registerNarae = 253; 


Register name in Names Table } 




001231 


killNBP = 254; 


Kill outstanding NBP request } 




001232 


unloadNBP = 255; 


Unload NBP command code } 




001233 


setSelfSend = 256; 


MPP: Set to allow writes to self ) 




001234 


SetMyZone = 257; 


Set ray zone name } 




001235 


GetATalklnfo = 258; 


get AppleTalk information ) 




001236 


ATalkClosePrep = 259; 


AppleTalk close query } 




001237 








001238 


{ .ATP csCodes ) 






001239 








001240 


nSendRequest = 248; 


NSendRequest code ) 




001241 


relRspCB = 249; 


Release RspCB ) 




001242 


closeATPSkt = 250; 


Close ATP socket ) 




001243 


addResponse ^ 251; 


Add response code I Require open skt } 




001244 


sendResponse ^ 252; 


Send response code } 




001245 


getRequest = 253; 


Get request code } 




001246 


openATPSkt = 254; 


Open ATP socket ) 




001247 


sendRequest ^ 255; 


Send request code } 




001248 


relTCB = 256; 


Release TCB ) 




001249 


killGetReq = 257; 


Kill GetRequest ) 




001250 


killSendReq = 258; 


Kill SendRequest ) 




001251 


killAllGetReq = 259; 


Kill all getRequests for a skt } 




001252 








001253 


{ .XPP csCodes ) 






001254 








001255 


openSess = 255; 


Open session ) 




001256 


closeSess = 254; 


Close session ) 




001257 


userCoramand ^ 253; 


User command ) 




001258 


userWrite = 252; 


User write } 




001259 


getStatus = 251; 


Get status } 




001260 


afpCall = 250; 


AFP command {buffer has command code) } 




001261 


getParms = 24 9; 


Get parameters } 




001262 


abortOS = 248; 


Abort open session request } 




001263 


closeAll = 247; 


Close all open sessions } 




001264 


xCall = 24 6; 


.XPP extended calls ) 




001265 








001266 


{ Transition Queue transition types } 






001267 


ATTransOpen = 0; 


AppleTalk has opened} 




001268 


ATTransClose = 2; 


AppleTalk is about to close) 




001269 


ATTransClosePrep = 3; 


Is it OK to close AppleTalk ?) 




001270 


ATTransCancelClose = 4; 


Cancel the ClosePrep transition) 




001271 








001272 


afpByteRangeLock ^ 1; 


AFPCall command codes) 




001273 


afpVolClose = 2; 


AFPCall command codes) 




001274 


afpDirClose = 3; 


AFPCall command codes) 




001275 


afpForkClose = 4; 


AFPCall command codes) 




001276 


afpCopyFile = 5; 


AFPCall command codes) 




001277 


afpDirCreate ^ 6; 


AFPCall command codes} 
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001278 


afpFileCreate = 7 




{AFPCall 


command 


codes ) 




001279 


afpDelete = 8; 




{AFPCall 


command 


codes} 




001280 


afpEnumerate ^ 9; 




{AFPCall 


command 


codes} 




001281 


afpFlush = 10; 




{AFPCall 


command 


codes} 




001282 


afpForkFlush = 11 


; 


{AFPCall 


command 


codes} 




001283 


afpGetDirParms = 


12; 


{AFPCall 


command 


codes} 




001284 


afpGetFileParms = 


13; 


{AFPCall 


command 


codes} 




001285 


afpGetForkParms ^ 


14; 


{AFPCall 


command 


codes} 




001286 


afpGetSInfo = 15; 




{AFPCall 


command 


codes} 




001287 


afpGetSParms = 16 




{AFPCall 


command 


codes} 




001288 


afpGetVolParms = 


17; 


{AFPCall 


command 


codes} 




001289 


afpLogin = 18; 




{AFPCall 


command 


codes} 




001290 


afpContLogin = 19 


; 


{AFPCall 


command 


codes} 




001291 


afpLogout ^ 20; 




{AFPCall 


command 


codes} 




001292 


afpMapID = 21; 




{AFPCall 


command 


codes} 




001293 


afpMapName = 22; 




{AFPCall 


command 


codes} 




001294 


afpMove ^ 23; 




{AFPCall 


command 


codes} 




001295 


afpOpenVol = 24; 




{AFPCall 


command 


codes} 




001296 


afpOpenDir = 25; 




{AFPCall 


command 


codes} 




001297 


afpOpenFork = 26; 




{AFPCall 


command 


codes} 




001298 


afpRead = 27; 




{AFPCall 


command 


codes} 




001299 


afpRename = 28; 




{AFPCall 


command 


codes} 




001300 


afpSetDirParms = 


29; 


{AFPCall 


command 


codes} 




001301 


afpSetFileParms = 


30; 


{AFPCall 


command 


codes} 




001302 


afpSetForkParms ^ 


31; 


{AFPCall 


command 


codes} 




001303 


afpSetVolParms = 


32; 


{AFPCall 


command 


codes} 




001304 


afpWrite = 33; 




{AFPCall 


command 


codes} 




001305 


afpGetFlDrParms = 


34; 


{AFPCall 


command 


codes} 




001306 


afpSetFlDrParms = 


35; 


{AFPCall 


command 


codes} 




001307 


afpDTOpen = 48; 




{AFPCall 


command 


codes} 




001308 


afpDTClose = 49; 




{AFPCall 


command 


codes} 




001309 


afpGetlcon = 51; 




{AFPCall 


command 


codes} 




001310 


afpGtIcnInfo = 52 




{AFPCall 


command 


codes} 




001311 


afpAddAPPL =53; 




{AFPCall 


command 


codes} 




001312 


afpRmvAPPL = 54; 




{AFPCall 


command 


codes} 




001313 


afpGetAPPL = 55; 




{AFPCall 


command 


codes} 




001314 


afpAddCmt = 56; 




{AFPCall 


command 


codes} 




001315 


a f pRmvCmt = 5 7; 




{AFPCall 


command 


codes} 




001316 


afpGetCmt = 58; 




{AFPCall 


command 


codes} 




001317 


afpAddlcon = 192; 




{ Special 


code for ASP Write commands } 




001318 














001319 


xppLoadedBit = 5; 




{ XPP bit in PortBUse ) 




001320 


scbMemSize = 192; 




{ Size of memory 


for SOB } 




001321 


xppFlagClr = 0; 




{ Cs for 


AFPCommandBlock } 




001322 


xppFlagSet = 128; 




{ StartEndFlag & 


NewLineFlag fields . } 




001323 














001324 


lapSlze = 20; 












001325 


ddpSize = 25; 












001326 


nbpSize = 26; 












001327 


atpSlze = 56; 












001328 














001329 


atpXOvalue = 32; 




{ATP exactly-once bit ) 




001330 


atpEOMvalue = 16; 




{ATP End- 


-Of-Message bit ) 




001331 


atpSTSvalue = 8; 




{ATP Send-Transmission-Status bit } 




001332 


atpTIDValidvalue 


= 2; 


{ATP trans. ID valid bit } 




001333 


atpSendChkvalue = 


1; 


{ATP send checksum bit ) 
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001334 
001335 
001336 
001337 
001338 
001339 
001340 
001341 
001342 
001343 
001344 
001345 
001346 
001347 
001348 
001349 
001350 
001351 
001352 
001353 
001354 
001355 
001356 
001357 
001358 
001359 
001360 
001361 
001362 
001363 
001364 
001365 
001366 
001367 
001368 
001369 
001370 
001371 
001372 
001373 
001374 
001375 
001376 
001377 
001378 
001379 
001380 
001381 
001382 
001383 
001384 
001385 
001386 
001387 
001388 
001389 



zipGetLocalZones - 5; 
zipGetZoneList — 6; 
zipGetMyZone = 7; 

LAPMgrPtr = $B18; 
LAPMgrCall = 2; 
LAddAEQ = 23; 
LRmvAEQ = 24; 



{Entry point for LAP Manager} 
{Offset to LAP routines) 
{LAPAddATQ routine selector) 
{LAPRmvATQ routine selector) 



TYPE 

ABCallType = (tLAPRead, tLAPWrite, tDDPRead, tDDPWrite, tNBPLookup, tNBPConf irm, 
tNBPRegister, tATPSndRequest , tATPGet Request, tATPSdRsp, tATPAddRsp, tATPRequest , 

tATPResponse) ; 

ABProtoType ^ ( lapProto, ddpProto, nbpProto, atpProto) ; 



ABByte 



1. .127; 



{next queue entry} 

{queue type) 

{pointer to your routine) 



LAPAdrBlock = PACKED RECORD 
dstNodelD: Byte; 
srcNodelD: Byte; 
lapProtType: ABByte; 
END; 

ATQEntryPtr = ^ATQEntry; 
ATQEntry = RECORD 

qLink: ATQEntryPtr; 

qType : INTEGER; 

CallAddr: ProcPtr; 

END; 

AddrBlock = PACKED RECORD 
aNet: INTEGER; 
aNode : Byte; 
aSocket : Byte; 
END; 

{ Real definition of EntityName is 3 PACKED strings of any lengtti (32 is just an example) . No 

of tests for Asm since each String address must be calculated by adding lengtti byte to last string ptr. 

In Pascal, String (32) will be 34 bytes long since fields never start on an odd byte unless ttiey are 

only a byte long. So this will generate correct looking interfaces for Pascal and C, but they will not 

be the same, which is OK since they are not used. } 

EntityPtr = ^EntityName; 

EntityName = RECORD 

objStr: Str32; 

typeStr: Str32; 

zoneStr: Str32; 

END; 

RetransType = PACKED RECORD 
retranslnterval : Byte; 
retransCount ; Byte; 
END; 
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001390 

0013 91 BDSElement = RECORD 

001392 buffSize: INTEGER; 

001393 buffPtr: Ptr; 

001394 dataSize: INTEGER; 

001395 userBytes: LONGINT; 
0013 9 6 END; 

001397 
001398 

0013 9 9 BDSType = ARRAY [0..7] OF BDSElement; 

001400 BDSPtr = ^BDSType; 

001401 BitMapType = PACKED ARRAY [0..7] OF BOOLEAN; 
001402 

001403 ABRecPtr = ^ABusRecord; 

001404 ABRecHandle = ''ABRecPtr; 

001405 ABusRecord = RECORD 

001406 abOpcode: ABCallType; 

001407 abResult: INTEGER; 

001408 abUserReference: LONGINT; 

001409 CASE ABProtoType OF 

001410 lapProto: 

001411 (lapAddress: LAPAdrBlock; 

001412 lapReqCount: INTEGER; 

001413 lapActCount: INTEGER; 

001414 lapDataPtr: Ptr); 

001415 ddpProto: 

001416 (ddpType: Byte; 

001417 ddpSocket: Byte; 

001418 ddpAddress: AddrBlock; 

001419 ddpReqCount: INTEGER; 

001420 ddpActCount: INTEGER; 

001421 ddpDataPtr: Ptr; 

001422 ddpNodelD: Byte); 

001423 nbpProto: 

001424 (nbpEntityPtr: EntityPtr; 

001425 nbpBufPtr: Ptr; 

001426 nbpBufSize: INTEGER; 

001427 nbpDataField: INTEGER; 

001428 nbpAddress: AddrBlock; 

001429 nbpRetransmitlnfo: RetransType) ; 

001430 atpProto: 

001431 (atpSocket: Byte; 

001432 atpAddress: AddrBlock; 

001433 atpReqCount: INTEGER; 

001434 atpDataPtr: Ptr; 

001435 atpRspBDSPtr: BDSPtr; 

001436 atpBitmap: BitMapType; 

001437 atpTransID: INTEGER; 

001438 atpActCount: INTEGER; 

001439 atpUserData: LONGINT; 

001440 atpXO: BOOLEAN; 

001441 atpEOM: BOOLEAN; 

001442 atpTimeOut : Byte; 

001443 atpRetrles: Byte; 

001444 atpNumBuf s : Byte; 
.001445 atpNumRsp: Byte; 
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001446 
001447 
001448 
001449 
001450 
001451 
001452 
001453 
001454 
001455 
001456 
001457 
001458 
001459 
001460 
001461 
001462 
001463 
001464 
001465 
001466 
001467 
001468 
001469 
001470 
001471 
001472 
001473 
001474 
001475 
001476 
001477 
001478 
001479 
001480 
001481 
001482 
001483 
001484 
001485 
001486 
001487 
001488 
001489 
001490 
001491 
001492 
001493 
001494 
001495 
001496 
001497 
001498 
001499 
001500 
001501 



atpBDSSize: Byte; 
atpRspUData: LONGINT; 
atpRspBuf: Ptr; 
atpRspSize: INTEGER); 
END; 

AFPCommandBlock = PACKED RECORD 
cradByte : Byte; 
startEndFlag: Byte; 
forkRefNum: INTEGER; 
rwOffset: LONGINT; 
reqCount: LONGINT; 
newLineFlag: Byte; 
newLineChar: CHAR; 
END; 

WDSElement = RECORD 
entryLength: INTEGER; 
entryPtr: Ptr; 
END; 

NamesTableEntry = RECORD 
qLink: QElemPtr; 
nteAddress: AddrBlock; 

nteData: PACKED ARRAY [1..100] OF CHAR; 
END; 

MPPParmType = (LAPWrlteParm, AttachPHParm, DetachPHParm, OpenSktParm, CloseSktParm, 
WriteDDPParm, OpenATPSktParm, CloseATPSktParm, SendRequestParm, GetRequestParm, 
SendResponseParm, AddResponseParm, RelTCBParm, RelRspCBParm^ RegisterNameParm, 
LookupNameParm, Conf irmNameParm, RemoveNameParm, SetSelf SendParm, NSendRequestParra, 
KillSendReqParm, KillGetReqParm, KillNBPParm, GetAppleTalkInf oParm, KillAllGetReqParm, 
ATalkClosePrepParm, CancelATalkClosePrepParm) ; 

MPPPBPtr = ^MPPParamBlock; 
MPPParamBlock = PACKED RECORD 
qLink: QElemPtr; 
qType : INTEGER; 
ioTrap: INTEGER; 
ioCmdAddr: Ptr; 
ioCompletion ; ProcPtr; 
ioResult: OSErr; 
ioNamePtr: StringPtr; 
ioVRefNum: INTEGER; 
ioRefNum: INTEGER; 
csCode: INTEGER; 
CASE MPPParmType OF 
LAPWrlteParm: 
(flllerO: INTEGER; 
wdsPointer: Ptr); 
AttachPHParm, DetachPHParm: 
(protType: Byte; 
fillerl: Byte; 
handler : Ptr) ; 
OpenSktParm, CloseSktParm, WriteDDPParm : 
{ socket : Byte; 



{next queue entry} 

{queue type} 

{routine trap} 

{routine address} 

{completion routine} 

{result code} 

{ ->f ilename } 

{volume reference or drive number} 

{driver reference number} 

{call command code AUTOMATICALLY set} 



{->Write Data Structure} 
{ALAP Protocol Type} 
{->protocol handler routine} 
{socket number} 
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001502 


checksumFlag: Byte; 


{checksum flag} 




001503 


listener : Ptr) ; 


{->socket listener routine} 




001504 


RegisterNameParra, LookupNameParm 


Conf irmNameParm, RemoveNameParm: 




001505 


{interval: Byte; 


{retry interval) 




001506 


count : Byte; 


{retry count} 




001507 


entltyPtr: Ptr; 


{->names table element or ->entity name} 




001508 


CASE MPPParmType OF 






001509 


RegisterNameParm: 






001510 


(verifyFlag: Byte; 


{set if verify needed} 




001511 


fillers: Byte); 






001512 


LookupNameParm: 






001513 


(retBuffPtr: Ptr; 


{->return buffer} 




001514 


retBuffSize: INTEGER; 


{return buffer size} 




001515 


maxToGet : INTEGER; 


{matches to get} 




001516 


numGotten: INTEGER); 


{matched gotten} 




001517 


Conf irmNameParra: 






001518 


(conf irmAddr : AddrBlock; 


{->entity} 




001519 


newSocket : Byte; 


{socket number} 




001520 


filler4 : Byte) ) ; 






001521 


SetSelfSendParm: 






001522 


(newSelfFlag: Byte; 


{self-send toggle flag} 




001523 


oldSelfFlag: Byte) ; 


{previous self-send state} 




001524 


KillNBPParm: 






001525 


(nKillQEl: Ptr) ; 


{ptr to Q element to cancel} 




001526 


GetAppleTalklnfoParm: 






001527 


(version: INTEGER; 


{requested info version} 




001528 


varsPtr: Ptr; 


{pointer to well known MPP vars} 




001529 


DCEPtr: Ptr; 


{pointer to MPP DCE } 




001530 


portID: INTEGER; 


{port number [0..7]} 




001531 


configuration: LONGINT; 


{32-bit configuration word} 




001532 


selfSend: INTEGER; 


{non zero if SelfSend enabled} 




001533 


netLo: INTEGER; 


{low value of network range} 




001534 


netHi: INTEGER; 


{high value of network range} 




001535 


ourAddr: LONGINT; 


{our 24-bit AppleTalk address} 




001536 


routerAddr: LONGINT; 


{24-bit address of (last) router} 




001537 


numOfPHs: INTEGER; 


{max. number of protocol handlers} 




001538 


numOfSkts: INTEGER; 


{max. number of static sockets} 




001539 


numNBPEs: INTEGER; 


{max. concurrent NBP requests} 




001540 


nlQueue: Ptr; 


{pointer to registered name queue} 




001541 


LAlength: INTEGER; 


{length in bytes of data link addr} 




001542 


linkAddr: Ptr; 


{data link address returned} 




001543 


zoneName : Ptr) ; 


{zone name returned} 




001544 


ATalkClosePrepParm: 






001545 


{appName : Ptr) ; 


{pointer to application name in buffer} 




001546 


END; 






001547 








001548 


ATPPBPtr = ^ATPParamBlock; 






001549 


ATPParamBlock = PACKED RECORD 






001550 


qLink: QElemPtr; 


{next queue entry} 




001551 


qType: INTEGER; 


{queue type} 




001552 


ioTrap: INTEGER; 


{routine trap} 




001553 


ioCmdAddr: Ptr; 


{routine address} 




001554 


ioCompletion : ProcPtr; 


{completion routine} 




001555 


ioResult: OSErr; 


{result code} 




001556 


userData: LONGINT; 


{ATP user bytes} 




001557 


regllD: INTEGER; 


{request transaction ID} 
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001558 


ioRefNum: INTEGER; 




{driver reference number) 




001559 


csCode: INTEGER; 




{Call command code automatically set) 




001560 


atpSocket: Byte; 




{currBitMap or socket number} 




001561 


CASE MPPParmType OF 








001562 


SendRequestParm, Ser 


dResponseParm, 


GetRequestParm, AddResponseParm, KillSendReqParm: 




001563 


(atpFlags: Byte; 




{control information} 




001564 


addrBlock: AddrBlock; 




{ source/dest . socket address) 




001565 


reqLength: INTEGER; 




{request/response length) 




001566 


reqPointer: Ptr; 




{-> request/response data} 




001567 


bdsPointer: Ptr; 




{-> response BDS) 




001568 


CASE MPPParmType OF 








001569 


SendRequestParm: 








001570 


(numOf Buffs: Byte; 




{number of responses expected} 




001571 


tlmeOutVal: Byte; 




{timeout interval} 




001572 


numOf Resps ; Byte; 




{number of responses actually received} 




001573 


retryCount; Byte; 




{number of retries} 




001574 


intBuff: INTEGER; 




{used internally for NSendRequest } 




001575 


TRelTime : Byte) ; 




{TRelease time for extended send request) 




001576 


SendResponseParm: 








001577 


(fillerO: Byte; 




{numOf Buffs) 




001578 


bdsSize: Byte; 




{number of BDS elements) 




001579 


transID: INTEGER); 




{transaction ID) 




001580 


GetRequestParm: 








001581 


(bitMap: Byte; 




{bit map) 




001582 


fillerl : Byte) ; 








001583 


AddResponseParm: 








001584 


(rspNum: Byte; 




{sequence number) 




001585 


filler2 : Byte) ; 








001586 


KillSendReqParm: 








001587 


(aKillQEl: Ptr) ) ; 




{ptr to Q element to cancel) 




001588 


END; 








001589 










001590 


XPPPrmBlkType = (XPPPrmBlk, ASPSizeBlk 


ASPAbortPrm, XCallParam) ; 




001591 










001592 


XPPSubPrmType = (ASPOpenPrm, ASPSubPrm 


; 




001593 










001594 


XPPEndPrmType = (AFPLoc 


inPrm, ASPEndPrm) ; 




001595 










001596 


XPPParmBlkPtr = ^XPPPar 


amBiock; 






001597 


XPPParamBlock = PACKED 


RECORD 






001598 


qLink: QElemPtr; 




{next queue entry} 




001599 


qType: INTEGER; 




{queue type) 




001600 


ioTrap: INTEGER; 




{routine trap} 




001601 


ioCmdAddr: Ptr; 




{routine address) 




001602 


ioCompletion ; ProcPtr; 




{completion routine) 




001603 


ioResult: OSErr; 




{result code) 




001604 


cmdResult: LONGINT; 




{command result (ATP user bytes) ) 




001605 


ioVRefNum: INTEGER; 




{volume reference or drive number} 




001606 


ioRefNum: INTEGER; 




{driver reference number) 




001607 


csCode: INTEGER; 




{call command code} 




001608 


CASE XPPPrmBlkType OF 








001609 


ASPAbortPrm: 








001610 


(abortSCBPtr: Ptr); 




{SCB pointer for AbortOS) 




001611 


ASPSizeBlk: 








001612 


(aspMaxCmdSize: INTEGER; 


{for SPGetParms) 




001613 


aspQuantumSize : INTEGER; 


{for SPGetParms) 
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001614 


numSesss: INTEGER); 




{for SPGetParms) 




001615 


XPPPrmBlk: 








001616 


(sessRefnum: INTEGER; 




(offset to session refnum} 




001617 


aspTimeout : Byte; 




(timeout for ATP) 




001618 


aspRetry: Byte; 




{retry count for ATP} 




001619 


CASE XPPSubPrmType OF 








001620 


ASPOpenPrm: 








001621 


(serverAddr : AddrBlock; 




{server address block} 




001622 


scbPointer: Ptr; 




{SCB pointer} 




001623 


attnRoutine: Ptr); 




{attention routine pointer} 




001624 


ASPSubPrm: 








001625 


(cbSize: INTEGER; 




{command block size} 




001626 


cbPtr: Ptr; 




{command block pointer} 




001627 


rbSize: INTEGER; 




{reply buffer size} 




001628 


rbPtr: Ptr; 




{reply buffer pointer} 




001629 


CASE XPPEndPrmType OF 








001630 


AFPLoginPrm: 








001631 


(afpAddrBlock: AddrBlock 




{address block in AFP login} 




001632 


afpSCBPtr: Ptr; 




{SCB pointer in AFP login} 




001633 


afpAttnRoutine : Ptr); 




{Attn routine pointer in AFP login} 




001634 


ASPEndPrm: 








001635 


(wdSize: INTEGER; 




{write data size} 




001636 


wdPtr: Ptr; 




(write data pointer} 




001637 


ccbStart: ARRAY [0..2 95] 


OF Byte) ) ) ; 


(afpWrite max size = 296, else 150} 




001638 


XCallParam: 








001639 


(xppSubCode: INTEGER; 








001640 


xppTimeout : Byte; 




(retry interval (seconds) } 




001641 


xppRetry: Byte; 




(retry count} 




001642 


fillerl: INTEGER; 




(word space for rent. see the super.} 




001643 


zipBuffPtr: Ptr; 




(pointer to buffer (must be 578 bytes)} 




001644 


zipNumZones : INTEGER; 




(no. of zone names in this response} 




001645 


zipLastFlag; Byte; 




(non-zero if no more zones} 




001646 


filler2: Byte; 




{filler} 




001647 


zipInfoField: PACKED ARRAY 


[1. .70] OF Byte 


); (on initial call, set first word to zero} 




001648 


END; 








001649 










001650 










001651 


FUNCTION OpenXPP (VAR xppRefnum: INTEGER): OSErr; 




001652 


FUNCTION ASPOpenSesslon (thePBptr: XPPParmBlkPtr; async : BOOLEAN): OSErr; 




001653 


FUNCTION ASPCloseSession (thePBptr: XPPParmBlkPtr; async : BOOLEAN): OSErr; 




001654 


FUNCTION ASPAbortOS (thePBptr 


XPPParmBlkPtr; 


async: BOOLEAN) : OSErr; 




001655 


FUNCTION ASPGetParms (thePBptr: XPPParmBlkPtr 


; async: BOOLEAN): OSErr; 




001656 


FUNCTION ASPCloseAll (thePBptr: XPPParmBlkPtr 


; async: BOOLEAN): OSErr; 




001657 


FUNCTION ASPUserWrite (thePBptr: XPPParmBlkPt 


r;async: BOOLEAN): OSErr; 




001658 


FUNCTION ASPUserCommand (thePBptr: XPPParmBlkPtr; async : BOOLEAN): OSErr; 




001659 


FUNCTION ASPGetStatus (thePBptr: XPPParmBlkPt 


r; async: BOOLEAN): OSErr; 




001660 


FUNCTION AFPCommand (thePBptr 


XPPParmBlkPtr; 


async: BOOLEAN): OSErr; 




001661 


FUNCTION GetLocalZones (thePBptr: XPPParmBlkPtr; async : BOOLEAN): OSErr; 




001662 


FUNCTION GetZoneList (thePBptr: XPPParmBlkPtr 


;async: BOOLEAN): OSErr; 




001663 


FUNCTION GetMyZone (thePBptr: 


XPPParmBlkPtr; async: BOOLEAN): OSErr; 




001664 


FUNCTION PAttachPH (thePBptr: 


MPPPBPtr; async: 


BOOLEAN) : OSErr; 




001665 


FUNCTION PDetachPH (thePBptr: 


MPPPBPtr; async: 


BOOLEAN) : OSErr; 




001666 


FUNCTION PWriteLAP (thePBptr: 


MPPPBPtr; async: 


BOOLEAN) : OSErr; 




001667 


FUNCTION POpenSkt (thePBptr: MPPPBPtr; async : 


BOOLEAN) : OSErr; 




001668 


FUNCTION PCloseSkt (thePBptr: 


MPPPBPtr; async: 


BOOLEAN) : OSErr; 




001669 


FUNCTION PWriteDDP (thePBptr: 


MPPPBPtr; async: 


BOOLEAN) : OSErr; 
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001670 
001671 
001672 
001673 
001674 
001675 
001676 
001677 
001678 
001679 
001680 
001681 
001682 
001683 
001684 
001685 
001686 
001687 
001688 
001689 
001690 
001691 
001692 
001693 
001694 
001695 
001696 
001697 
001698 
001699 
001700 
001701 
001702 
001703 
001704 
001705 
001706 
001707 
001708 
001709 
001710 
001711 
001712 
001713 
001714 
001715 
001716 
001717 
001718 
001719 
001720 
001721 
001722 
001723 
001724 
001725 



FUNCTION PRegisterName (thePBptr: MPPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PLookupName (thePBptr: MPPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PConfirmName (thePBptr: MPPPBPtr ; async : BOOLEAN): OSErr; 

FUNCTION PRemoveName (thePBptr: MPPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PSetSelf Send (thePBptr: MPPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PKillNBP (thePBptr: MPPPBPtr ; async : BOOLEAN): OSErr; 

FUNCTION PGetAppleTalklnfo (thePBptr: MPPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PATalkClosePrep (thePBptr: MPPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION POpenATPSkt (thePBptr: ATPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PCloseATPSkt (thePBPtr: ATPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PSendRequest (thePBPtr: ATPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PGetRequest (thePBPtr: ATPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PSendResponse (thePBPtr: ATPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PAddResponse (thePBPtr: ATPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PRelTCB (thePBPtr: ATPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PRelRspCB (thePBPtr: ATPPBPtr ; async : BOOLEAN): OSErr; 

FUNCTION PNSendRequest (thePBPtr: ATPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PKillSendReq (thePBPtr: ATPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION PKillGetReq (thePBPtr: ATPPBPtr; async : BOOLEAN): OSErr; 

FUNCTION ATPKillAllGetReq (thePBPtr: ATPPBPtr; async : BOOLEAN): OSErr; 

PROCEDURE BulldLAPwds (wdsPtr : Ptr;dataPtr: Ptr; destHost : INTEGER; prototype : INTEGER; 

frameLen: INTEGER); 
PROCEDURE BulldDDPwds (wdsPtr : Ptr ; headerPtr : Ptr;dataPtr: Ptr;netAddr: AddrBlock; 

ddpType: INTEGER; dataLen : INTEGER); 
PROCEDURE NBPSetEntity (buffer: Ptr; nbpOb ject : Str32; nbpType : Str32 ; nbpZone : Str32); 
PROCEDURE NBPSetNTE (ntePtr: Ptr; nbpOb ject : Str32 ; nbpType : Str32 ; nbpZone : Str32; 

socket: INTEGER) ; 

INTEGER; 

Ptr;bdsPtr: Ptr;buf f Size : INTEGER): INTEGER; 



Ptr) : OSErr; 



OSErr; 
OSErr; 



Ptr) : OSErr; 



FUNCTION GetBridgeAddress: 

FUNCTION BuildBDS (buff Ptr: 

FUNCTION MPPOpen: OSErr; 

FUNCTION MPPClose: OSErr; 

FUNCTION LAPOpenProtocol (theLAPType: ABByte;protoPtr : 

FUNCTION LAPCloseProtocol (theLAPType: ABByte) : OSErr; 

FUNCTION LAPWrite (abRecord: ABRecHandle; async : BOOLEAN) 

FUNCTION LAPRead (abRecord: ABRecHandle; async : BOOLEAN): 

FUNCTION LAPRdCancel (abRecord: ABRecHandle): OSErr; 

FUNCTION LAPAddATQ(theATQEntry : ATQEntryPtr) : OSErr; 

FUNCTION LAPRmvATQ (theATQEntry : ATQEntryPtr): OSErr; 

FUNCTION DDPOpenSocket (VAR theSocket : Byte; sktListener : 

FUNCTION DDPCloseSocket (theSocket : Byte): OSErr; 

FUNCTION DDPRead (abRecord: ABRecHandle; retCksumErrs : BOOLEAN; async : BOOLEAN): OSErr; 

FUNCTION DDPWrite (abRecord: ABRecHandle; doChecksum: BOOLEAN; async : BOOLEAN): OSErr; 

FUNCTION DDPRdCancel (abRecord: ABRecHandle): OSErr; 

FUNCTION ATPLoad: OSErr; 

FUNCTION ATPUnload: OSErr; 

FUNCTION ATPOpenSocket (addrRcvd: AddrBlock; VAR atpSocket : Byte): OSErr; 

FUNCTION ATPCloseSocket (atpSocket: Byte): OSErr; 

FUNCTION ATPSndRequest (abRecord: ABRecHandle; async : BOOLEAN): OSErr; 

FUNCTION ATPRequest (abRecord: ABRecHandle; async : BOOLEAN): OSErr; 

FUNCTION ATPReqCancel (abRecord: ABRecHandle; async : BOOLEAN): OSErr; 

FUNCTION ATPGetRequest (abRecord: ABRecHandle; async : BOOLEAN): OSErr; 

FUNCTION ATPSndRsp (abRecord: ABRecHandle; async : BOOLEAN): OSErr; 

FUNCTION ATPAddRsp (abRecord: ABRecHandle): OSErr; 

FUNCTION ATPResponse (abRecord: ABRecHandle; async : BOOLEAN): OSErr; 

FUNCTION ATPRspCancel (abRecord: ABRecHandle; async : BOOLEAN): OSErr; 

FUNCTION NBPReqister (abRecord: ABRecHandle; async : BOOLEAN): OSErr; 
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001726 FUNCTION NBPLookup (abRecord: ABRecHandle; async : BOOLEAN): OSErr; 

001727 FUNCTION NBPExtract (theBuffer: Ptr; numlnBuf : INTEGER; whichOne : INTEGER; 

001728 VAR abEntity: EntityName; VAR address: AddrBlock) : OSErr; 

001729 FUNCTION NBPConflrm(abRecord: ABRecHandle; async : BOOLEAN): OSErr; 

001730 FUNCTION NBPRemove (abEntity : EntityPtr) : OSErr; 

001731 FUNCTION NBPLoad: OSErr; 

001732 FUNCTION NBPUnload: OSErr; 

001733 FUNCTION GetNodeAddress (VAR myNode : INTEGER;VAR myNet : INTEGER): OSErr; 

001734 FUNCTION IsMPPOpen: BOOLEAN; 

001735 FUNCTION IsATPOpen: BOOLEAN; 

001736 PROCEDURE ATEvent (event : LONGINT; inf oPtr : Ptr); 

001737 FUNCTION ATPreFllghtEvent (event : LONGINT; cancel : LONGINT; inf oPtr : Ptr): OSErr; 
001738 

001739 

001740 {$ENDC) { UslngAppleTalk } 

001741 

001742 {$IFC NOT Usinglncludes ) 

00174 3 END. 

001744 {$ENDC} 

001745 

001746 

001747 ### END OF FILE AppleTalk.p 

001748 
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001749 

001750 ##################################################################### 

001751 ### FILE: Balloons. p 

001752 ##################################################################### 
001753 

001754 

001755 { 

001756 Created: Sunday, September 15, 1991 at 9:56 PM 

001757 Balloons. p 

001758 Pascal Interface to the Macintosh Libraries 
001759 

001760 Copyright Apple Computer, Inc. 1990-1991 

001761 All rights reserved 

001762 ) 
001763 
001764 

001765 {$IFC UNDEFINED Usinglncludes } 

001766 {$SETC Usinglncludes := 0} 

001767 {$ENDC) 
001768 

001769 {$IFC NOT Usinglncludes) 

001770 UNIT Balloons; 

001771 INTERFACE 

001772 {$ENDC} 
001773 

001774 {$IFC UNDEFINED UsingBalloons } 

001775 {$SETC UsingBalloons := 1} 
001776 

001777 {$1+) 

001778 {$SETC Balloonslncludes := Usinglncludes) 

001779 {$SETC Usinglncludes := 1} 

001780 {$IFC UNDEFINED UsingTypes} 

001781 {$1 5$Shell (PInterfaces) Types. p) 

001782 {$ENDC} 

001783 {$IFC UNDEFINED UsingQuickdraw} 

001784 {$1 $$Shell (PInterfaces) Quickdraw.p) 

001785 {$ENDC) 

001786 {$IFC UNDEFINED UsingMenus) 

001787 {$1 $$Shell (Plnterfaces)Menus.p) 

001788 {$ENDC) 

001789 {$IFC UNDEFINED UsingTextEdit } 

001790 {$1 $$Shell (PInterfaces) TextEdit .p) 

001791 {$ENDC) 

001792 {$IFC UNDEFINED UsingTraps) 

001793 {$1 $$Shell (PInterfaces) Traps. p) 

001794 {$ENDC) 

001795 {$SETC Usinglncludes := Balloonslncludes) 
001796 

001797 CONST 

001798 hmBalloonHelpVersion = $0002; { The real version of the Help Manager ) 
001799 

001800 {Help Mgr error range: -850 to -874) 

001801 hmHelpDisabled = -850; { Show Balloons mode was off, call to routine ignored } 

001802 hmBalloonAborted - -853; { Returned if mouse was moving or mouse wasn't in window port rect ) 

001803 hmSameAsLastBalloon ^ -854; { Returned from HMShowMenuBalloon if menu & item is same as last time } 
.001804 hmHelpManaqerNotlnited = -855; { Returned from HMGetHelpMenuHandle if help menu not setup ) 
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001805 


hmSkippedBalloon ^ -857; 


{ Returned from calls if helpmsg specified a skip balloon } 




001806 


hmWrongVersion = -858; 


{ Returned if help mgr resource was the wrong version } 




001807 


hmUnknownHelpType = -859; 


{ Returned if help msg record contained a bad type ) 




001808 


hmOperationUnsupported = -851; 


{ Returned from HMShowBalloon call if bad method passed to routine ) 




001809 


hmNoBalloonUp = -8 62; 


{ Returned from HMRemoveBalloon if no balloon was visible when call was made } 




001810 


hmCloseVlewActive = -8 63; 


{ Returned from HMRemoveBalloon if CloseView was active ) 




001811 








001812 


kHMHelpMenuID = -16490; 


{ Resource ID and menu ID of help menu ) 




001813 


kHMAboutHelpItem = 1; 


{ help menu item number of About Balloon Help... } 




001814 


kHMShowBalloonsItem = 3; 


{ help menu item number of Show/Hide Balloons } 




001815 








001816 


kHMHelpID = -5696; 


{ ID of various Help Mgr package resources (in Packl4 range) } 




001817 


kBalloonWDEFID = 126; 


{ Resource ID of the WDEF proc used in standard balloons } 




001818 








001819 


{ Dialog item template type constant } 




001820 


heipltem = 1; 


{ key value in DITL template that corresponds to the help item ) 




001821 








001822 


{ Options for Help Manager resources in ' hranu ' , ' hdlg ' , 'hrct', ' hovr ' , & 'hfdr' resources ) 




001823 


hmDef aultOptions ^ 0; 


{ default options for help manager resources } 




001824 


hmUseSubID = 1; 


{ treat resID's in resources as subID ' s of driver base ID {for Desk Accessories) } 




001825 


hmAbsoluteCoords = 2; 


{ ignore window port origin and treat rectangles as absolute coords (local to window) } 




001826 


hmSaveBitsNoWindow = 4; 


{ don't create a window, just blast bits on screen. No update event is generated } 




001827 


hmSaveBitsWindow ^ 8; 


{ create a window, but restore bits behind window when window goes away & generate update event } 




001828 


hmMatchlnTitle = 16; 


{ for hwin resources, match string anywhere in window title string ) 




001829 








001830 


{ Constants for Help Types in 


' hmnu ' , 'hdlg', 'hrct', ' hovr ' , & 'hfdr' resources } 




001831 


kHMStringltem = 1; 


{ pstring used in resource } 




001832 


kHMPlctltem = 2; 


{ 'PICT' ResID used in resource ) 




001833 


kHMStringResItem = 3; 


{ 'STR#' ResID & index used in resource ) 




001834 


kHMTEResItem = 6; 


{ Styled Text Edit ResID used in resource ('TEXT' s 'styl') ) 




001835 


kHMSTRResItem = 7; 


{ 'SIR ' ResID used in resource } 




001836 


kHMSkipItem = 256; 


{ don't display a balloon } 




001837 


kHMCompareltem = 512; 


{ Compare pstring in menu item w/ PString in resource item ('hmnu' only) } 




001838 


kHMNamedResourceltem = 1024; 


{ Use pstring in menu item to get ' STR# ' , 'PICT', or 'SIR ' resource {'hmnu' only) ) 




001839 


kHMTrackCntlltem = 2048; 


{ Reserved } 




001840 








001841 


{ Constants for hmrtiHelpType ' s 


when filling out HMMessageRecord } 




001842 


khmmString = 1; 


I help message contains a PString } 




001843 


khmmPict = 2; 


{ help message contains a resource ID to a 'PICT' resource ) 




001844 


khramStringRes ^ 3; 


{ help message contains a res ID s index to a ' STR# ' resource } 




001845 


khmmTEHandle = 4; 


{ help message contains a Text Edit handle } 




001846 


khramPictHandle = 5; 


{ help message contains a Picture handle } 




001847 


khmmTERes = 6; 


{ help message contains a res ID to 'TEXT' & 'styl' resources } 




001848 


khmmSTRRes = 7; 


{ help message contains a res ID to a ' SIR ' resource } 




001849 








001850 


{ ResTypes for Styled TE Handl 


es in Resources } 




001851 


kHMTETextResType = 'TEXT'; 


{ Resource Type of text data for styled TE record w/o style info } 




001852 


kHMTEStyleResType = ' styl ' ; 


{ Resource Type of style information for styled TE record } 




001853 








001854 


{ Generic defines for the stat 


e parameter used when extracting 'hmnu' & 'hdlg' messages } 




001855 


kHMEnabledltem = 0; 


{ item is enabled, but not checked or control value ^ } 




001856 


kHMDisabledltem = 1; 


{ item is disabled, grayed in menus or disabled in dialogs ) 




001857 


kHMCheckedltem = 2; 


I item is enabled, and checked or control value ^ 1 } 




001858 


kHMOtherltem = 3; 


I item is enabled, and control value > 1 } 




001859 








001860 


{ Resource Types for whichType 


parameter used when extracting 'hmnu' & 'hdlg' messages } 
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001861 kHMMenuResType — 'hmnu'; { ResType of help resource for supporting menus ) 

001862 kHMDialogResType ^ 'hdlg'; { ResType of help resource for supporting dialogs } 

001863 kHMWindListResType = 'hwin'; { ResType of help resource for supporting windows } 

001864 kHMRectListResType = 'hrct'; { ResType of help resource for rectangles in windows } 

001865 kHMOverrideResType — ' hovr ' ; { ResType of help resource for overriding system balloons } 

001866 kHMFinderApplResType ^ 'hfdr'; { ResType of help resource for custom balloon in Finder ) 
001867 

001868 { Method parameters to pass to HMShowBalloon } 

001869 kHMRegularWindow ^ 0; { Create a regular window floating above all windows } 

001870 kHMSaveBitsNoWindow = 1; { Just save the bits and draw (for MDEF calls) ) 

001871 kHMSaveBitsWindow ^ 2; { Regular window, save bits behind, AND generate update event } 
001872 

001873 TYPE 

001874 HMStringResType = RECORD 

001875 hmmResID: INTEGER; 
00187 6 hmmlndex: INTEGER; 
00187 7 END; 

001878 

00187 9 HMMessageRecPtr = -^HMMessageRecord; 

001880 HMMessageRecord = RECORD 

001881 hmmHelpType : INTEGER; 

001882 CASE INTEGER OF 

001883 khmmString: 

001884 (hmmString: STR255); 

001885 khmmPict: 

001886 (hmmPlct: INTEGER); 

001887 khmmStringRes: 

001888 (hmmStringRes: HMStringResType); 

001889 khmimTEHandle : 

001890 (hmmTEHandle: TEHandle); 

001891 khmmPictHandle: 

001892 (hmmPlctHandle: PicHandle) ; 

001893 khmmTERes: 

001894 (hmimTERes: INTEGER); 

001895 khmimSTRRes: 

001896 (hmmSTRRes: INTEGER); 

001897 END; 
001898 

001899 
001900 

001901 { Public Interfaces ) 

001902 FUNCTION HMGetHelpMenuHandle (VAR mh : MenuHandle) : OSErr; 

001903 INLINE $303C, $0200, _Packl4 ; 

001904 FUNCTION HMShowBalloon (aHelpMsg : HMMessageRecord; 

001905 tip: Point; 

001906 alternateRect : RectPtr; 

001907 tipProc: Ptr; 

001908 theProc: INTEGER; 

001909 variant: INTEGER; 

001910 method: INTEGER) : OSErr; 

001911 INLINE $303C, $0B01,_Packl4; 

001912 FUNCTION HMRemoveBalloon : OSErr; 

001913 INLINE $303C, $0002 , _Packl4 ; 

001914 FUNCTION HMGetBalloons : BOOLEAN; 

001915 INLINE $303C, $0003, _Packl4 ; 

.001916 FUNCTION HMSetBalloons ( f lag : BOOLEAN): OSErr; 
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001917 INLINE $303C, $0104,_Packl4; 

001918 FUNCTION HMShowMenuBalloon ( itemNum: INTEGER; 

001919 itemMenuID: INTEGER; 

001920 itemFlags: LONGINT; 

001921 itemReserved: LONGINT; 

001922 tip: Point; 

001923 alternateRect : RectPtr; 

001924 tipProc: Ptr; 

001925 theProc: INTEGER; 

001926 variant: INTEGER): OSErr; 

001927 INLINE $3030, $0E05, _Packl4 ; 

001928 FUNCTION HMGet IndHelpMsg (whichType : ResType; 

001929 whichResID: INTEGER; 

001930 whichMsg: INTEGER; 

001931 whichState: INTEGER; 

001932 VAR options: LONGINT; 

001933 VAR tip: Point; 

001934 VAR altRect: Rect; 

001935 VAR theProc: INTEGER; 

001936 VAR variant: INTEGER; 

001937 VAR aHelpMsg: HMMessageRecord; 

001938 VAR count: INTEGER): OSErr; 

001939 INLINE $303C, $1306, _Packl4 ; 

001940 FUNCTION HMIsBalloon: BOOLEAN; 

001941 INLINE $303C, $0007 , _Packl4 ; 

001942 FUNCTION HMSetFont ( f ont : INTEGER): OSErr; 

001943 INLINE $303C, $0108 , _Packl4 ; 

001944 FUNCTION HMSetFontSize ( font Size : INTEGER): OSErr; 

001945 INLINE $303C, $0109, _Packl4 ; 

001946 FUNCTION HMGetFont (VAR font: INTEGER): OSErr; 

001947 INLINE $303C, $020A, _Packl4 ; 

001948 FUNCTION HMGetFontSize (VAR fontSize: INTEGER): OSErr; 

001949 INLINE $303C, $020B, _Packl4 ; 

001950 FUNCTION HMSetDialogResID { resID : INTEGER): OSErr; 

001951 INLINE $303C, $0100, _Packl4 ; 

001952 FUNCTION HMSetMenuResID (menuID : INTEGER; 

001953 resID: INTEGER) : OSErr; 

001954 INLINE $303C, $020D, _Packl4 ; 

001955 FUNCTION HMBalloonRect (aHelpMsg : HMMessageRecord; 

001956 VAR coolRect: Rect): OSErr; 

001957 INLINE $303C, $04 OE, _Packl4 ; 

001958 FUNCTION HMBalloonPict (aHelpMsg : HMMessageRecord; 

001959 VAR coolPict: PicHandle): OSErr; 

001960 INLINE $303C, $04 OF, _Packl4 ; 

001961 FUNCTION HMScanTemplateltems (whichID : INTEGER; 

001962 whichResFile: INTEGER; 

001963 whichType: ResType) : OSErr; 

001964 INLINE $303C, $04 10, _Packl4 ; 

001965 FUNCTION HMExtractHelpMsg (whichType : ResType; whichResID : INTEGER; whichMsg: INTEGER; 

001966 whichState: INTEGER; VAR aHelpMsg: HMMessageRecord): OSErr; 

001967 INLINE $303C, $0711 , _Packl4 ; 

001968 FUNCTION HMGetDialogResID ( VAR resID: INTEGER): OSErr; 

001969 INLINE $303C, $02 13, _Packl4 ; 

001970 FUNCTION HMGetMenuResID (menuID : INTEGER; VAR resID: INTEGER): OSErr; 

001971 INLINE $303C, $0314 , _Packl4 ; 

001972 FUNCTION HMGetBalloonWindow (VAR window: WindowPtr) : OSErr; 
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001973 INLINE $303C, $0215, _Packl4 ; 

001974 

001975 

001976 {$ENDC) { UslngBalloons ) 

001977 

001978 {$IFC NOT Usinglncludes ) 

001979 END. 

001980 {$ENDC} 
001981 

001982 

001983 ### END OF FILE Balloons. p 

001984 
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001985 

00198 6 ##################################################################### 

001987 ### FILE: CommResources . p 

001988 ##################################################################### 
001989 

001990 

001991 { 

001992 Created: Thursday, September 12, 1991 at 11:54 AM 

001993 CommResources . p 

001994 Pascal Interface to the Macintosh Libraries 
001995 

001996 Copyright Apple Computer, Inc. 1988-1991 

001997 All rights reserved 

001998 ) 
001999 
002000 

002001 {$IFC UNDEFINED Usinglncludes } 

002002 {$SETC Usinglncludes := 0} 

002003 {$ENDC) 
002004 

002005 {$IFC NOT Usinglncludes) 

002006 UNIT CommResources; 

002007 INTERFACE 

002008 {$ENDC} 
002009 

002010 {$IFC UNDEFINED UsingCommResources } 

002011 {$SETC UsingCommResources := 1) 
002012 

002013 {$!+) 

002014 {$SETC CommResourcesIncludes := Usinglncludes} 

002015 {$SETC Usinglncludes := 1} 

002016 {$IFC UNDEFINED UsingOSUtils ) 

002017 {$1 5$Shell (Plnterfaces)OSUtils.p} 

002018 {$ENDC) 

002019 {$SETC Usinglncludes := CommResourcesIncludes} 
002020 

002021 CONST 
002022 

002023 { version of the Coram Resource Manager } 

002024 curCRMVersion = 2 ; 
002025 

002026 { tool classes (also the tool file types) ) 

002027 classCM = 'cbnd'; 

002028 classFT = 'fbnd'; 

002029 classTM = 'tbnd'; 
002030 

002031 { constants general to the use of the Communications Resource Manager } 

002032 crraType = 9; { queue type ) 

002033 crraRecVersion - 1; { version of queue structure } 
002034 

002035 { error codes } 

002036 crraGenericError ^ -1; 

002037 crraNoErr = 0; 
002038 

002039 TYPE 
.002040 { data structures general to the use of the Coramunications Resource Manager 
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002041 
002042 
002043 
002044 
002045 
002046 
002047 
002048 
002049 
002050 
002051 
002052 
002053 
002054 
002055 
002056 
002057 
002058 
002059 
002060 
002061 
002062 
002063 
002064 
002065 
002066 
002067 
002068 
002069 
002070 
002071 
002072 
002073 
002074 
002075 
002076 
002077 
002078 
002079 
002080 
002081 
002082 
002083 
002084 
002085 
002086 
002087 
002088 
002089 
002090 
002091 
002092 
002093 
002094 
002095 
002096 



CRMErr = OSErr; 

CRMRecPtr = ^CRMRec; 
CRMRec = RECORD 

qLink: QElemPtr; 

qType : INTEGER; 

crmVersion: INTEGER; 

crmPrivate: LONGINT; 

crmReserved: INTEGER; 

crmDeviceType : LONGINT; 

crmDevicelD: LONGINT; 

crmAttributes: LONGINT; 

crmStatus: LONGINT; 

crmRefCon: LONGINT; 

END; 



{ reserved} 

{queue type — ORD(crmType) = 9) 

{version of queue element data structure} 

{ reserved} 

{ reserved} 

{type of device, assigned by DTS} 

{device ID; assigned when CRMInstall is called} 

{pointer to attribute block} 

{status variable - device specific} 

{for device private use} 



FUNCTION InltCRM: CRMErr; 

FUNCTION CRMGetHeader: QHdrPtr; 

PROCEDURE CRMInstall (crmReqPtr: QElemPtr); 

FUNCTION CRMRemove (crmReqPtr : QElemPtr): OSErr; 

FUNCTION CRMSearch (crmReqPtr : QElemPtr): QElemPtr; 

FUNCTION CRMGetCRMVersion: INTEGER; 

FUNCTION CRMGetResource (theType: ResType; thelD : INTEGER): Handle; 
FUNCTION CRMGetlResource (tlielype: ResType; thelD : INTEGER): Handle; 



Handle; 
: Handle; 
Handle; 
Handle; 



FUNCTION CRMGetlndResource (theType: ResType; index: INTEGER): 

FUNCTION CRMGetllndResource (theType: ResType; index : INTEGER) 

FUNCTION CRMGetNamedResource (theType : ResType; name : Str255): 

FUNCTION CRMGetlNamedResource (theType: ResType; name : Str255) 

PROCEDURE CRMReleaseResource (theHandle: Handle); 

FUNCTION CRMGetToolResource (procID: INTEGER; theType : ResType; thelD : INTEGER): Handle; 

FUNCTION CRMGetToolNamedResource (procID: INTEGER; theType : ResType; name : Str255): Handle; 

PROCEDURE CRMReleaseToolResource (procID: INTEGER; theHandle : Handle); 

FUNCTION CRMGetlndex (theHandle: Handle): LONGINT; 

FUNCTION CRMLocalToReallD (bundlelype: ResType; toolID : INTEGER; theType : ResType; 

locallD: INTEGER): INTEGER; 
FUNCTION CRMRealToLocallD (bundlelype: ResType; toolID : INTEGER; theType : ResType; 

reallD: INTEGER): INTEGER; 

FUNCTION CRMGetlndToolName (bundlelype: OSType; index : INTEGER;VAR toolName: Str255): OSErr; 

FUNCTION CRMFindCommunications (VAR vRefNum: INTEGER; VAR dlrlD: LONGINT): OSErr; 

FUNCTION CRMIsDrlverOpen (drlverName: Str255): BOOLEAN; 

FUNCTION CRMParseCAPSResource (theHandle: Handle; selector : ResType;VAR value: LONGINT): CRMErr; 

FUNCTION CRMReserveRF (refNum: INTEGER): OSErr; 

{ decrements useCount by one } 

FUNCTION CRMReleaseRF (refNum: INTEGER): OSErr; 
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002097 {$ENDC) { UsingCommResources } 
002098 

002099 {$IFC NOT Uslnglncludes ) 

002100 END. 

002101 {$ENDC} 
002102 

002103 

002104 ### END OF FILE CommResources . p 

002105 
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002106 

002107 ##################################################################### 

002108 ### FILE: Connections. p 

00210 9 ##################################################################### 

002110 

002111 

002112 { 

002113 Created: Wednesday, September 11, 1991 at 11:34 AM 

002114 Connections .p 

002115 Pascal Interface to the Macintosh Libraries 
002116 

002117 Copyright Apple Computer, Inc. 1988-1991 

002118 All rights reserved 

002119 ) 
002120 
002121 

002122 {$IFC UNDEFINED Usinglncludes } 

002123 {$SETC Usinglncludes := 0} 

002124 {$ENDC) 
002125 

002126 {$IFC NOT Usinglncludes) 

002127 UNIT Connections; 

002128 INTERFACE 

002129 {$ENDC} 
002130 

002131 {$IFC UNDEFINED UsingConnections ) 

002132 {$SETC UsingConnections := 1) 
002133 

002134 {$!+) 

002135 {$SETC Connectionslncludes := Usinglncludes) 

002136 {$SETC Usinglncludes := 1} 

002137 {$IFC UNDEFINED UsingDialogs ) 

002138 {$1 5$Shell (Plnterfaces)Dialogs.p} 

002139 {$ENDC} 

002140 {$IFC UNDEFINED UsingCTBUtilities } 

002141 {$1 5$Shell (Plnterfaces)CTBUtilities .p} 

002142 {$ENDC} 

002143 {$SETC Usinglncludes := Connectionslncludes) 
002144 

002145 CONST 
002146 

002147 { current Connection Manager version ) 

002148 curCMVersion = 2; 
002149 

002150 { current Connection Manager Environment Record version ) 

002151 curConnEnvRecVers = 0; 
002152 

002153 { CMErr ) 

002154 cmGenericError = -1; 

002155 cmNoErr = 0; 

002156 cmRejected = 1; 

002157 cmFailed = 2; 

002158 cmTimeOut = 3; 

002159 cmNotOpen = 4; 

002160 cmNotClosed = 5; 
.002161 cmNoRequestPendinq = 6; 
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002162 


cmNotSupported = 7; 






002163 


cmNoTools = 8; 






002164 


cmUserCancel ^ 9; 






002165 


cmUnknownError = 11; 






002166 








002167 


TYPE 






002168 


CMErr = OSErr; 






002169 








002170 


CONST 






002171 








002172 


{ Low word of CMRecFlags is same as CMChannel } 




002173 


cmData = $00000001; 






002174 


cmCntl = $00000002; 






002175 


cmAttn = $00000004; 






002176 


cmDataNoTimeout = $00000010; 






002177 


cmCntlNoTlmeout = $00000020; 






002178 


cmAttnNoTlmeout = $00000040; 






002179 


cmDataClean = $00000100; 






002180 


cmCntlClean = $00000200; 






002181 


cmAttnClean = $00000400; 






002182 








002183 


{ only for CMRecFlags (not CMChannel) below this point ) 




002184 


cmNoMenus = $00010000; 






002185 


cmQuiet = $00020000; 






002186 


cmConfigChanged = $00040000; 






002187 








002188 


TYPE 






002189 


CMRecFlags = LONGINT; 






002190 








002191 








002192 


CMChannel = INTEGER; 






002193 








002194 


CONST 






002195 








002196 


{ CMStatFlags ) 






002197 


cmStatusOpening = $00000001; 






002198 


cmStatusOpen = $00000002; 






002199 


cmStatusClosing = $00000004; 






002200 


cmStatusDataAvail = $00000008; 






002201 


cmStatusCntlAvail = $00000010; 






002202 


cmStatusAttnAvail = $00000020; 






002203 


cmStatusDRPend = $00000040 




{data read pending} 




002204 


cmStatusDWPend = $00000080 




{data write pending) 




002205 


cmStatusCRPend = $00000100 




{cntl read pending} 




002206 


cmStatusCWPend = $00000200 




{cntl write pending) 




002207 


cmStatusARPend = $00000400 




{attn read pending} 




002208 


cmStatusAWPend = $00000800 




{attn write pending) 




002209 


cmStatusBreakPend = $00001000; 






002210 


cmStatusListenPend = $00002000 


; 




002211 


cmStatusIncomingCallPresent ^ 


$00004000; 




002212 


cmStatusReservedO = $00008000; 






002213 








002214 


TYPE 






002215 


CMStatFlags = LONGINT; 






002216 








002217 


CMBufFields = (cmDataIn, cmDataOut, cmCntlln, cmCntlOut, cmAttnIn, cmAttnOut, 
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002218 cmRsrvIn, cmRsrvOut) ; 

002219 

002220 

002221 CMBuffers = ARRAY [CMBuf Fields] OF Ptr; 

002222 CMBuf ferSizes = ARRAY [CMBuf Fields ] OF LONGINT; 
002223 

002224 CONST 
002225 

002226 { CMSearchFlags ) 

002227 cmSearchSevenBit = $0001; 
002228 

002229 TYPE 

002230 CMSearchFlags = INTEGER; 
002231 

002232 

002233 CONST 

002234 

002235 { CMFlags } 

002236 cmFlagsEOM = $0001; 
002237 

002238 TYPE 

002239 CMFlags = INTEGER; 
002240 

002241 

002242 ConnEnvlronRecPtr - ^ConnEnvlronRec; 

002243 ConnEnvlronRec = RECORD 

002244 version: INTEGER; 

002245 baudRate: LONGINT; 

002246 dataBlts: INTEGER; 

002247 channels: CMChannel; 

002248 swFlowControl: BOOLEAN; 

002249 hwFlowControl: BOOLEAN; 

002250 flags: CMFlags; 

002251 END; 
002252 

002253 ConnPtr = ^ConnRecord; 

002254 ConnHandle = -^ConnPtr; 

002255 ConnRecord = RECORD 

002256 procID: INTEGER; 

002257 flags: CMRecFlags; 

002258 errCode: CMErr; 

002259 refCon: LONGINT; 

002260 userData: LONGINT; 

002261 defProc: ProcPtr; 

002262 conflg: Ptr; 

002263 oldConflg: Ptr; 

002264 asyncEOM: LONGINT; 

002265 reservedl: LONGINT; 

002266 reserved2: LONGINT; 

002267 cmPrlvate: Ptr; 

002268 bufferArray: CMBuffers; 

002269 bufSlzes: CMBuf ferSlzes ; 

002270 mluFleld: LONGINT; 

002271 asyncCount : CMBuf ferSlzes; 

002272 END; 
^02273 
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002274 

002275 { application routines type definitions } 

002276 ConnectionSearchCallBackProcPtr = ProcPtr; 

002277 ConnectionCompletionProcPtr = ProcPtr; 

002278 ConnectionChooseldleProcPtr = ProcPtr; 
002279 

002280 CONST 
002281 

002282 { CMIOPB constants and structure } 

002283 cmlOPBQType = 10; 

002284 cmlOPBversion = 0; 
002285 

002286 TYPE 

002287 CMIOPBPtr = ^CMIOPB; 

002288 CMIOPB = RECORD 

002289 qLink: QElemPtr; 

002290 qType: INTEGER; { cmlOPBQType } 

002291 hConn: ConnHandle; 

002292 theBuffer: Ptr; 

002293 count: LONGINT; 

002294 flags: CMFlags; 

002295 userCompletion : ConnectionCompletionProcPtr; 

002296 timeout: LONGINT; 

002297 errCode: CMErr; 

002298 channel: CMChannel; 

002299 asyncEOM: LONGINT; 

002300 reservedl: LONGINT; 

002301 reserved2: INTEGER; 

002302 version: INTEGER; { cmlOPBversion ) 

002303 refCon: LONGINT; { for application ) 

002304 toolDatal: LONGINT; { for tool ) 

002305 toolData2: LONGINT; { for tool ) 

002306 END; 
002307 
002308 

002309 FUNCTION InitCM: CMErr; 

002310 FUNCTION CMGetVersion (hConn : ConnHandle): Handle; 

002311 FUNCTION CMGetCMVersion : INTEGER; 
002312 

002313 FUNCTION CMNew (procID : INTEGER; flags : CMRecFlags; desiredSizes : CMBuf f erSizes; 

002314 refCon: LONGINT; userData : LONGINT): ConnHandle; 
002315 

002316 PROCEDURE CMDlspose (hConn : ConnHandle); 
002317 

002318 FUNCTION CMListen (hConn : ConnHandle; async : BOOLEAN; completer : ConnectionCompletionProcPtr; 

002319 timeout: LONGINT): CMErr; 

002320 FUNCTION CMAccept (hConn : ConnHandle; accept : BOOLEAN): CMErr; 
002321 

002322 FUNCTION CMOpen (hConn : ConnHandle; async : BOOLEAN; completer : ConnectionCompletionProcPtr; 

002323 timeout: LONGINT): CMErr; 

002324 FUNCTION CMClose (hConn : ConnHandle; async : BOOLEAN; completer : ConnectionCompletionProcPtr; 

002325 timeout: LONGINT;now: BOOLEAN): CMErr; 
002326 

002327 FUNCTION CMAbort (hConn : ConnHandle): CMErr; 
002328 

.002329 FUNCTION CMStatus (hConn : ConnHandle; VAR sizes: CMBuf ferSizes ; VAR flags: CMStatFlags) : CMErr; 
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002330 PROCEDURE CMIdle (hConn : ConnHandle ) ; 

002331 

002332 PROCEDURE CMReset (hConn : ConnHandle); 

002333 

002334 PROCEDURE CMBreak (hConn : ConnHandle; duration : LONGINT; async : BOOLEAN; completer : Connect ionCompletlonProcPtr) 

002335 

002336 FUNCTION CMRead (hConn : ConnHandle; theBuffer : Ptr;VAR toRead: LONGINT; theChannel : CMChannel; 

002337 async: BOOLEAN; completer : ConnectionCompletlonProcPtr; timeout : LONGINT; 

002338 VAR flags: CMFlags): CMErr; 

002339 FUNCTION CMWrite (hConn : ConnHandle; theBuffer : Ptr;VAR toWrite: LONGINT; 

002340 theChannel: CMChannel; async : BOOLEAN; completer : ConnectionCompletlonProcPtr; 

002341 timeout: LONGINT; flags : CMFlags): CMErr; 
002342 

002343 FUNCTION CMIOKill (hConn : ConnHandle; which : INTEGER): CMErr; 
002344 

002345 PROCEDURE CMActivate (hConn : ConnHandle; activate : BOOLEAN); 

002346 PROCEDURE CMResume (hConn : ConnHandle; resume : BOOLEAN); 

002347 FUNCTION CMMenu (hConn : ConnHandle; menuID : INTEGER; item: INTEGER): BOOLEAN; 
002348 

002349 FUNCTION CMValidate (hConn : ConnHandle): BOOLEAN; 

002350 PROCEDURE CMDefault (VAR theConfig: Ptr;procID: INTEGER; allocate : BOOLEAN); 
002351 

002352 FUNCTION CMSetupPref light (procID : INTEGER; VAR maglcCookie: LONGINT): Handle; 

002353 FUNCTION CMSetupFllter (procID : INTEGER; theConfig : Ptr; count: INTEGER; theDialog: DialogPtr; 

002354 VARtheEvent: EventRecord;VAR theltem: INTEGER; VAR maglcCookie: LONGINT): BOOLEAN; 

002355 PROCEDURE CMSetupSetup (procID : INTEGER; theConfig : Ptr;count: INTEGER; theDialog: DialogPtr; 

002356 VAR maglcCookie: LONGINT); 

002357 PROCEDURE CMSetupItem (procID : INTEGER; theConfig : Ptr;count: INTEGER; theDialog: DialogPtr; 

002358 VAR theltem: INTEGER; VAR maglcCookie: LONGINT); 

002359 PROCEDURE CMSetupXCleanup (procID : INTEGER; theConfig: Ptr;count: INTEGER; 

002360 theDialog: DialogPtr; OKed: BOOLEAN; VAR maglcCookie: LONGINT); 

002361 PROCEDURE CMSetupPost flight (procID : INTEGER); 
002362 

002363 FUNCTION CMGetConf ig (hConn : ConnHandle): Ptr; 

002364 FUNCTION CMSetConf ig (hConn : ConnHandle; thePtr : Ptr): INTEGER; 
002365 

002366 FUNCTION CMIntlToEnglish (hConn : ConnHandle; inputPtr : Ptr; VAR outputPtr: Ptr; 

002367 language: INTEGER) : OSErr; 

002368 FUNCTION CMEnglishToInt 1 (hConn : ConnHandle; inputPtr : Ptr; VAR outputPtr: Ptr; 

002369 language: INTEGER) : OSErr; 
002370 

002371 FUNCTION CMAddSearch (hConn : ConnHandle; theString : Str255; flags : CMSearchFlags; 

002372 callBack: ConnectionSearchCallBackProcPtr) : LONGINT; 

002373 PROCEDURE CMRemoveSearch (hConn : ConnHandle; refnum: LONGINT); 

002374 PROCEDURE CMClearSearch (hConn : ConnHandle); 
002375 

002376 FUNCTION CMGetConnEnvirons (hConn : ConnHandle; VAR theEnvirons : ConnEnvironRec) : CMErr; 

002377 

002378 FUNCTION CMChoose (VAR hConn: ConnHandle; where : Point ; idleProc : ConnectionChooseldleProcPtr) : INTEGER; 

002379 

002380 PROCEDURE CMEvent (hConn : ConnHandle; theEvent : EventRecord) ; 

002381 

002382 PROCEDURE CMGetToolName (procID : INTEGER; VAR name: Str255); 

002383 FUNCTION CMGetProcID (name : Str255): INTEGER; 
002384 

.002385 PROCEDURE CMSetRef Con (hConn : ConnHandle; ref Con : LONGINT); 
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002386 FUNCTION CMGetRef Con (hConn : ConnHandle): LONGINT; 
002387 

002388 FUNCTION CMGetUserData (hConn : ConnHandle): LONGINT; 

002389 PROCEDURE CMSetUserData (hConn : ConnHandle; userData : LONGINT); 
002390 

002391 PROCEDURE CMGetErrorString (hConn : ConnHandle; Id : INTEGER;VAR errMsg: Str255); 
002392 

002393 FUNCTION CMNewIOPB (hConn : ConnHandle; VAR thelOPB: CMIOPBPtr) : CMErr; 

002394 FUNCTION CMDlsposelOPB (hConn : ConnHandle; thelOPB : CMIOPBPtr): CMErr; 
002395 

002396 FUNCTION CMPBRead (hConn : ConnHandle; thelOPB : CMIOPBPtr; async : BOOLEAN): CMErr; 

002397 FUNCTION CMPBWrite (hConn : ConnHandle; thelOPB : CMIOPBPtr; async : BOOLEAN): CMErr; 

002398 FUNCTION CMPBIOKill (hConn : ConnHandle; thelOPB : CMIOPBPtr): CMErr; 
002399 

002400 

002401 {$ENDC) { UslngConnections ) 

002402 

002403 {$IFC NOT Uslnglncludes) 

002404 END. 

002405 {$ENDC} 
002406 

002407 

002408 ### END OF FILE Connections . p 

002409 
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002410 






002411 


##################################################################### 




002412 


### FILE: ConnectionTools.p 




002413 


##################################################################### 




002414 






002415 






002416 


{ 




002417 


Created: Wednesday, September 11, 1991 at 1:48 PM 




002418 


ConnectionTools .p 




002419 


Pascal Interface to the Macintosh Libraries 




002420 






002421 


Copyright Apple Computer, Inc. 1988-1991 




002422 


All rights reserved 




002423 


) 




002424 






002425 






002426 


{$IFC UNDEFINED Usinglncludes } 




002427 


{$SETC Usinglncludes := 0} 




002428 


{$ENDC) 




002429 






002430 


{$IFC NOT Usinglncludes) 




002431 


UNIT ConnectionTools; 




002432 


INTERFACE 




002433 


{$ENDC} 




002434 






002435 


{$IFC UNDEFINED UsingConnectionTools ) 




002436 


{$SETC UsingConnectionTools := 1) 




002437 






002438 


{$!+) 




002439 


{$SETC ConnectionToolsIncludes := Usinglncludes) 




002440 


{$SETC Usinglncludes := 1} 




002441 


{$IFC UNDEFINED UsingDialogs ) 




002442 


{$1 $$ Shell (P Interfaces) Dialogs. p} 




002443 


{$ENDC} 




002444 


{$IFC UNDEFINED UsingConnections ) 




002445 


{ $1 $$ Shell (P Interfaces) Connections .p} 




002446 


{$ENDC) 




002447 


{$SETC Usinglncludes := ConnectionToolsIncludes) 




002448 






002449 


CONST 




002450 






002451 


{ messages for DefProc ) 




002452 


cmlnitMsg ^ 0; 




002453 


cmDisposeMsg ^ 1; 




002454 


cmSuspendMsg ^ 2; 




002455 


cmResumeMsg ^ 3; 




002456 


cmMenuMsg ^ 4; 




002457 


cmEventMsg ^ 5; 




002458 


cmActivateMsg ^ 6; 




002459 


cmDeactivateMsg ^ 7; 




002460 






002461 


cmldleMsg ^ 50; 




002462 


cmResetMsg = 51; 




002463 


cmAbortMsg ^ 52; 




002464 






002465 


cmReadMsg = 100; 


J 
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002466 
002467 
002468 
002469 
002470 
002471 
002472 
002473 
002474 
002475 
002476 
002477 
002478 
002479 
002480 
002481 
002482 
002483 
002484 
002485 
002486 
002487 
002488 
002489 
002490 
002491 
002492 
002493 
002494 
002495 
002496 
002497 
002498 
002499 
002500 
002501 
002502 
002503 
002504 
002505 
002506 
002507 
002508 
002509 
002510 
002511 
002512 
002513 
002514 
002515 
002516 
002517 
002518 
002519 
002520 
002521 



cmWriteMsg = 101; 
cmStatusMsg = 102; 
cmListenMsg ^ 103; 
cmAcceptMsg = 104; 
cmCloseMsg = 105; 
cmOpenMsg ^ 106; 
cmBreakMsg = 107; 
cmlOKillMsg = 108; 
cmEnvironsMsg - 109; 

{ new connection tool messages for ctb 1.1 

cmNewIOPBMsg = 110; 

cmDisposelOPBMsg = 111; 

cmGetErrorStringMsg = 112; 

cmPBReadMsg = 113; 

cmPBWriteMsg = 114; 

cmPBIOKillMsg = 115; 

{ messages for validate DefProc } 
cmValidateMsg ^ 0; 
cmDefaultMsg ^ 1; 

{ messages for Setup DefProc } 

cmSpref lightMsg = 0; 

cmSsetupMsg = 1; 

cmSitemMsg = 2; 

cmSfilterMsg = 3; 

cmScleanupMsg - 4; 

{ messages for scripting defProc ) 
cmMgetMsg = 0; 
cmMsetMsg = 1; 

{ messages for localization defProc } 
cmL2English — 0; 
cmL2Intl = 1; 

{ private data constants ) 



cdefType = 

cvalType = 

csetType = 

clocType = 

cscrType ^ 



cdef ' 
cval ' 
cset ' 
cloc ' 
cscr ' 



) 



{ main connection definition procedure 

{ validation definition procedure } 

{ connection setup definition procedure } 

{ connection configuration localization defProc 

{ connection scripting defProc interfaces } 



cbndType = 'cbnd' 
cverType - 'vers' 



{ bundle type for connection 



) 



TYPE 

CMDataBuf ferPtr = ''CMDataBuf f er; 

CMDataBuffer = RECORD 

thePtr: Ptr; 

count: LONGINT; 

channel: CMChannel; 

flags: CMFlags; 

END; 
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002522 CMCompletorPtr = -^CMCompletorRecord; 

002523 CMCompletorRecord = RECORD 

002524 async: BOOLEAN; 

002525 completionRoutine : ProcPtr; 

002526 END; 
002527 

002528 { Private Data Structure } 
002529 

002530 CMSetupPtr = -^CMSetupStruct ; 

002531 CMSetupStruct = RECORD 

002532 theDlalog: DlalogPtr; 

002533 count: INTEGER; 

002534 theConflg: Ptr; 

002535 procID: INTEGER; { procID of the tool } 

002536 END; 
002537 
002538 
002539 

002540 {$ENDC) { UslngConnectlonTools ) 
002541 

002542 {$IFC NOT Uslnglncludes ) 

002543 END. 

002544 {$ENDC} 
002545 

002546 

002547 ### END OF FILE ConnectlonTools . p 

002548 
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002549 

002550 ##################################################################### 

002551 ### FILE: Controls. p 

002552 ##################################################################### 
002553 

002554 { 

002555 Created: Sunday, January 6, 1991 at 10:25 PM 

002556 Controls. p 

002557 Pascal Interface to the Macintosh Libraries 
002558 

002559 Copyright Apple Computer, Inc. 1985-1990 

002560 All rights reserved 

002561 ) 
002562 
002563 

002564 {$IFC UNDEFINED Usinglncludes } 

002565 {$SETC Usinglncludes := 0} 

002566 {$ENDC} 
002567 

002568 {$IFC NOT Usinglncludes} 

002569 UNIT Controls; 

002570 INTERFACE 

002571 {$ENDC) 
002572 

002573 {$IFC UNDEFINED UsingControls } 

002574 {$SETC UsingControls := 1} 
002575 

002576 {$1+) 

002577 {$SETC Controlslncludes := Usinglncludes) 

002578 {$SETC Usinglncludes := 1} 

002579 {$IFC UNDEFINED UsingQuickdraw) 

002580 {$1 5$Shell (PInterfaces) Quickdraw.p) 

002581 {$ENDC) 

002582 {$SETC Usinglncludes := Controlslncludes) 
002583 

002584 CONST 

002585 pushButProc = ; 

002586 checkBoxProc = 1; 

002587 radioButProc = 2; 

002588 useWFont = 8; 

002589 scrollBarProc = 16; 

002590 inButton = 10; 

002591 inCheckBox = 11; 

002592 inUpButton = 20; 

002593 InDownButton = 21; 

002594 inPageUp = 22; 

002595 inPageDown = 23; 

002596 inThumb = 129; 
002597 

002598 popupMenuProc = 1008; { 63 * 16 ) 

002599 popupFixedWidth ^ $0001; { popup menu CDEF variation codes } 

002600 popupUseAddResMenu = $0004; 

002601 popupUseWFont = $0008; 

002602 popupTitleBold = $00000100; { Popup Title characteristics } 

002603 popupTitleltalic = $00000200; 
.002604 popupTitleUnderline = $00000400; 
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002605 popupTitleOutline = $00000800; 

002606 popupTitleShadow = $00001000; 

002607 popupTitleCondense = $00002000; 

002608 popupTitleExtend = $00004000; 

002609 popupTitleNoStyle = $00008000; 

002610 popupTitleLeftJust = $00000000; 

002611 popupTitleCenterJust = $00000001; 

002612 popupTitleRightJust = $000000FF; 
002613 

002614 { 

002615 axis constraints for DragGrayRgn call} 

002616 noConstraint = 0; 

002617 hAxisOnly = 1; 

002618 vAxisOnly = 2; 
002619 

002620 { 

002621 control messages} 

002622 drawCntl = 0; 

002623 testCntl = 1; 

002624 calcCRgns = 2; 

002625 initCntl = 3; 

002626 dispCntl = 4; 

002627 posCntl = 5; 

002628 thumbCntl = 6; 

002629 dragCntl = 7; 

002630 autoTrack = 8; 

002631 calcCntlRgn = 10; 

002632 calcThumbRgn = 11; 
002633 

002634 cFrameColor = 0; 

002635 cBodyColor = 1; 

002636 cTextColor = 2; 

002637 cThumbColor = 3; 

002638 popupMenuCDEFproc ^ popupMenuProc; { synonym for compatibility } 
002639 

002640 TYPE 

002641 ControlPtr = -^ControlRecord; 

002642 ControlHandle = ^ControlPtr; 

002643 ControlRecord = PACKED RECORD 

002644 nextControl: ControlHandle; 

002645 contrlOwner: WindowPtr; 

002646 contrlRect: Rect; 

002647 contrlVis: Byte; 

002648 contrlHilite: Byte; 

002649 contrlValue: INTEGER; 

002650 contrlMin: INTEGER; 

002651 contrlMax: INTEGER; 

002652 contrlDefProc: Handle; 

002653 contrlData: Handle; 

002654 contrlAction: ProcPtr; 

002655 contrlRfCon: LONGINT; 

002656 contrlTitle: Str255; 

002657 END; 
002658 

002659 CCTabPtr = ^CtlCTab; 

.002660 CCTabHandle = ''CCTabPtr; 
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002661 
002662 
002663 
002664 
002665 
002666 
002667 
002668 
002669 
002670 
002671 
002672 
002673 
002674 
002675 
002676 
002677 
002678 
002679 
002680 
002681 
002682 
002683 
002684 
002685 
002686 
002687 
002688 
002689 
002690 
002691 
002692 
002693 
002694 
002695 
002696 
002697 
002698 
002699 
002700 
002701 
002702 
002703 
002704 
002705 
002706 
002707 
002708 
002709 
002710 
002711 
002712 
002713 
002714 
002715 
002716 



CtlCTab = RECORD 

ccSeed: LONGINT; 
ccRider: INTEGER; 
ctSize: INTEGER; 



{ reserved} 

{see what you have done - reserved} 

{usually 3 for controls} 



ctTable: ARRAY [0..3] OF ColorSpec; 
END; 



AuxCtlPtr = ^AuxCtlRec; 
AuxCtlHandle = '-AuxCtlPtr; 
AuxCtlRec = RECORD 

acNext: AuxCtlHandle; 

acOwner: ControlHandle; 

acCTable: CCTabHandle; 

acFlags: INTEGER; 

acReserved: LONGINT; 

acRefCon: LONGINT; 

END; 



{handle to next AuxCtlRec} 
{handle for aux record's control} 
{color table for this control} 
{misc flag byte} 
{reserved for use by Apple} 
{for use by application} 



FUNCTION NewControl (theWindow: WindowPtr;boundsRect : Rect;title: Str255; 

visible: BOOLEAN; value : INTEGER; min : INTEGER; max: INTEGER; procID : INTEGER; 

refCon: LONGINT) : ControlHandle; 

INLINE $A954; 
PROCEDURE SetCTitle (theControl: ControlHandle; title : Str255) ; 

INLINE $A95F; 
PROCEDURE GetCTitle (theControl: ControlHandle; VAR title : Str255) ; 

INLINE $A95E; 
FUNCTION GetNewControl (controlID: INTEGER; owner : WindowPtr) : ControlHandle; 

INLINE $A9BE; 
PROCEDURE DisposeControl (theControl: ControlHandle); 

INLINE $A955; 
PROCEDURE KillControls (theWindow: WindowPtr); 

INLINE $A956; 
PROCEDURE HideControl (theControl : ControlHandle); 

INLINE $A958; 
PROCEDURE ShowControl (theControl : ControlHandle); 

INLINE $A957; 
PROCEDURE DrawControls (theWindow: WindowPtr); 

INLINE $A969; 
PROCEDURE DrawlControl (theControl: ControlHandle); 

INLINE $A96D; 
PROCEDURE HillteControl (theControl: ControlHandle; hiliteState : INTEGER); 

INLINE $A95D; 
PROCEDURE UpdtControl (theWindow: WindowPtr; updateRgn : RgnHandle) ; 

INLINE $A953; 
PROCEDURE UpdateControls (theWindow: WindowPtr ; updateRgn : RgnHandle); 

INLINE $A953; 
PROCEDURE MoveControl (theControl : ControlHandle; h : INTEGER;v: INTEGER); 

INLINE $A959; 
PROCEDURE SizeControl (theControl : ControlHandle; w : INTEGER;h: INTEGER); 

INLINE $A95C; 
PROCEDURE SetCtlValue (theControl: ControlHandle; theValue : INTEGER); 

INLINE $A963; 
FUNCTION GetCtlValue (theControl: ControlHandle): INTEGER; 

INLINE $A960; 
PROCEDURE SetCtlMin (theControl: ControlHandle; minValue : INTEGER); 
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002717 INLINE $A964; 

002718 FUNCTION GetCtlMln (theControl : ControlHandle) : INTEGER; 

002719 INLINE $A961; 

002720 PROCEDURE SetCtlMax (theControl : ControlHandle; maxValue : INTEGER); 

002721 INLINE $A965; 

002722 FUNCTION GetCtlMax (theControl : ControlHandle): INTEGER; 

002723 INLINE $A962; 

002724 PROCEDURE SetCRef Con (theControl : ControlHandle; data : LONGINT) ; 

002725 INLINE $A95B; 

002726 FUNCTION GetCRef Con (theControl : ControlHandle): LONGINT; 

002727 INLINE $A95A; 

002728 PROCEDURE SetCtlAct ion (theControl : ControlHandle; actionProc : ProcPtr) ; 

002729 INLINE $A96B; 

002730 FUNCTION GetCtlAction (theControl : ControlHandle): ProcPtr; 

002731 INLINE $A96A; 

002732 PROCEDURE DragControl (theControl : ControlHandle; startPt : Point; llmitRect : Rect; 

002733 slopRect: Rect; axis: INTEGER); 

002734 INLINE $A967; 

002735 FUNCTION TestControl (theControl : ControlHandle; thePt : Point): INTEGER; 

002736 INLINE $A966; 

002737 FUNCTION TrackControl (theControl : ControlHandle; thePolnt : Point ; act ionProc : ProcPtr): INTEGER; 

002738 INLINE $A968; 

002739 FUNCTION FindControl (thePoint : Point ; theWlndow: WindowPtr; VAR theControl : ControlHandle): INTEGER; 

002740 INLINE $A96C; 

002741 PROCEDURE SetCtlColor (theControl : ControlHandle; newColorlable : CCTabHandle) ; 

002742 INLINE $AA43; 

002743 FUNCTION GetAuxCtl (theControl : ControlHandle; VAR acHndl : AuxCtlHandle) : BOOLEAN; 

002744 INLINE $AA44; 

002745 FUNCTION GetCVariant (theControl : ControlHandle): INTEGER; 

002746 INLINE $A809; 
002747 

002748 

002749 {$ENDC) { UsingControls } 

002750 

002751 {$IFC NOT Usinglncludes ) 

002752 END. 

002753 {$ENDC} 
002754 

002755 

002756 ### END OF FILE Controls. p 

002757 
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002758 

00275 9 ##################################################################### 

002760 ### FILE: CRMSerlalDevices .p 

0027 61 ##################################################################### 

002762 

002763 

002764 { 

002765 Created: Wednesday, September 11, 1991 at 2:05 PM 

002766 CRMSerlalDevices. p 

002767 Pascal Interface to the Macintosh Libraries 
002768 

002769 Copyright Apple Computer, Inc. 1988-1991 

002770 All rights reserved 

002771 ) 
002772 
002773 

002774 {$IFC UNDEFINED Usinglncludes } 

002775 {$SETC Usinglncludes := 0} 

002776 {$ENDC) 
002777 

002778 {$IFC NOT Usinglncludes) 
00277 9 UNIT CRMSerlalDevices; 

002780 INTERFACE 

002781 {$ENDC} 
002782 

002783 {$IFC UNDEFINED UsingCRMSerialDevices } 

002784 {$SETC UsingCRMSerialDevices := 1} 
002785 

002786 {$!+) 

002787 {$SETC CRMSerialDevicesIncludes := Usinglncludes) 

002788 {$SETC Usinglncludes := 1} 

002789 {$IFC UNDEFINED UsingTypes} 

002790 {$1 $$Shell (PInterfaces) Types. p) 

002791 {$ENDC} 

002792 {$SETC Usinglncludes := CRMSerialDevicesIncludes) 
002793 

002794 CONST 
002795 

002796 { for the crmDeviceType field of the CRMRec data structure } 

002797 crmSerialDevice = 1 ; 
002798 

002799 

002800 { version of the CRMSerialRecord below ) 

002801 curCRMSerRecVers = 1; 
002802 

002803 TYPE 

002804 { Maintains compatibility w/ apps & tools that expect an old style icon 

002805 CRMIconPtr = -^CRMIconRecord; 

002806 CRMIconHandle = ^CRMIconPtr; 

002807 CRMIconRecord = RECORD 

002808 oldlcon: ARRAY [0..31] OF LONGINT; { ICN# } 

002809 oldMask: ARRAY [0..31] OF LONGINT; 

002810 theSuite: Handle; { Handle to an IconSulte ) 

002811 reserved: LONGINT; 

002812 END; 
^02813 



' N 

9/2/99 10:00 AM David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL Page 56 * 



002814 CRMSerialPtr = ^CRMSerialRecord; 

002815 CRMSerialRecord = RECORD 

002816 version: INTEGER; 

002817 InputDriverName : StringHandle; 

002818 outputDrlverName: StringHandle; 

002819 name: StringHandle; 

002820 devicelcon: CRMIconHandle; 

002821 ratedSpeed: LONGINT; 

002822 maxSpeed: LONGINT; 

002823 reserved: LONGINT; 

002824 END; 
002825 
002826 
002827 

002828 {$ENDC) { UslngCRMSerialDevices ) 
002829 

002830 {$IFC NOT Uslnglncludes ) 

002831 END. 

002832 {$ENDC} 
002833 

002834 

002835 ### END OF FILE CRMSerialDevlces . p 

002836 
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002837 






002838 


##################################################################### 




002839 


### FILE: CTBUtilities.p 




002840 


##################################################################### 




002841 






002842 






002843 


{ 




002844 


Created: Thursday, September 12, 1991 at 2:53 PM 




002845 


CTBUtilities.p 




002846 


Pascal Interface to the Macintosh Libraries 




002847 






002848 


Copyright Apple Computer, Inc. 1988-1991 




002849 


All rights reserved 




002850 


) 




002851 






002852 






002853 


{$IFC UNDEFINED Usinglncludes } 




002854 


{$SETC Usinglncludes := 0} 




002855 


{$ENDC) 




002856 






002857 


{$IFC NOT Usinglncludes) 




002858 


UNIT CTBUtilities; 




002859 


INTERFACE 




002860 


{$ENDC} 




002861 






002862 


{$IFC UNDEFINED UsingCTBUtilities } 




002863 


{$SETC UsingCTBUtilities := 1} 




002864 






002865 


{$!+) 




002866 


{$SETC CTBUtilitiesIncludes := Usinglncludes) 




002867 


{$SETC Usinglncludes := 1} 




002868 


{$IFC UNDEFINED UsingMemory) 




002869 


{$1 $$ Shell (PInterfaces) Memory .p) 




002870 


{$ENDC} 




002871 


{$IFC UNDEFINED UsingPackages } 




002872 


{$1 5$ Shell (PInterfaces) Packages .p) 




002873 


{$ENDC) 




002874 


{$IFC UNDEFINED UsingAppleTalk ) 




002875 


{$1 $$ Shell (PInterfaces) AppleTalk.p) 




002876 


{$ENDC) 




002877 


{$SETC Usinglncludes := CTBUtilitiesIncludes) 




002878 






002879 


CONST 




002880 






002881 


{ version of Comm Toolbox Utilities ) 




002882 


curCTBUVersion = 2 ; 




002883 






002884 


{ Error codes/types ) 




002885 


ctbuGenericError ^ -1; 




002886 


ctbuNoErr = 0; 




002887 






002888 


TYPE 




002889 


CTBUErr = OSErr; 




002890 






002891 


CONST 




002892 




J 
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{ Choose return codes } 
chooseDisaster = -2; 
chooseFailed ^ -1; 
choose Aborted ^ ; 
chooseOKMinor ^ 1 ; 
chooseOKMa jor ^ 2; 
chooseCancel ^ 3; 

{ NuLookup return codes } 
nlOk - 0; 
nlCancel ^ 1 ; 
nlEject - 2; 

{ Name filter proc return codes } 
naraelnclude ^ 1 ; 
nameDisable ^ 2; 
nameReject = 3; 

{ Zone filter proc return codes } 
zone Include ^ 1 ; 

zoneDi sable ^ 2 ; 
zoneRe ject ^ 3; 

{ Values for hookProc items 
hookOK - 1; 
hookCancel ^ 2 ; 
hookOutline ^ 3; 
hookTitle - 4; 
hookltemList ^ 5 ; 
hookZoneTitle - 6; 
hookZoneList ^ 7 ; 
hookLine ^ 8; 
hookVersion ^ 9; 
hookReservedl ^ 10; 
hookReserved2 ^ 11 ; 
hookReserved3 ^ 12 ; 
hookReserved4 = 13; 

{ "virtual" hookProc items } 
hookNull - 100; 
hookltemRef resh ^ 101; 
hookZoneRef resh - 102; 
hookEject - 103; 
hookPreflight - 104; 
hookPostflight - 105; 
hookKeyBase - 1000; 

TYPE 

{ NuLookup structures /constants 

NLTypeEntry - RECORD 

hicon : Handle; 

typeStr: Str32; 

END; 
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002949 

002950 NBPReply = RECORD 

002951 theEntity: EntityName; 

002952 theAddr: AddrBlock; 

002953 END; 
002954 
002955 

002956 NameFilterProcPtr = ProcPtr; 

002957 ZoneFllterProcPtr = ProcPtr; 
002958 

002959 

002960 FUNCTION InitCTBUtillties : CTBUErr; 

002961 FUNCTION CTBGetCTBVersion : INTEGER; 
002962 

002963 

002964 FUNCTION StandardNBP (where : Point ; prompt : Str255; numTypes : INTEGER; typeLlst : NLType; 

002965 nameFilter: NameFilterProcPtr; zoneFilter : ZoneFllterProcPtr; hookProc : DlgHookProcPtr; 

002966 VAR theReply: NBPReply) : INTEGER; 
002967 

002968 FUNCTION CustomNBP (where : Point ;prompt : Str255; numTypes : INTEGER; typeLlst : NLType; 

002969 nameFilter: NameFilterProcPtr; zoneFilter ; ZoneFllterProcPtr; hookProc ; DlgHookProcPtr; 

002970 userData: LONGINT; dialogID : INTEGER; filterProc : ModalFilterProcPtr;VAR theReply: NBPReply): INTEGER; 
002971 

002972 

002973 { Obsolete synonyms for above routines } 

002974 FUNCTION NuLookup (where: Point; prompt : Str255 ; numTypes : INTEGER; typeLlst : NLType; 

002975 nameFilter: NameFilterProcPtr; zoneFilter : ZoneFllterProcPtr; hookProc : DlgHookProcPtr; 

002976 VAR theReply: NBPReply) : INTEGER; 
002977 

002978 FUNCTION NuPLookup (where: Point ;prompt : Str255; numTypes : INTEGER; typeLlst : NLType; 

002979 nameFilter: NameFilterProcPtr; zoneFilter : ZoneFllterProcPtr; hookProc : DlgHookProcPtr; 

002980 userData: LONGINT; dialogID : INTEGER; filterProc : ModalFilterProcPtr;VAR theReply: NBPReply): INTEGER; 
002981 

002982 

002983 {$ENDC) { UsingCTBUtilities ) 

002984 

002985 {$IFC NOT Usinglncludes ) 

002986 END. 

002987 {$ENDC} 
002988 

002989 

002990 ### END OF FILE CTBUtilities . p 

002991 
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002992 
002993 
002994 
002995 
002996 
002997 
002998 
002999 
003000 
003001 
003002 
003003 
003004 
003005 
003006 
003007 
003008 
003009 
003010 
003011 
003012 
003013 
003014 
003015 
003016 
003017 
003018 
003019 
003020 
003021 
003022 
003023 
003024 
003025 
003026 
003027 
003028 
003029 
003030 
003031 
003032 
003033 
003034 
003035 
003036 
003037 
003038 
003039 
003040 
003041 
003042 
003043 
003044 
003045 
003046 
003047 



##################################################################### 
### FILE: CursorCtl.p 
##################################################################### 



Created: Tuesday, August 2, 1988 at 12:24 PM 
CursorCtl . p 
Pascal Interface to the Macintosh Libraries 



<<< CursorCtl - Cursor Control Interface File >>> 



Copyright Apple Computer, Inc. 1984-1988 
All rights reserved 

This file contains: 

InitCursorCtl (newCursors) - Init CursorCtl to load the 'acur' resource 
RotateCursor (counter ) - Sequence through cursor frames for counter mod 32 
SpinCursor ( increment ) - Sequence mod 32 incrementing internal counter 
Hide_Cursor ( ) - Hide the current cursor 
Show_Cursor (cursorKind) - Show the cursor 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 

{$ENDC} 

{$IFC NOT Usinglncludes) 

UNIT CursorCtl; 

INTERFACE 
{$ENDC) 



{$IFC UNDEFINED UsingCursorCtl ) 
{$SETC UsingCursorCtl := 1) 



TYPE 



{ Kinds of cursor supported by CursorCtl } 

Cursors = (HIDDEN_CURSOR, I_BEAM_CURSOR, CROSS_CURSOR, PLUS_CURSOR, WATCH_CURSOR, 
ARROW_CURS0R) ; 



acurPtr — ^Acur; 
acurHandle — "^acurPtr; 
Acur = RECORD 

n: INTEGER; 

index: INTEGER; 

framel: INTEGER; 

filll: INTEGER; 

f rame2 : INTEGER; 

fill2: INTEGER; 

frameN: INTEGER; 



{Number of cursors ("frames of film")} 

{ Next frame to show <for internal use>} 

{ 'CURS' resource id for frame #1} 

{<for internal use>} 

{'CURS' resource id for frame #2) 

{<for internal use>} 

{ 'CURS' resource id for frame #N) 
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003048 


003049 


003050 


003051 


003052 


003053 


003054 


003055 


003056 


003057 


003058 


003059 


003060 


003061 


003062 


003063 


003064 


003065 


003066 


003067 


003068 


003069 


003070 


003071 


003072 


003073 


003074 


003075 


003076 


003077 


003078 


003079 


003080 


003081 


003082 


003083 


003084 


003085 


003086 


003087 


003088 


003089 


003090 


003091 


003092 


003093 


003094 


003095 


003096 


003097 


003098 


003099 


003100 


003101 


003102 


003103 



fillN: INTEGER; {<for internal use>} 
END; 



PROCEDURE InitCursorCtl (newCursors: UNIV acurHandle) ; 

{ Initialize the CursorCtl unit . This should be called once prior to calling 

RotateCursor or SpinCursor . It need not be called if only Hide_Cursor or 

Show_Cursor are used. If NewCursors is NULL, InitCursorCtl loads in the 

' a cur ' resource and the ' CURS ' resources specified by the 'acur' resource 

ids . If any of the resources cannot be loaded, the cursor will not be 

changed . 

The 'acur' resource is assumed to either be in the currently running tool or 
application, or the MPW Shell for a tool, or in the System f lie . The ' acur ' 
resource id must be for a tool or application, 1 for the Shell , and 2 for 
the System f lie . 

If NewCursors is not NULL, it is ASSUMED to be a handle to an 'acur' formatted 
resource designated by the caller and it will be used instead of doing a 
Get Re source on ' acur ' . Note, if RotateCursor or SpinCursor are called without 
calling InitCursorCtl, then RotateCursor and SpinCursor will do the call for 
the user the first time it is called. However, the possible disadvantage of 
using this technique is that the resource memory allocated may have 
undesirable affect ( fragmentation? ) on the application . Using InitCursorCtl 
has the advantage of causing the allocation at a specific time determined by 
the user. 

Caution : InitCursorCtl MODIFIES the ' acur ' resource in memory . Specifically, 
it changes each FrameN/f illN integer pair to a handle to the corresponding 
' CURS ' resource also in memory . Thus if NewCursors is not NULL when 
InitCursorCtl is called, the caller must guarantee NewCursors always points to 
a "fresh" copy of an 'acur' resource. This need only be of concern to a 
caller who wants to repeatly use multiple 'acur' resources during execution of 
their programs . 
} 

PROCEDURE RotateCursor (counter: LONGINT) ; 

{ RotateCursor is called to rotate the " I am active" "beach ball" cursor, or to 
animate whatever sequence of cursors set up by InitCursorCtl. The next cursor 

( "frame" ) is used when Counter % 32 ^ (Counter is some kind of incrementing 
or decrementing index maintained by the caller). A positive counter sequences 
forward through the cursors (e.g., it rotates the "beach ball" cursor 
clockwise) , and a negative cursor sequences through the cursors backwards 

(e.g., it rotates the "beach ball" cursor counterclockwise ) . Note, 
RotateCursor just does a Mac SetCursor call for the proper cursor picture . 
It is assumed the cursor is visible from a prior Show_Cursor call . 
} 

PROCEDURE SpinCursor (increment : INTEGER) ; 

{ SpinCursor is similar in function to RotateCursor, except that instead of 
passing a counter, an Increment is passed an added to a counter maintained 
here . SpinCursor is provided for those users who do not happen to have a 
convenient counter handy but still want to use the spinning "beach ball" 
cursor, or any sequence of cursors set up by InitCursorCtl . A positive 
increment sequences forward through the euros (rotating the "beach ball" 
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003104 cursor clockwise) , and a negative increment sequences backward through the 

003105 cursors (rotating the "beach ball" cursor counter-clockwise) . A zero value 

003106 for the increment resets the counter to zero. Note, it is the increment, and 

003107 not the value of the counter that determines the sequencing direction of the 

003108 cursor (and hence the spin direction of the "beach bail" cursor) . 

003109 } 
003110 

003111 PROCEDURE Hide_Cursor; 

003112 { Hide the cursor if it is showing. This is this unit's call to the Mac 

003113 HideCursor routine. Thus the Mac cursor level is decremented by one when this 

003114 routine is called. 

003115 } 
003116 

003117 PROCEDURE Show_Cursor (cursorKind : Cursors); 

003118 { Increment the cursor level, which may have been decremented by Hide_Cursor, 

003119 and display the specified cursor if the level becomes (it is never 

003120 incremented beyond 0) .The CursorKind is the kind of cursor to show. It is 

003121 one of the values HIDDEN_CURSOR, I_BEAM_CURSOR, CROSS_CURSOR, PLUS_CURSOR, 

003122 WATCH_CURSOR, and ARROW_CURSOR. Except for HIDDEN_CURSOR, a Mac SetCursor is 

003123 done for the specified cursor prior to doing a ShowCursor. HIDDEN_CURSOR just 

003124 causes a ShowCursor call. Note, ARROW_CURSOR will only work correctly if 

003125 there is already a grafPort set up pointed to by 0(A5) . 

003126 } 
003127 
003128 

003129 {$ENDC) { UsingCursorCtl ) 
003130 

003131 {$IFC NOT Usinglncludes) 

003132 END. 

003133 {$ENDC} 
003134 

003135 

003136 ### END OF FILE CursorCtl.p 

003137 
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003138 
003139 
003140 
003141 
003142 
003143 
003144 
003145 
003146 
003147 
003148 
003149 
003150 
003151 
003152 
003153 
003154 
003155 
003156 
003157 
003158 
003159 
003160 
003161 
003162 
003163 
003164 
003165 
003166 
003167 
003168 
003169 
003170 
003171 
003172 
003173 
003174 
003175 
003176 
003177 
003178 
003179 
003180 
003181 
003182 
003183 
003184 
003185 
003186 
003187 
003188 
003189 
003190 
003191 
003192 
003193 



##################################################################### 
### FILE: DatabaseAccess .p 
##################################################################### 



Created: Tuesday, September 10, 1991 at 1:01 PM 
DatabaseAccess .p 
Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 1989-1991 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 
{$ENDC) 

{$IFC NOT Usinglncludes) 

UNIT DatabaseAccess; 

INTERFACE 
{$ENDC} 

{$IFC UNDEFINED UsingDatabaseAccess ) 
{$SETC UsingDatabaseAccess := 1) 

{$!+) 

{SSETC DatabaseAccessIncludes := Usinglncludes} 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingResources ) 

{$1 $$ Shell ( P Int er faces) Re sour ces.p) 

{$ENDC) 

{SSETC Usinglncludes :^ DatabaseAccessIncludes) 

CONST 



{ error and status codes [ 
rcDBNull = -800; 
rcDBValue = -801; 
rcDBError = -802; 
rcDBBadlype = -803; 
rcDBBreak = -804; 
rcDBExec = -805; 
rcDBBadSessID = -806; 
rcDBBadSessNum = -807; 
rcDBBadDDEV = -808; 
rcDBAsyncNotSupp = -809; 
rcDBBadAsyncPB = -810; 
rcDBNoHandler = -811; 
rcDBWrongVersion ^ -812; 
rcDBPackNotlnited = -813; 



bad session number for DBGetConnInf o ) 

bad ddev specified on DBInit ) 

ddev does not support async calls ) 

tried to kill a bad pb } 

no app handler for specified data type } 

incompatible versions } 

attempt to call other routine before InitDBPack ) 



{ messages for status functions for DBStartQuery } 
kDBUpdateWind = 0; 
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003194 kDBAboutToInit = 1; 

003195 kDBInitComplete = 2; 

003196 kDBSendComplete = 3; 

003197 kDBExecComplete = 4; 

003198 kDBStartQueryComplete = 5; 
003199 

003200 { messages for status functions for DBGetQueryResults } 

003201 kDBGetltemComplete = 6; 

003202 kDBGetQueryResultsComplete = 7; 
003203 

003204 { data type codes ) 

003205 typeNone ^ 'none'; 

003206 typeDate = 'date'; 

003207 typelime = 'time'; 

003208 typelimeStamp = 'tims'; 

003209 typeDecimal = ' deci ' ; 

003210 typeMoney = 'mone'; 

003211 typeVChar = 'vcha'; 

003212 typeVBin = 'vbin'; 

003213 typeLChar = 'Icha'; 

003214 typeLBin = 'Ibin'; 

003215 typeDiscard — 'disc'; 
003216 

003217 { "dummy" types for DBResultsToText ) 

003218 typeUnknown — ' unkn ' ; 

003219 typeColBreak = 'colb'; 

003220 typeRowBreak = ' rowb ' ; 
003221 

003222 { pass this in to DBGetltem for any data type } 

003223 typeAnylype = 0; 
003224 

003225 { infinite timeout value for DBGetltem ) 

003226 kDBWaitForever = -1; 
003227 

003228 { flags for DBGetltem ) 

003229 kDBLastColFlag = $0001; 

003230 kDBNullFlag = $0004; 
003231 

003232 TYPE 

003233 DBType = OSType; 
003234 

003235 { structure for asynchronous parameter block } 

003236 DBAsyncParmBlkPtr = ^DBAsyncParamBlockRec; 

003237 DBAsyncParamBlockRec = RECORD 

003238 complet ionProc : ProcPtr; { pointer to completion routine } 

003239 result: OSErr; { result of call } 

003240 userRef: LONGINT; { for application's use ) 

003241 ddevRef: LONGINT; { for ddev's use } 

003242 reserved: LONGINT; { for internal use ) 

003243 END; 
003244 

003245 { structure for resource list in QueryRecord } 

003246 ResListElem = RECORD 

003247 theType: ResType; { resource type ) 

003248 id: INTEGER; { resource id ) 
.003249 END; 
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003250 








003251 


ResListPtr = -^ResListArray; 






003252 


ResListHandle = ^ResListPtr; 






003253 








003254 


ResListArray = ARRAY [0..255] OF 


ResListElem; 




003255 








003256 


{ structure for query list in QueryRecord } 




003257 


QueryListPtr ^ ^QueryArray; 






003258 


QueryListHandle ^ ^QueryListPtr; 






003259 








003260 


QueryArray = ARRAY [0..255] OF Handle; 




003261 








003262 


QueryPtr ^ ^QueryRecord; 






003263 


QueryHandle ^ ^QueryPtr; 






003264 


QueryRecord = RECORD 






003265 


version: INTEGER; 


version } 




003266 


id: INTEGER; 


id of 'qrsc' this came from } 




003267 


queryProc: Handle; 


handle to query def proc } 




003268 


ddevName : Str63; 


ddev name ) 




003269 


host: Str255; 


host name } 




003270 


user: Str255; 


user name } 




003271 


password: Str255; 


password } 




003272 


connStr: Str255; 


connection string ) 




003273 


currQuery: INTEGER; 


index of current query } 




003274 


numQueries: INTEGER; 


number of queries in list } 




003275 


queryList: QueryListHandle; 


handle to array of handles to text } 




003276 


numRes: INTEGER; 


number of resources in list } 




003277 


resList : ResListHandle; 


handle to array of resource list elements } 




003278 


dataHandle: Handle; 


for use by query def proc } 




003279 


refCon: LONGINT; 


for use by application } 




003280 


END; 






003281 








003282 


{ structure of column types array in ResultsRecord } 




003283 


ColTypesPtr = ''ColTypesArray ; 






003284 


ColTypesHandle = ^ColTypesPtr; 






003285 








003286 


ColTypesArray = ARRAY [0..255] 01 


' DBType; 




003287 








003288 


{ structure for column info in Re 


ssultsRecord } 




003289 


DBColInfoRecord = RECORD 






003290 


len: INTEGER; 






003291 


places: INTEGER; 






003292 


flags: INTEGER; 






003293 


END; 






003294 








003295 


ColInfoPtr = ^ColInfoArray; 






003296 


ColInfoHandle = ^ColInfoPtr; 






003297 








003298 


ColInfoArray = ARRAY [0..255] OF 


DBColInfoRecord; 




003299 








003300 


{ structure of results returned by DBGetResults } 




003301 


ResultsRecord = RECORD 






003302 


numRows : INTEGER; 


number of rows in result } 




003303 


numCols: INTEGER; 


number of columns per row ) 




003304 


colTypes: ColTypesHandle; 


data type array } 




003305 


colData: Handle; 


actual results } 
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003306 collnfo: Colinf oHandle; { DBColInf oRecord array ) 

003307 END; 
003308 
003309 

003310 FUNCTION InitDBPack: OSErr; 

003311 INLINE $3F3C, $0004 , 5303C, $0100 , $A82F; 

003312 FUNCTION DBInit (VAR sessID: LONGINT; ddevName : Str63;host: Str255;user: Str255; 

003313 passwd: Str255; connStr : Str255; asyncPB : DBAsyncParmBlkPtr) : OSErr; 

003314 INLINE $303C, $0E02 , $A82F; 

003315 FUNCTION DBEnd ( sessID : LONGINT; asyncPB : DBAsyncParmBlkPtr): OSErr; 

003316 INLINE $3030, $0403, $A82F; 

003317 FUNCTION DBGetConnlnfo ( sessID : LONGINT; sessNum: INTEGER; VAR returnedID: LONGINT; 

003318 VAR version: LONGINT;VAR ddevName: Str63;VAR host: Str255;VAR user: Str255; 

003319 VAR network: Str255;VAR connStr: Str255;VAR start: LONGINT;VAR state: OSErr; 

003320 asyncPB: DBAsyncParmBlkPtr) : OSErr; 

003321 INLINE $303C, $17 04 , $A82F; 

003322 FUNCTION DBGetSessionNum (sessID : LONGINT;VAR sessNum: INTEGER; asyncPB : DBAsyncParmBlkPtr): OSErr; 

003323 INLINE $303C, $0 605, $A82F; 

003324 FUNCTION DBSend (sessID : LONGINT; text : Ptr;len: INTEGER; asyncPB : DBAsyncParmBlkPtr): OSErr; 

003325 INLINE $303C, $0706, $A82F; 

003326 FUNCTION DBSendltem ( sessID : LONGINT; dataType : DBType;len: INTEGER; places : INTEGER; 

003327 flags: INTEGER;buf f er : Ptr;asyncPB: DBAsyncParmBlkPtr): OSErr; 

003328 INLINE $303C, $0B07 , $A82F; 

003329 FUNCTION DBExec ( sessID : LONGINT; asyncPB : DBAsyncParmBlkPtr): OSErr; 

003330 INLINE $303C, $04 08 , $A82F; 

003331 FUNCTION DBState (sessID : LONGINT; asyncPB : DBAsyncParmBlkPtr): OSErr; 

003332 INLINE $303C, $04 09, $A82F; 

003333 FUNCTION DBGetErr { sessID : LONGINT;VAR errl : LONGINT;VAR err2 : LONGINT;VAR iteml : Str255; 

003334 VAR item2 : Str255;VAR errorMsg: Str255; asyncPB : DBAsyncParmBlkPtr): OSErr; 

003335 INLINE $3030, $0E0A, $A82F; 

003336 FUNCTION DBBreak (sessID : LONGINT; abort : BOOLEAN; asyncPB : DBAsyncParmBlkPtr): OSErr; 

003337 INLINE $303C, $050B, $A82F; 

003338 FUNCTION DBGet Item ( sessID : LONGINT; timeout : LONGINT;VAR dataType: DBType; 

003339 VAR len: INTEGER; VAR places : INTEGER;VAR flags: INTEGER; buff er : Ptr;asyncPB: DBAsyncParmBlkPtr): OSErr; 

003340 INLINE $3030, $100C, $A82F; 

003341 FUNCTION DBUnGet Item (sessID : LONGINT; asyncPB : DBAsyncParmBlkPtr): OSErr; 

003342 INLINE $303C, $040D, $A82F; 

003343 FUNCTION DBKlll (asyncPB : DBAsyncParmBlkPtr): OSErr; 

003344 INLINE $303C, $020E, $A82F; 

003345 FUNCTION DBGetNewQuery (querylD : INTEGER;VAR query: QueryHandle) : OSErr; 

003346 INLINE $303C, $030F, $A82F; 

003347 FUNCTION DBDlsposeQuery (query : QueryHandle): OSErr; 

003348 INLINE $303C, $0210 , $A82F; 

003349 FUNCTION DBStartQuery (VAR sessID: LONGINT; query : QueryHandle; statusProc : ProcPtr; 

003350 asyncPB: DBAsyncParmBlkPtr) : OSErr; 

003351 INLINE $303C, $081 1 , $A82F; 

003352 FUNCTION DBGetQueryResults ( sessID : LONGINT;VAR results: ResultsRecord; timeout : LONGINT; 

003353 StatusProc: ProcPtr; asyncPB : DBAsyncParmBlkPtr): OSErr; 

003354 INLINE $303C, $0A12 , $A82F; 

003355 FUNCTION DBResultsToText (results : ResultsRecord; VAR theText : Handle): OSErr; 

003356 INLINE $3030, $04 13, $A82F; 

003357 FUNCTION DBInstallResultHandler (dataType : DBType; theHandler : ProcPtr; isSysHandler : BOOLEAN): OSErr; 

003358 INLINE $303C, $0514 , $A82F; 

003359 FUNCTION DBRemoveResultHandler (dataType : DBType): OSErr; 

003360 INLINE $303C, $0215, $A82F; 

.003361 FUNCTION DBGetResultHandler (dataType: DBType; VAR theHandler: ProcPtr; getSysHandler : BOOLEAN): OSErr; 
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003362 INLINE $303C, $051 6, $A82F; 

003363 

003364 

003365 {$ENDC) { UslngDatabaseAccess ) 

003366 

003367 {$IFC NOT Usinglncludes ) 

003368 END. 

003369 {$ENDC} 
003370 

003371 

003372 ### END OF FILE DatabaseAccess .p 

003373 
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003374 






003375 


##################################################################### 




003376 


### FILE: Desk.p 




003377 


##################################################################### 




003378 






003379 


{ 




003380 


Created: Sunday, January 6, 1991 at 10:27 PM 




003381 


Desk.p 




003382 


Pascal Interface to the Macintosh Libraries 




003383 






003384 


Copyright Apple Computer, Inc. 1985-1989 




003385 


All rights reserved 




003386 


) 




003387 






003388 






003389 


{$IFC UNDEFINED Usinglncludes } 




003390 


{$SETC Usinglncludes := 0} 




003391 


{$ENDC} 




003392 






003393 


{$IFC NOT Usinglncludes} 




003394 


UNIT Desk; 




003395 


INTERFACE 




003396 


{$ENDC) 




003397 






003398 


{$IFC UNDEFINED UsingDesk} 




003399 


{$SETC UsingDesk := 1} 




003400 






003401 


{$1+) 




003402 


{$SETC Desklncludes := Usinglncludes) 




003403 


{$SETC Usinglncludes := 1} 




003404 


{$IFC UNDEFINED UsingTypes) 




003405 


{$1 5$Shell (PInterfaces) Types. p) 




003406 


{$ENDC) 




003407 


{$IFC UNDEFINED UsingQuickdraw) 




003408 


{ $1 $$ Shell (PInterfaces) Quickdraw.p) 




003409 


{$ENDC) 




003410 


{$IFC UNDEFINED UsingEvents) 




003411 


{$1 5$ Shell (PInterfaces) Event s.p) 




003412 


{$ENDC) 




003413 


{$SETC Usinglncludes := Desklncludes) 




003414 






003415 


CONST 




003416 


accEvent ^ 64; 




003417 


accRun = 65; 




003418 


accCursor = 66; 




003419 


accMenu ^ 67; 




003420 


accUndo ^ 68; 




003421 


accCut = 70; 




003422 


accCopy ^ 71; 




003423 


accPaste = 72; 




003424 


accClear = 73; 




003425 


goodbye ^ -1; {goodbye message) 




003426 






003427 


FUNCTION OpenDeskAcc(deskAccName: Str255): INTEGER; 




003428 


INLINE $A9B6; 




003429 


PROCEDURE CloseDeskAcc (refNum: INTEGER); 


J 
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003430 INLINE $A9B7; 

003431 PROCEDURE SystemClick (theEvent : EventRecord; theWindow: WindowPtr) i 

003432 INLINE $A9B3; 

003433 FUNCTION SystemEdit (editCmd : INTEGER): BOOLEAN; 

003434 INLINE $A9C2; 

003435 PROCEDURE SystemTask; 

003436 INLINE $A9B4; 

003437 FUNCTION SystemEvent (theEvent : EventRecord): BOOLEAN; 

003438 INLINE $A9B2; 

003439 PROCEDURE SystemMenu (menuResult : LONGINT) ; 

003440 INLINE $A9B5; 
003441 

003442 

003443 {$ENDC) { UsingDesk } 

003444 

003445 {$IFC NOT Uslnglncludes) 

003446 END. 

003447 {$ENDC} 
003448 

003449 

003450 ### END OF FILE Desk.p 

003451 
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003452 

003453 ##################################################################### 

003454 ### FILE: DeskBus.p 

003455 ##################################################################### 
003456 

003457 

003458 { 

003459 Created: Sunday, September 15, 1991 at 10:14 PM 

003460 DeskBus.p 

003461 Pascal Interface to the Macintosh Libraries 
003462 

003463 Copyright Apple Computer, Inc. 1987-1991 

003464 All rights reserved 

003465 ) 
003466 
003467 

003468 {$IFC UNDEFINED Usinglncludes } 

003469 {$SETC Usinglncludes := 0} 

003470 {$ENDC) 
003471 

003472 {$IFC NOT Usinglncludes) 

003473 UNIT DeskBus; 

003474 INTERFACE 

003475 {$ENDC} 
003476 

003477 {$IFC UNDEFINED UsingDeskBus ) 

003478 {$SETC UsingDeskBus := 1) 
003479 

003480 {$!+) 

003481 {$SETC DeskBusIncludes := Usinglncludes) 

003482 {$SETC Usinglncludes := 1} 

003483 {$IFC UNDEFINED UsingTypes} 

003484 {$1 5$Shell (Plnterfaces)Types.p) 

003485 {$ENDC} 

003486 {$SETC Usinglncludes := DeskBusIncludes) 
003487 

003488 TYPE 

003489 ADBAddress = SignedByte; 
003490 

003491 ADBOpBPtr = ^ADBOpBlock; 

003492 ADBOpBlock = RECORD 

003493 dataBuffPtr: Ptr; {address of data buffer) 

003494 opServiceRtPtr : Ptr; {service routine pointer) 

003495 opDataAreaPtr : Ptr; {optional data area address) 

003496 END; 
003497 

003498 ADBDBlkPtr = -^ADBDataBlock; 

003499 ADBDataBlock = PACKED RECORD 

003500 devType : SignedByte; {device type) 

003501 origADBAddr: SignedByte; {original ADB Address} 

003502 dbServiceRtPtr : Ptr; {service routine pointer) 

003503 dbDataAreaAddr: Ptr; {data area address} 

003504 END; 
003505 

003506 ADBSInfoPtr = ''ADBSet Inf oBlock; 

.003507 ADBSetlnfoBlock = RECORD 
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003508 
003509 
003510 
003511 
003512 
003513 
003514 
003515 
003516 
003517 
003518 
003519 
003520 
003521 
003522 
003523 
003524 
003525 
003526 
003527 
003528 
003529 
003530 
003531 



siServiceRtPtr : Ptr; 
siDataAreaAddr : Ptr; 
END; 



{service routine pointer} 
{data area address} 



PROCEDURE ADBRelnit; 

INLINE $A07B; 
FUNCTION ADBOp(data: Ptr; compRout : ProcPtr; buf f er : Ptr; commandNum: INTEGER) 
FUNCTION CountADBs: INTEGER; 

INLINE $A077,$3E80; 
FUNCTION GetlndADB (VAR info: 
FUNCTION GetADBInfo (VAR info: 
FUNCTION SetADBInfo (VAR info: 



{$ENDC} { UsingDeskBus } 

{$IFC NOT Usinglncludes} 

END. 
{$ENDC} 



ADBDataBlock; devTablelndex: INTEGER): ADBAddress; 
ADBDataBlock; adbAddr : ADBAddress): OSErr; 
ADBSetInfoBlock;adbAddr: ADBAddress): OSErr; 



### END OF FILE DeskBus.p 
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003532 

003533 ##################################################################### 

003534 ### FILE: Devices. p 

003535 ##################################################################### 
003536 

003537 { 

003538 Created: Sunday, January 6, 1991 at 10:28 PM 

003539 Devices. p 

003540 Pascal Interface to the Macintosh Libraries 
003541 

003542 Copyright Apple Computer, Inc. 1985-1990 

003543 All rights reserved 

003544 ) 
003545 
003546 

003547 {$IFC UNDEFINED Usinglncludes } 

003548 {$SETC Usinglncludes := 0} 

003549 {$ENDC} 
003550 

003551 {$IFC NOT Usinglncludes) 

003552 UNIT Devices; 

003553 INTERFACE 

003554 {$ENDC) 
003555 

003556 {$IFC UNDEFINED UsingDevices ) 

003557 {$SETC UsingDevices := 1) 
003558 

003559 {$1+) 

003560 {$SETC Deviceslncludes := Usinglncludes) 

003561 {$SETC Usinglncludes := 1} 

003562 {$IFC UNDEFINED UsingOSUtils ) 

003563 {$1 5$Shell (PInterfaces) OSUtils .p} 

003564 {$ENDC) 

003565 {$IFC UNDEFINED UsingFiles) 

003566 {$1 5$Shell (Plnterfaces)Files.p) 

003567 {$ENDC) 

003568 {$IFC UNDEFINED UsingQuickdraw) 

003569 {$1 5$Shell (PInterfaces) Quickdraw.p) 

003570 {$ENDC) 

003571 {$SETC Usinglncludes := Deviceslncludes) 
003572 

003573 CONST 

003574 newSelMsg = 12; 

003575 fillLlstMsg = 13; 

003576 getSelMsg = 14; 

003577 selectMsg = 15; 

003578 deselectMsg = 16; 

003579 terminateMsg = 17; 

003580 buttonMsg = 19; 

003581 chooserlD = 1; 

003582 initDev ^ 0; {Time for cdev to initialize itself) 

003583 hitDev = 1; {Hit on one of my items) 

003584 closeDev = 2; {Close yourself) 

003585 nulDev = 3; {Null event) 

003586 updateDev = 4; {Update event} 
.003587 activDev = 5; {Activate event) 
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003588 
003589 
003590 
003591 
003592 
003593 
003594 
003595 
003596 
003597 
003598 
003599 
003600 
003601 
003602 
003603 
003604 
003605 
003606 
003607 
003608 
003609 
003610 
003611 
003612 
003613 
003614 
003615 
003616 
003617 
003618 
003619 
003620 
003621 
003622 
003623 
003624 
003625 
003626 
003627 
003628 
003629 
003630 
003631 
003632 
003633 
003634 
003635 
003636 
003637 
003638 
003639 
003640 
003641 
003642 
003643 



deactivDev — 6; 
keyEvtDev ^ 7 ; 
macDev — 8; 
undoDev — 9; 
cutDev = 10; 
copyDev - 11; 
pasteDev - 12; 
clearDev - 13; 
cursorDev - 14; 
cdevGenErr — -1; 
cdevMeraErr — 0; 
cdevResErr — 1; 
cdevUnset - 3; 



{Deactivate event} 

{Key down/auto key} 

{Decide whether or not to show up} 



{General error; gray cdev w/o alert} 
{Memory shortfall; alert user please) 
{Couldn't get a needed resource; alert} 
{ cdevValue is initialized to this} 



{ Monitors control panel messages } 



initMsg = 1; 
okMsg = 2; 
cancelMsg - 3; 
hitMsg = 4; 
nulMsg = 5; 
updateMsg - 6; 
activateMsg — 7; 
deactivateMsg - < 
keyEvtMsg = 9; 
superMsg - 10; 
normalMsg ^ 11; 
startupMsg = 12; 



{initialization} 

{user clicked OK button} 

{user clicked Cancel button} 

{user clicked control in Options dialog} 

{periodic event} 

{update event} 

{not used} 

{not used} 

{keyboard event} 

{show superuser controls} 

{show only normal controls} 

{code has been loaded} 



TYPE 
DCtlPtr 
DCtlHani 
DCtlEnt 
dCt 
dCt 
dCt 
dCt 
dCt 
dCt 
dCt 
dCt 
dCt 
dCt 
dCt 
END 



= ^DCtlEntry; 
die = -^DCtlPtr; 
ry = RECORD 
IDriver: Ptr; 
IFlags: INTEGER; 
IQHdr: QHdr; 
IPosition: LONGINT; 
IStorage : Handle; 
IRefNum: INTEGER; 
ICurTicks: LONGINT; 
IWindow: WindowPtr; 
IDelay: INTEGER; 
lEMask: INTEGER; 
IMenu: INTEGER; 



AuxDCEPtr = ^AuxDCE; 
AuxDCEHandle = ^AuxDCEPtr; 
AuxDCE = PACKED RECORD 

dCtlDriver: Ptr; 

dCtlFlags: INTEGER; 

dCtlQHdr: QHdr; 

dCtlPosition: LONGINT; 

dCtlStorage: Handle; 

dCtlRefNum: INTEGER; 

dCtlCurlicks : LONGINT; 

dCtlWindow: GrafPtr; 
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003644 dCtlDelay: INTEGER; 

003645 dCtlEMask: INTEGER; 

003646 dCtlMenu: INTEGER; 

003647 dCtlSlot: Byte; 

003648 dCtlSlotId: Byte; 

003649 dCtlDevBase: LONGINT; 

003650 dCtlOwner: Ptr; 

003651 dCtlExtDev: Byte; 

003652 flllByte: Byte; 

003653 END; 
003654 

003655 

003656 FUNCTION GetDCtlEntry ( ref Num : INTEGER): DCtlHandle; 

003657 FUNCTION SetChooserAlert ( f : BOOLEAN): BOOLEAN; 

003658 FUNCTION OpenDriver (name : Str255;VAR drvrRefNum: INTEGER): OSErr; 

003659 FUNCTION CloseDrlver (ref Num : INTEGER): OSErr; 

003660 FUNCTION Control (ref Num : INTEGER; csCode : INTEGER; csParamPtr : Ptr): OSErr; 

003661 FUNCTION Status (ref Num: INTEGER; csCode : INTEGER; csParamPtr : Ptr): OSErr; 

003662 FUNCTION KilllO (ref Num: INTEGER): OSErr; 

003663 FUNCTION PBControl (paramBlock : ParmBlkPtr ; async : BOOLEAN): OSErr; 

003664 FUNCTION PBControlSync (paramBlock : ParmBlkPtr): OSErr; 

003665 INLINE $205F, $A004 , $3E80 ; 

003666 FUNCTION PBControlAsync (paramBlock : ParmBlkPtr): OSErr; 

003667 INLINE $205F, $A404 , $3E80 ; 

003668 FUNCTION PBStatus (paramBlock : ParmBlkPtr; async : BOOLEAN): OSErr; 

003669 FUNCTION PBStatusSync (paramBlock : ParmBlkPtr): OSErr; 

003670 INLINE $205F, $A005, $3E80 ; 

003671 FUNCTION PBStatusAsync (paramBlock : ParmBlkPtr): OSErr; 

003672 INLINE $205F, $A405, $3E80 ; 

003673 FUNCTION PBKlllIO (paramBlock: ParmBlkPtr; async : BOOLEAN): OSErr; 

003674 FUNCTION PBKilllOSync (paramBlock : ParmBlkPtr): OSErr; 

003675 INLINE $205F, $A006, $3E80 ; 

003676 FUNCTION PBKilllOAsync (paramBlock : ParmBlkPtr): OSErr; 

003677 INLINE $205F, $A406, $3E80 ; 
003678 

003679 

003680 {$ENDC) { UsingDevlces } 

003681 

003682 {$IFC NOT Uslnglncludes ) 

003683 END. 

003684 {$ENDC} 
003685 

003686 

003687 ### END OF FILE Devices. p 

003688 
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003689 
003690 
003691 
003692 
003693 
003694 
003695 
003696 
003697 
003698 
003699 
003700 
003701 
003702 
003703 
003704 
003705 
003706 
003707 
003708 
003709 
003710 
003711 
003712 
003713 
003714 
003715 
003716 
003717 
003718 
003719 
003720 
003721 
003722 
003723 
003724 
003725 
003726 
003727 
003728 
003729 
003730 
003731 
003732 
003733 
003734 
003735 
003736 
003737 
003738 
003739 
003740 
003741 
003742 
003743 
003744 



######################################################1 
### FILE: Dialogs. p 
######################################################1 



Created: Thursday, September 12, 1991 at 2:47 PM 
Dialogs . p 
Pascal Interface to the Macintosh Libraries 

Copyright Apple Computer, Inc. 1985-1991 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 
{$ENDC) 

{$IFC NOT Usinglncludes) 

UNIT Dialogs; 

INTERFACE 
{$ENDC} 

{$IFC UNDEFINED UsingDialogs ) 
{$SETC UsingDialogs := 1) 

{$!+) 

{$SETC Dialogslncludes := Usinglncludes) 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingWindows ) 

{$1 $$ Shell (P Interfaces) Windows. p} 

{$ENDC) 

{$IFC UNDEFINED UsingTextEdit } 

{$1 5$ Shell (P Interfaces) TextEdit .p) 

{$ENDC) 

{SSETC Usinglncludes :^ Dialogslncludes) 



#######1 



###### 
###### 



CONST 

ctrll 

btnCt 

chkCt 

radCt 

reset 

statT' 

editl' 

iconi 

picit 

userl 

itemD 

ok 

cance 

stopi 

notel 

cauti 



tern = 4 
rl = 
rl = 1 
rl = 2 
rl = 3 
ext = 8 
ext = 1 
tern - 3 
era - 64 
tem = 
isable 
1; 

1 = 2; 
con = 
con = 1 
onlcon 



128; 
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003745 
003746 
003747 
003748 
003749 
003750 
003751 
003752 
003753 
003754 
003755 
003756 
003757 
003758 
003759 
003760 
003761 
003762 
003763 
003764 
003765 
003766 
003767 
003768 
003769 
003770 
003771 
003772 
003773 
003774 
003775 
003776 
003777 
003778 
003779 
003780 
003781 
003782 
003783 
003784 
003785 
003786 
003787 
003788 
003789 
003790 
003791 
003792 
003793 
003794 
003795 
003796 
003797 
003798 
003799 
003800 



TYPE 

{ Dialog Item List Manipulation Constants } 

DITLMethod = INTEGER; 

CONST 

overlayDITL = 0; 
appendDITLRight = 1; 
appendDITLBottom = 2; 



TYPE 

StageList = PACKED RECORD 
boldItm4 : . . 1 ; 

BOOLEAN; 
. .3; 
. . 1 ; 
BOOLEAN; 
. .3; 
. . 1 ; 
BOOLEAN; 
. .3; 
. . 1 ; 
BOOLEAN; 
3; 



boxDrwn4 ; 
sound4 : 
boldltmS: 
boxDrwn3 ; 
sound3 : 
boldItm2 : 
boxDrwn2 ; 
sound2 : 
boldltml: 
boxDrwnl ; 
soundl 
END; 



{default button item number - 1} 
{true if alert box to be drawn} 
{sound number} 



0. 



DialogPtr ^ WindowPtr; 
ResumeProcPtr - ProcPtr; 
SoundProcPtr - ProcPtr; 
ModalFilterProcPtr = ProcPtr; 

DialogPeel: — "^DialogRecord; 
DialogRecord = RECORD 

window: WindowRecord; 

items: Handle; 

textH: TEHandle; 

editField: INTEGER; 

editOpen: INTEGER; 

aDefltem: INTEGER; 

END; 

DialogTPtr = -^DialogTemplate; 
DlalogTHndl = '■DialogTPtr; 
DlalogTemplate = RECORD 

boundsRect : Rect; 

procID: INTEGER; 

visible: BOOLEAN; 

fillerl: BOOLEAN; 

goAwayFlag: BOOLEAN; 

filler2: BOOLEAN; 

refCon: LONGINT; 

itemsID: INTEGER; 

title: Str255; 

END; 



{ PROCEDURE Resume; } 

{ PROCEDURE DoSound; } 

{ FUNCTION Filter (theDialog: DialogPtr; VAR theEvent : EventRecord; 



VAR itemHit: INTEGER): BOOLEAN; } 
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003801 AlertTPtr = ^AlertTemplate; 

003802 AlertTHndl = -^AlertTPtr; 

003803 AlertTemplate = RECORD 

003804 boundsRect: Rect; 

003805 itemsID: INTEGER; 

003806 stages: StageList; 

003807 END; 
003808 
003809 

003810 PROCEDURE InitDialogs (resumeProc : ResumeProcPtr) ; 

003811 INLINE $A97B; 

003812 PROCEDURE ErrorSound (soundProc : SoundProcPtr) ; 

003813 INLINE $A98C; 

003814 FUNCTION NewDialog(wStorage: Ptr; boundsRect : Rect;title: Str255; visible : BOOLEAN; 

003815 procID: INTEGER; behind : WindowPtr; goAwayFlag: BOOLEAN; ref Con : LONGINT; 

003816 ititiLstHndl: Handle): DialogPtr; 

003817 INLINE $A97D; 

003818 FUNCTION GetNewDialog (dialoglD : INTEGER; dStorage : Ptr;beliind: WindowPtr): DialogPtr; 

003819 INLINE $A97C; 

003820 PROCEDURE CloseDialog (theDialog : DialogPtr); 

003821 INLINE $A982; 

003822 PROCEDURE DisposDialog (theDialog : DialogPtr); 

003823 INLINE $A983; 

003824 PROCEDURE DisposeDialog (theDialog : DialogPtr); 

003825 INLINE $A983; 

003826 PROCEDURE CouldDialog (dialoglD : INTEGER); 

003827 INLINE $A979; 

003828 PROCEDURE FreeDialog (dialoglD : INTEGER); 

003829 INLINE $A97A; 

003830 PROCEDURE ParamText (paramO : Str255; paraml : Str255 ; param2 : Str255 ; param3 : Str255); 

003831 INLINE $A98B; 

003832 PROCEDURE ModalDialog ( f ilterProc : ModalFilterProcPtr; VAR itemHit : INTEGER); 

003833 INLINE $A991; 

003834 FUNCTION IsDialogEvent (theEvent : EventRecord) : BOOLEAN; 

003835 INLINE $A97F; 

003836 FUNCTION DialogSelect (theEvent : EventRecord; VAR theDialog: DialogPtr; VAR itemHit: INTEGER): BOOLEAN; 

003837 INLINE $A980; 

003838 PROCEDURE DrawDialog (theDialog: DialogPtr); 

003839 INLINE $A981; 

003840 PROCEDURE UpdtDialog (theDialog : DialogPtr; updateRgn : RgnHandle) ; 

003841 INLINE $A978; 

003842 PROCEDURE UpdateDialog (theDialog : DialogPtr; updateRgn : RgnHandle); 

003843 INLINE 5A978; 

003844 FUNCTION Alert (alertlD: INTEGER; f ilterProc : ModalFilterProcPtr): INTEGER; 

003845 INLINE $A985; 

003846 FUNCTION StopAlert (alertID: INTEGER; f ilterProc : ModalFilterProcPtr): INTEGER; 

003847 INLINE $A986; 

003848 FUNCTION NoteAlert (alertID: INTEGER; f ilterProc : ModalFilterProcPtr): INTEGER; 

003849 INLINE $A987; 

003850 FUNCTION CautionAlert (alert ID : INTEGER; f ilterProc : ModalFilterProcPtr): INTEGER; 

003851 INLINE $A988; 

003852 PROCEDURE CouldAlert (alert ID : INTEGER); 

003853 INLINE $A989; 

003854 PROCEDURE FreeAlert (alert ID : INTEGER); 

003855 INLINE $A98A; 

003856 PROCEDURE GetDItem (theDialog : DialogPtr; itemNo : INTEGER;VAR itemType: INTEGER; 
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003857 
003858 
003859 
003860 
003861 
003862 
003863 
003864 
003865 
003866 
003867 
003868 
003869 
003870 
003871 
003872 
003873 
003874 
003875 
003876 
003877 
003878 
003879 
003880 
003881 
003882 
003883 
003884 
003885 
003886 
003887 
003888 
003889 
003890 
003891 
003892 
003893 
003894 
003895 
003896 
003897 
003898 
003899 
003900 
003901 
003902 
003903 



VAR item: Handle;VAR box: Rect); 

INLINE $A98D; 
PROCEDURE SetDItem(theDialog: DialogPtr; ItemNo : INTEGER; ItemType : INTEGER; 

item: Handle;box: Rect); 

INLINE $A98E; 
PROCEDURE HideDItem(theDialog: DialogPtr; itemNo : INTEGER); 

INLINE $A827; 
PROCEDURE ShowDItem(theDialog: DialogPtr; itemNo : INTEGER); 

INLINE $A828; 
PROCEDURE SellText (theDialog: DialogPtr; itemNo : INTEGER; strtSel : INTEGER; 

endSel: INTEGER) ; 

INLINE $A97E; 
PROCEDURE GetlText (item: Handle; VAR text: Str255); 

INLINE 5A990; 
PROCEDURE SetlText (item: Handle;text: Str255); 

INLINE $A98F; 
FUNCTION FindDItem (theDialog: DialogPtr; thePt : Point): INTEGER; 

INLINE $A984; 
FUNCTION NewCDialog (dStorage: Ptr; boundsRect : Rect;title: Str255; visible : BOOLEAN; 

procID: INTEGER; behind: WindowPtr; goAwayFlag : BOOLEAN; ref Con : LONGINT; 

items: Handle) : DialogPtr; 

INLINE $AA4B; 
FUNCTION GetAlrtStage: INTEGER; 

INLINE $3EB8,$0A9A; 
PROCEDURE ResetAlrtStage; 

INLINE $4278,$0A9A; 
PROCEDURE DlgCut (theDialog: DialogPtr); 
PROCEDURE DlgPaste (theDialog: DialogPtr); 
PROCEDURE DlgCopy (theDialog: DialogPtr); 
PROCEDURE DlgDelete (theDialog: DialogPtr); 
PROCEDURE SetDAFont (fontNum: INTEGER); 

INLINE $31DF,$0AFA; 

PROCEDURE AppendDITL (theDialog: DialogPtr; theHandle : Handle;method: DITLMethod) ; 

FUNCTION CountDITL (theDialog: DialogPtr): INTEGER; 

PROCEDURE ShortenDITL (theDialog: DialogPtr; numberltems : INTEGER); 



{$ENDC) { UsingDialogs ) 

{$IFC NOT Usinglncludes} 

END. 
{$ENDC} 



### END OF FILE Dialogs. p 
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003904 
003905 
003906 
003907 
003908 
003909 
003910 
003911 
003912 
003913 
003914 
003915 
003916 
003917 
003918 
003919 
003920 
003921 
003922 
003923 
003924 
003925 
003926 
003927 
003928 
003929 
003930 
003931 
003932 
003933 
003934 
003935 
003936 
003937 
003938 
003939 
003940 
003941 
003942 
003943 
003944 
003945 
003946 
003947 
003948 
003949 
003950 
003951 
003952 
003953 
003954 
003955 
003956 
003957 
003958 
003959 



##################################################################### 
### FILE: DisAsmLookup.p 
##################################################################### 



Created: Wednesday, November 1, 1989 

DisAsmLookup . p 

Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 1987-1990 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 
{$ENDC) 

{$IFC NOT Usinglncludes) 

UNIT DisAsmLookup; 

INTERFACE 
{$ENDC} 

{$IFC UNDEFINED UsingDisAsmLookup} 
{$SETC UsingDisAsmLookup := 1} 

{$1+) 

{$SETC DisAsmLookupIncludes := Usinglncludes} 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingTypes) 

{$1 $$Shell (Plnterfaces)Types.p) 

{$ENDC) 

{$SETC Usinglncludes := DisAsmLookupIncludes} 



LookupRegs = (_A0_, _A1_ 



_A2_ 



_A3_, _A4_, _A5_ 
, _ABS_, _TRAP_, 



_A6_ 
_IMM_ 



_A7_ 



PROCEDURE Disassembler ( 



*) 

DstAdjust: Longint; {addr correction} 

VAR BytesUsed: Integer; 

FirstByte: UNIV Ptr; 
VAR Opcode: UNIV Str255; 

VAR Operand: UNIV Str255; 
VAR Comment: UNIV Str255; 

LookupProc: UNIV Ptr); 
(* 

Disassembler is a Pascal routine to be called to disassemble a sequence 
of bytes. All MC68xxx, MC68881, and MC68851 instructions are supported. 
The sequence of bytes to be disassembled are pointed to by FirstByte. 
BytesUsed bytes starting at FirstByte are consumed by the disassembly, 
and the Opcode, Operand, and Comment strings returned as NULL TERMINATED 
Pascal strings (for easier manipulation with C) . The caller is then free 
to format or use the output strings any way appropriate to the 



{bytes used up } 

{starting byte } 
{mnemonic } 

operand } 
{ comment } 

{search proc } 



" \ 
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address 
TB XXXX 
OS XXXX 

9 9 9 9 



003960 application . 
003961 

003962 Depending on the opcode and effective address (s) (EA's) to be 

003963 disassembled, the Opcode, Operand, and Comment strings contain the 

003964 following information: 
003965 

003966 Case Opcode Operand Comment 

03 9 67 ^^^=^^^=^^==^^==^^==^^==^^^=^^^=^^^=^^^=^^==^^^=^^==^^==^^==^^==^^==^^= 

003968 Non PC-relative EA's op.sz EA's ; ' c... ' (for immediates) 

003969 PC-relative EA's op.sz EA's 

003970 Toolbox traps DC.W $AXXX 

003971 OS traps DC.W $AXXX 

003972 Invalid bytes DC.W $XXXX 
03 97 3 ^^^=^^^=^^^=^^=^=^===^^=^^^=^^^=^^^=^^==^^==^^^=^^^=^^^=^^===^^^=^===^^ 

003974 

003975 For valid disassembly of processor instructions the appropriate MC68XXX 

03 97 6 opcode mnemonic is generated for the Opcode string along with a size 

03 97 7 attribute when required . The source and destination EA ' s are generated 

003978 as the Operand along with a possible comment. Comments start with a '; ' . 

03 97 9 Traps use a DC . W assembler directive as the Opcode with the trap word 

003980 as the Operand and a comment indicating whether the trap is a toolbox or 

003981 OS trap and what the trap number is . As described later the caller can 
03 982 generate symbolic substitutions into EA ' s and provide names for traps . 
003983 

003984 Invalid instructions cause the string 'DC.W' to be returned in the 

003985 Opcode string . Operand is ' $XXXX ' (the invalid word) with a comment of 

003986 '; ????'. BytesUsed is 2. This is similar to the trap call case except 

003987 for the comment. 
003988 

003989 Note, the Operand EA's is syntatically similar to but NOT COMPATIBLE 

003990 with the MPW assembler! This is because the Disassembler generates 

003991 byte hex constants as "$XX" and word hex constants as "$XXXX". Negative 

003992 values (e.g., $FF or SFFFF) produced by the Disassembler are treated as 
03 9 93 long word values by the MPW assembler . Thus it is assumed that 

003994 Disassembler output will NOT be used as MPW assembler input. If that is 

003995 the goal , then the caller must convert strings of the form $XX or $XXXX 

003996 in the Operand string to their decimal equivalent . The routine 

03 9 97 Modify Ope rand is provided in this unit to aid with the conversion 

003998 process. 

003999 

004000 Since a PC-relative comment is an address, the only address that the 

004001 Disassembler knows about is the address of the code pointed to by 

04 02 FirstByte . Generally, that may be a buffer that has no relation to 

004003 "reality", i.e., the actual code loaded into the buffer . Therefore, 

004004 to allow the address comment to be mapped back to some actual address 

004005 the caller may specify an adjustment factor, specified by DstAd just , 

004006 that is ADDED to the value that normally would be placed in the 

004007 comment . 
004008 

004009 Operand effective address strings are generated as a function of the 

004010 effective address mode and a special case is made for A- trap opcode 

004011 strings. In places where a possible symbolic reference could be 

04 012 substituted for an address (or a portion of an address) , the Disassembler 

004013 can call a user specified routine to do the substitution (using the 

04 014 LookupProc parameter described later) . The following table summarizes 

.004015 the generated effective addresses and where symbolic substitutions (S ) 
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004016 


can be 


made : 






004017 










004018 


Mode 


Generated Effective Address 


Effective Address with Substitution 




004019 
004020 













Dn 


Dn 




004021 


1 


An 


An 




004022 


2 


(An) 


(An) 




004023 


O 


(An) + 


(An) + 




004024 


4 


-(An) 


-(An) 




004025 


5 


3 (An) 


S(An) or just S (if An=A5, a>0) 




004026 


6n 


3(An,Xn.Size*Scale) 


S (An,Xn.Size*Scale) 




004027 


6n 


(BD, An, Xn. Size* Scale) 


(S, An, Xn. Size* Scale) 




004028 


6n 


( [BD,An] ,Xm.Size*Scale,OD) 


( [S,An] ,Xm.Size*Scale,OD) 




004029 


6n 


( [BD, An, Xn. Size* Scale] , OD) 


( [S, An, Xn. Size* Scale] , OD) 




004030 


70 


a 


S 




004031 


71 


a 


S 




004032 


72 


*±a 


s 




004033 


73 


*±3 (Xn. size* Scale) 


S (Xn.Size*Scale) 




004034 


73 


(*±a, Xn. Size*Scale) 


(S,Xn.Size*Scale) 




004035 


73 


( [*±a] ,Xm. Size * Scale, OD) 


( [S] ,Xm. Size* Scale, OD) 




004036 


73 


( [*+a,Xn.Size*Scale] ,0D) 


( [S,Xn.Size*Scale] ,0D) 




004037 


74 


#data 


S (#data made comment) 




004038 


A-traps 


$AXXX 


S (as opcode, AXXX made comment) 




004039 
004040 


















004041 


For A-t 


raps, the substitution can be 


performed to substitute for the DC.W 




004042 


opcode 


string. If the substitution is made then the Disassembler will 




004043 


generate , Sys and/or , Immed flags as 


operands for Toolbox traps and 




004044 


/AutoPop for OS traps when the bits in the trap word indicates these 




004045 


setting 


s . 






004046 










004047 




Generated 


Substituted 




004048 




Opcode Operand Comment I Opcode Operand Comment 




004049 
















004050 


Toolbox 


DC.W $AXXX ; TB XXXX 


S [, Sys] [, Immed] ; AXXX 




004051 


OS 


DC.W $AXXX ; OS XXXX 


S [,AutoPop] ; AXXX 




004052 
004053 


















004054 


All dis 


placements (3, BD, OD) are hexadecimal values shown as a byte 




004055 


{$XX), 


word ($XXXX) , or long ($XXXXXXXX) as appropriate. The *Scale is 




004056 


suppressed if 1. The Size is W or L. 


Note that effective address 




004057 


substit 


utions can only be made for "a(An)", "BD,An", and "*±a" cases. 




004058 










004059 


For all 


the effective address modes 5, 6n, 7n, and for A-traps, a 




004060 


coroutine (a procedure) whose address is specified by the LookupProc 




004061 


parameter is called by the Disassembler (if LookupProc is not NIL) to 




004062 


do the 


substitution (or A-trap comment) with a string returned by the 




004063 


proc . 


It is assumed that the proc pointed to by LookupProc is a level 1 




004064 


Pascal 


proc declared as follows : 






004065 










004066 


PROCEDURE Lookup ( PC: UNIV 


Ptr; (Addr of extension/trap word] 




004067 






BaseReg: LookupRegs; (Base register/lookup mode } 




004068 






Opnd: UNIV LongInt; (Trap word, PC addr, disp. ) 




004069 




VAR S: Str255); {Returned substitution } 




004070 










004071 


or in C 


, 
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A0_ 


= 





==> 


AO 






Al 


= 


1 


==> 


Al 






A2_ 


= 


2 


==> 


A2 






A3_ 


= 


3 


==> 


A3 






A4 


= 


4 


==> 


A4 






A5_ 


= 


5 


==> 


A5 






A6_ 


= 


6 


==> 


A6 






A7_ 


= 


7 


==> 


A7 






PC_ 


= 


8 


==> 


PC-relative 


(special 


case) 


ABS_ 


= 


9 


==> 


Abs addr 


{special 


case) 


.TRAP_ 


= 


10 


==> 


Trap word 


(special 


case) 


.IMM_ 


= 


11 


==> 


Immediate 


(special 


case) 



004072 

004073 pascal void LookUp (Ptr PC, /* Addr of extension/trap word */ 

004074 LookupRegs BaseReg, /* Base register/lookup mode */ 

004075 long Opnd, /* Trap word, PC addr, disp. */ 

004076 char *S) ; /* Returned substitution 
004077 

004078 PC - Pointer to instruction extension word or A-trap word in the 

004079 buffer pointed to by the Disassembler's FirstByte parameter. 
004080 

004081 BaseReg ^ This determines the meaning of the Opnd value and supplies 

004082 the base register for the "3(An)", "BD,An", and "*±3" cases. 

004083 BaseReg may contain any one of the following values: 
004084 

004085 
004086 
004087 
004088 
004089 
004090 
004091 
004092 
004093 
004094 
004095 
004096 
004097 

004098 For absolute addressing (modes 70 and 71), BaseReg contains 

004099 _ABS_. For A-traps, BaseReg would contain _TRAP_. For 

004100 immediate data (mode 74), BaseReg would contain _IMM_. 
004101 

004102 Opnd - The contents of this Longint is determined by the BaseReg 

004103 parameter just described. 
004104 

004105 For BaseReg = _IMM_ (immediate data) : 

004106 Opnd contains the (extended) 32-bit immediate data specified 

004107 by the instruction. 
004108 

004109 For BaseReg = _TRAP_ (A-traps) : 

004110 Opnd is the entire trap word. The high order 16 bits of 

004111 Opnd are zero. 
004112 

004113 For BaseReg = _ABS_ (absolute effective address) : 

004114 Opnd contains the (extended) 32-bit address specifed by 

004115 the instruction's effective address. Such addresses would 

004116 generally be used to reference low memory globals on a 

004117 Macintosh. 
004118 

004119 For BaseReg = _PC_ (PC-relative effective address) : 

004120 Opnd contains the 32-bit address represented by "*±3" 

004121 adjusted by the Disassembler's DstAdjust parameter. 
004122 

004123 For BaseReg - _An_ (effective address with a base register) : 

004124 Opnd contains the (sign-extended) 32-bit (base) 

004125 displacement from the instruction's effective address. 
004126 

.004127 In the Macintosh environment, a BaseReg specifying A5 
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004128 
004129 
004130 
004131 
004132 
004133 
004134 
004135 
004136 
004137 
004138 
004139 
004140 
004141 
004142 
004143 
004144 
004145 
004146 
004147 
004148 
004149 
004150 
004151 
004152 
004153 
004154 
004155 
004156 
004157 
004158 
004159 
004160 
004161 
004162 
004163 
004164 
004165 
004166 
004167 
004168 
004169 
004170 
004171 
004172 
004173 
004174 
004175 
004176 
004177 
004178 
004179 
004180 
004181 
004182 
004183 



implies either global data references or Jump Table 
references. Positive Opnd values with an A5 BaseReg thus 
mean Jump Table references, while a negative offset would 
mean a global data reference. Base registers of A6 or A7 
would usually mean local data. 

S - Pascal string returned from Lookup containing the effective 

address substitution string or a trap name for A-traps. S is 
set to null PRIOR to calling Lookup. If it is still null on 
return, the string is not used. If not null, then for A-traps, 
the returned string is used as the opcode string. In all other 
cases the string is substituted as shown in the above table. 

Depending on the application, the caller has three choices on how to 
use the Disassembler and an associated Lookup proc: 

(1) . The caller can call just the Disassembler and provide his own Lookup 

proc. In that case the calling conventions discussed above must be 
followed . 

(2) . The caller can provide NIL for the LookupProc parameter, in which 
case, NO Lookup proc will be called. 

(3) . The caller can call first InitLookup (described below, a proc 

provided with this unit) and pass the address of this unit's 
standard Lookup proc when Disassembler is called. In this case all 
the control logic to determine the kind of substitution to be done 
is provided for the caller and all that need to be provided by the 
user are routines to look up any or all of the following: 

PC-relative references 

Jump Table references 

Absolute address references 

Trap names 

Immediate data names 

References with offsets from base registers 

PROCEDURE InitLookup (PCRelProc, JTOffProc, TrapProc, AbsAddrProc, IdProc, ImmDataProc: UNIV Ptr) , 
{Prepare for use of this unit's Lookup proc. When Disassembler is called 
and the address of this unit ' s Lookup proc is specified, then for immediate 
data, PC-relative, Jump Table references, A-traps, absolute addresses, and 
offsets from a base register, the associated level 1 Pascal proc 
specified here is called (if not NIL — all six addresses are preset to 
NIL) . The calls assume the following declarations for these procs (see 
Lookup, below for further details) : 



PROCEDURE PCRelProc (Address : 



UNIV Longint; 

VAR S: 



UNIV Str255) , 



PROCEDURE JTOffProc (A5JT0ff set : UNIV Integer; 

VAR S: UNIV Str255) , 



PROCEDURE TrapNameProc (TrapWord: UNIV Integer; 



VAR S: UNIV Str255) , 
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004184 


004185 


004186 


004187 


004188 


004189 


004190 


004191 


004192 


004193 


004194 


004195 


004196 


004197 


004198 


004199 


004200 


004201 


004202 


004203 


004204 


004205 


004206 


004207 


004208 


004209 


004210 


004211 


004212 


004213 


004214 


004215 


004216 


004217 


004218 


004219 


004220 


004221 


004222 


004223 


004224 


004225 


004226 


004227 


004228 


004229 


004230 


004231 


004232 


004233 


004234 


004235 


004236 


004237 


004238 


004239 



PROCEDURE AbsAddrProc (AbsAddr: UNIV Longint; 

VAR S: UNIV Str255) ; 

PROCEDURE IdProc {BaseReg: LookupRegs; 

Offset: UNIV Longint; 
VAR S: UNIV Str255) ; 

PROCEDURE ImmDataProc (ImmData: UNIV Longint; 

VAR S: UNIV Str255) ; 

Note : Init Lookup contains initialized data which requires initializing 

at load time (this is of concern only to users with assembler 
main programs . } 

PROCEDURE Lookup { PC: UNIV Ptr; {Addr of extension/trap word) 

BaseReg : LookupRegs; {Base register /lookup mode 
Opnd: UNIV Longint; {Trap word, PC addr, disp. 
VAR S: Str255) ; {Returned substitution } 

{This is a standard Lookup proc available to the caller for calls to the 
Disassembler . If the caller elects to use this proc, then Init Lookup 
MUST be called prior to any calls to the Disassembler . All the logic 
to determine the type of lookup is done by this proc. For PC- relative. 
Jump Table references, A-traps, absolute addresses , and offsets from a 
base register, the associated level 1 Pascal proc specified in the 
I nit Lookup call (if not NIL) is called. 

This scheme simplifies the Lookup mechanism by allowing the caller 
to deal with just the problems related to the application.} 

PROCEDURE LookupTrapName (TrapWord: UNIV Integer; 

VAR S: UNIV Str255) ; 
{ This is a procedure provided to allow conversion of a trap instruction 
( in TrapWord) to its corresponding trap name (in S) . It is provided 
primarily for use with the Disassembler and its address may be passed to 
InitLookup above for use by this unit ' s Lookup routine . Alternatively, 
there is nothing prohibiting the caller from using it directly for other 
purposes or by some other Lookup proc . 

Note : The tables in this proc make the size of this proc about 95 

bytes . The trap names are fully spelled out in upper and lower 
case . } 

PROCEDURE ModifyOperand(VAR Operand: UNIV Str255); 

{ Scan an operand string, i.e., the null terminated Pascal string returned 
by the Disassembler (null MUST be present here ) and modify negative hex 
values to negated positive value . For example, $FFFF(A5) would be 
modified to -§0001 (A5) . The operand to be processed is passed as the 
function ' s parameter which is edited "in place" and returned to the 
caller . 

This routine is essentially a pattern matcher and attempts to only 
modify 2 , 4 , and 8 digit hex strings in the operand that "might " be 
offsets from a base register. If the matching tests are passed, the 
same number of original digits are output (because that indicates a 
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004240 


value's size -- byte, word, or long) . 




004241 






004242 


For a hex string to be modified, the following tests must be passed: 




004243 






004244 


• There must have been exactly 2, 4, or 8 digits. 




004245 






004246 


Only hex strings $XX, $XXXX, and $XXXXXXXX are possible candidates 




004247 


because that is the only way the Disassembler generates offsets . 




004248 






004249 


• Hex string must be delimited by a "{" or a ",". 




004250 






004251 


The "(" allows offsets for 5XXXX (An, . . . ) and $XX(An,Xn) addressing 




004252 


modes. The comma allows for the MC68020 addressing forms. 




004253 






004254 


• The "5X..." must NOT be preceded by a "±" . 




004255 






004256 


This eliminates the possibility of modifying the offset of a 




004257 


PC-relative addressing mode always generated in the form "*±SXXXX". 




004258 






004259 


• The "5X..." must NOT be preceded by a "#". 




004260 






004261 


This eliminates modifying immediate data. 




004262 






004263 


• Value must be negative. 




004264 






004265 


Negative values are the only values we modify. A value SFFFF is 




004266 


modified to -$0001 . } 




004267 






004268 


FUNCTION validMacsBugSymbol (symStart, limit: UNIV Ptr; 




004269 


symbol: StringPtr) : StringPtr; C; 




004270 


{Check that the bytes pointed to by syraStart represents a valid MacsBug 




004271 


symbol. The symbol must be fully contained in the bytes starting at 




004272 


symStart, up to, but not including, the byte pointed to by the limit 




004273 


parameter . 




004274 






004275 


If a valid symbol is NOT found, then NIL is returned as the function's 




004276 


result. However, if a valid symbol is found, it is copied to symbol (if 




004277 


it is not NIL) as a null terminated Pascal string, and return a pointer 




004278 


to where we think the FOLLOWING module begins. In the "old style" cases 




004279 


(see below) this will always be 8 or 16 bytes after the input symStart. 




004280 


For new style Apple Pascal and C cases this will depend on the symbol 




004281 


length, existence of a pad byte, and size of the constant (literal) area. 




004282 


In all cases, trailing blanks are removed from the symbol. 




004283 






004284 


A valid MacsBug symbol consists of the characters '_', '%', spaces. 




004285 


digits, and upper/lower case letters in a format determined by the first 




004286 


two bytes of the symbol as follows: 




004287 






004288 


1st byte 1 2nd byte I Byte I 




004289 


Range I Range I Length | Comments 




004290 








004291 


$20 - $7F 1 $20 - $7F | 8 | "Old style" MacsBug symbol format 




004292 


$A0 - $7F 1 $20 - $7F | 8 | "Old style" MacsBug symbol format 




004293 








004294 


$20 - $7F 1 $80 - $FF | 16 | "Old style" MacApp symbol ab==>b . a 




004295 


$A0 - $7F 1 $80 - $FF | 16 | "Old style" MacApp symbol ab==>b . a 


J 
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042 9 6 

004297 $80 I $01 - SFF | n I n - 2nd byte (Apple symbol) 

004298 $81 - S9F | $00 - SFF | m | m - BAnd(lst byte, $7F) (Apple symbol) 
042 9 9 ^^==^^^=^^^=^^^=^^^=^^^=^^^=^^^=^^^=^^^=^^^=^^^=^^^=^^^=^^^=^^^=^^==^^^ 

004300 

004301 The formats are determined by whether bit 7 is set in the first and 

004302 second bytes. This bit will removed when we find it or'ed into the first 

004303 and/or second valid symbol characters . 
004304 

004305 The first two formats in the above table are the basic "old style" (pre- 

00430 6 existing) Macs Bug formats . The first byte may or may not have bit 7 set 

004307 the second byte is a valid symbol character. The first byte (with bit 7 

004308 removed) and the next 7 bytes are assumed to comprise the symbol . 
004309 

004310 The second pair of formats are also "old style" formats , but used for 

004311 MacApp symbols . Bit 7 set in the second character indicates these 

04 312 formats . The symbol is assumed to be 16 bytes with the second 8 bytes 

004313 preceding the first 8 bytes in the generated symbol . For example, 

004314 12345678abcdefgh represents the symbol abcdefgh . 12345678 . 
004315 

004316 The last pair of formats are reserved by Apple and generated by the MPW 

004317 Pascal and C compilers . In these cases the value of the first byte is 

004318 always between $80 and $9F, or with bit 7 removed, between $00 and $1F. 

004319 For $00, the second byte is the length of the symbol with that many bytes 

004320 following the second byte (thus a max length of 255) . Values $01 to $1F 

004321 represent the length itself. A pad byte may follow these variable length 

004322 cases if the symbol does not end on a word boundary . Following the 

04 32 3 symbol and the possible pad byte is a word containing the size of the 

00432 4 constants (literals) generated by the compiler . 

004325 

004326 Note that if symStart actually does point to a valid MacsBug symbol, 

004327 then you may use showMacsBugSymbol to convert the MacsBug symbol bytes to 
04 32 8 a string that could be used as a DC.B operand for disassembly purposes . 

04 32 9 This string explicitly shows the MacsBug symbol encodings . } 
004330 

004331 FUNCTION endOfModule (address , limit: UNIVPtr; symbol: StringPtr; 

004332 VAR nextModule : UNIV Ptr) : StringPtr; 

004333 {Check to see if the specified memory address, contains a RTS, JMP (AO) or 
04 3 34 RTD #n instruction immediately followed by a valid MacsBug symbol . These 
04 3 35 sequences are the only ones which can determine an end of module when 
004336 MacsBug symbols are present. During the check, the instruction and its 

04 3 37 following MacsBug symbol must be fully contained in the bytes starting at 

004338 the specified address parameter, up to, but not including, the byte 

004339 pointed to by the limit parameter. 
004340 

004341 If the end of module is NOT found, then NIL is returned as the 

004342 function ' s result . However, if a end of module is found, the MacsBug 
00434 3 symbol is returned in symbol (if it is not NIL) as a null terminated 
00434 4 Pascal string (with trailing blanks removed) , and the functions returns 

004345 the pointer to the start of the MacsBug symbol (i.e., address+2 for RTS 

004346 or JMP (AO) and address+4 for RTD #n) . This address may then be used as 

004347 in input parameter to showMacsBugSymbol to convert the MacsBug symbol to 

004348 a Disassembler operand string. 
004349 

004350 Also returned in nextModule is where we think the FOLLOWING module 

.004351 begins. In the "old style" cases (see validMacs Bug Symbol ) this will 
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004352 always be 8 or 16 bytes after the Input address . For new style the 

004353 Apple Pascal and C cases this will depend on the symbol length, existence 

004354 ofa pad byte, and size of the constant (literal) area. See 

004355 validMacsBugSymbol for a description of valid MacsBug symbol formats . } 
004356 

004357 FUNCTION showMacsBugSyrabol (symStart, limit : UNIV Ptr; operand: StringPtr; 

004358 VAR bytesUsed: Integer) : StringPtr; C; 

004359 {Format a MacsBug symbol as a operand of a DC.B directive. The first one 

004360 or two bytes of the symbol are generated as S80+'c' if they have there 
0043 61 high high bits set. All other characters are shown as characters in a 
0043 62 string constant. The pad byte, if present, is one is also shown as SOO . 
004363 

0043 64 When called, showMacsBugSymbol assumes that symStart is pointing at a 

04 3 65 valid MacsBug symbol as validated by the validMacsBugSymbol or 

004366 endOfModule routines. As with validMacsBugSymbol, the symbol must be 

0043 67 fully contained in the bytes starting at symStart up to, but not 

004368 including, the byte pointed to by the limit parameter. 
004369 

004370 The string is returned in the ' operand ' parameter as a null terminated 

004371 Pascal string. The function also returns a pointer to this string as its 

004372 return value (NIL is returned only if the byte pointed to by the limit 

004373 parameter is reached prior to processing the entire symbol — which 
00437 4 should not happen if properly validated) . The number of bytes used for 
004375 the symbol is returned in bytesUsed . Due to the way MacsBug symbols are 
00437 6 encoded, bytesUsed may not necessarily be the same as the length of the 
004377 operand string. 

004378 

004379 A valid MacsBug symbol consists of the characters '_', '%', spaces, 

004380 digits, and upper/ lower case letters in a format determined by the first 

004381 two bytes of the symbol as described in the validMacsBugSymbol routine . } 
004382 

004383 {SENDC} { UsingDisAsmLookup ) 
004384 

004385 {SIFC NOT Usinglncludes ) 

004386 END. 

004387 {SENDC} 
004388 

004389 

004390 ### END OF FILE DisAsmLookup . p 

004391 
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004392 
004393 
004394 
004395 
004396 
004397 
004398 
004399 
004400 
004401 
004402 
004403 
004404 
004405 
004406 
004407 
004408 
004409 
004410 
004411 
004412 
004413 
004414 
004415 
004416 
004417 
004418 
004419 
004420 
004421 
004422 
004423 
004424 
004425 
004426 
004427 
004428 
004429 
004430 
004431 
004432 
004433 
004434 
004435 
004436 
004437 
004438 
004439 
004440 
004441 
004442 
004443 
004444 
004445 
004446 
004447 



##################################################################### 
### FILE: Disklnlt.p 
##################################################################### 



Created: Sunday, January 6, 1991 at 10:30 PM 
Disklnit . p 
Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 

{$ENDC} 

{$IFC NOT Usinglncludes} 

UNIT Disklnit; 
INTERFACE 
{$ENDC) 

{$IFC UNDEFINED UsingDisklnit } 
{$SETC UsingDisklnit := 1} 

{$1+) 

{$SETC Disklnitlncludes := Usinglncludes) 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingTypes) 

{$1 $$Shell (PInterfaces) Types. p) 

{$ENDC) 

{$SETC Usinglncludes := Disklnitlncludes) 

TYPE 

HFSDefaults = RECORD 

sigWord: PACKED ARRAY [0..1] OF Byte; 

abSize: LONGINT; 

clpSize: LONGINT; 

nxFreeFN: LONGINT; 

btClpSize: LONGINT; 

rsrvl: INTEGER; 

rsrv2: INTEGER 

rsrv3: INTEGER 

END; 



1985-1989 



signature word) 

allocation block size in bytes) 

clump size in bytes) 

next free file number) 

B-Tree clump size in bytes) 

reserved} 

reserved} 

reserved} 



PROCEDURE DILoad; 

PROCEDURE DIUnload; 

FUNCTION DIBadMount (where: Point ; evtMessage : LONGINT): INTEGER; 

FUNCTION DIFormat (drvNum: INTEGER): OSErr; 

FUNCTION DIVerify (drvNum: INTEGER): OSErr; 

FUNCTION DIZero (drvNum: INTEGER; volName : Str255): OSErr; 
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004448 
004449 
004450 
004451 
004452 
004453 
004454 
004455 
004456 



{$ENDC) 



{ UsingDisklnit } 



{$IFC NOT Uslnglncludes) 

END. 
{$ENDC} 



### END OF FILE Disklnit.p 
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004457 
004458 
004459 
004460 
004461 
004462 
004463 
004464 
004465 
004466 
004467 
004468 
004469 
004470 
004471 
004472 
004473 
004474 
004475 
004476 
004477 
004478 
004479 
004480 
004481 
004482 
004483 
004484 
004485 
004486 
004487 
004488 
004489 
004490 
004491 
004492 
004493 
004494 
004495 
004496 
004497 
004498 
004499 
004500 
004501 
004502 
004503 
004504 
004505 
004506 
004507 
004508 
004509 
004510 
004511 
004512 



##################################################################### 
### FILE: Disks. p 
##################################################################### 



Created: Sunday, January 6, 1991 at 10:30 PM 
Disks . p 
Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 

{$ENDC} 

{$IFC NOT Usinglncludes} 

UNIT Disks; 

INTERFACE 
{$ENDC) 

{$IFC UNDEFINED UsingDisks} 
{$SETC UsingDisks := 1) 

($1+) 

{$SETC Diskslncludes := Usinglncludes} 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingTypes} 

{$1 $$Shell (PInterfaces) Types. p} 

{$ENDC} 

{$IFC UNDEFINED UsingOSUtils } 

{$1 $$ Shell (Plnterfaces)OSUtils.p} 

{$ENDC} 

{$SETC Usinglncludes := Diskslncludes} 



1985-1989 



TYPE 
DriveKind 



(Sony, hard20) ; 



DrvSts = RECORD 

track: INTEGER; 
writeProt: SignedByte; 
disklnPlace: SignedByte; 
installed: SignedByte; 
sides: SignedByte; 
driveQLink: QElemPtr; 
driveQVers: INTEGER; 
dQDrive: INTEGER; 
dQRefNum: INTEGER; 
dQFSID: INTEGER; 
CASE DriveKind OF 
Sony : 

(twoSideFmt : SignedByte; 



{current track} 

{bit 7 ^ 1 if volume is locked} 

{disk in drive} 

{drive installed) 

{-1 for 2-sided, for 1-sided} 

{next queue entry} 

{1 for HD20) 

{drive number} 

{driver reference number} 

{file system ID} 



{after 1st rd/wrt : 0^1 side. 



-1=2 side} 
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004513 
004514 
004515 
004516 
004517 
004518 
004519 
004520 
004521 
004522 
004523 
004524 
004525 
004526 
004527 
004528 
004529 
004530 
004531 
004532 
004533 
004534 
004535 
004536 
004537 
004538 



needsFlush: SignedByte; 
dlskErrs: INTEGER); 
hard20 : 

(driveSize: INTEGER; 
driveSl: INTEGER; 
driveType: INTEGER; 
driveManf: INTEGER; 
driveChar; SignedByte; 
driveMisc: SignedByte); 
END; 



{-1 for MacPlus drive} 
{soft error count} 

{drive block size low word} 

{drive block size high word} 

{1 for HD20} 

{1 for Apple Computer, Inc.} 

{230 {$E6) for HD20} 

{0 -- reserved} 



FUNCTION DiskEject (drvNum: INTEGER): OSErr; 
FUNCTION SetTagBuffer (buf fPtr: Ptr) : OSErr; 
FUNCTION DriveStatus (drvNum: INTEGER;VAR status: DrvSts) : OSErr; 



{$ENDC} 



{ UsingDisks } 



{$IFC NOT Usinglncludes} 
END. 

{$ENDC} 



### END OF FILE Disks. p 
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004539 






004540 


##################################################################### 




004541 


### FILE: Editions. p 




004542 


##################################################################### 




004543 






004544 


{ 




004545 


Created: Tuesday, January 29, 1991 at 6:35 PM 




004546 


Editions .p 




004547 


Pascal Interface to the Macintosh Libraries 




004548 






004549 


Copyright Apple Computer, Inc. 1989-1990 




004550 


All rights reserved 




004551 


) 




004552 






004553 






004554 


{$IFC UNDEFINED Usinglncludes } 




004555 


{$SETC Usinglncludes := 0} 




004556 


{$ENDC} 




004557 






004558 


{$IFC NOT Usinglncludes) 




004559 


UNIT Editions; 




004560 


INTERFACE 




004561 


{$ENDC) 




004562 






004563 


{$IFC UNDEFINED UsingEditions } 




004564 


{$SETC UsingEditions := 1} 




004565 






004566 


{$1+) 




004567 


{$SETC Edltionslncludes := Usinglncludes) 




004568 


{$SETC Usinglncludes := 1} 




004569 


{$IFC UNDEFINED UsingMemory) 




004570 


{ $1 $$ Shell (P Interfaces) Memory .p) 




004571 


{$ENDC) 




004572 


{$IFC UNDEFINED UsingTypes) 




004573 


{$1 $$Shell(PInterfaces)Types.p) 




004574 


{$ENDC) 




004575 


{$IFC UNDEFINED UsingFiles) 




004576 


{$1 $$Shell(PInterfaces)Files.p) 




004577 


{$ENDC) 




004578 


{$IFC UNDEFINED UsingAliases ) 




004579 


{$1 $$ Shell (P Interfaces) Aliases .p} 




004580 


{$ENDC) 




004581 


{$SETC Usinglncludes := Edltionslncludes) 




004582 






004583 


CONST 




004584 






004585 


{ resource types } 




004586 


rSectionlype ^ 'sect'; { ResType of saved SectionRecords ) 




004587 






004588 


{ section types ) 




004589 


stSubscriber = $01; 




004590 


stPublisher = $0A; 




004591 






004592 


sumAutomatic ^0; { subscriber update mode - Automatically } 




004593 


sumManual ^1; { subscriber update mode - Manually ) 




004594 


pumOnSave ^0; { publisher update mode - OnSave } 
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004595 
004596 
004597 
004598 
004599 
004600 
004601 
004602 
004603 
004604 
004605 
004606 
004607 
004608 
004609 
004610 
004611 
004612 
004613 
004614 
004615 
004616 
004617 
004618 
004619 
004620 
004621 
004622 
004623 
004624 
004625 
004626 
004627 
004628 
004629 
004630 
004631 
004632 
004633 
004634 
004635 
004636 
004637 
004638 
004639 
004640 
004641 
004642 
004643 
004644 
004645 
004646 
004647 
004648 
004649 
004650 



puraManual - 1; 

kPartsNotUsed = 0; 

kPartNumberUnknown — -1; 

kPrevlewWldth = 120; 
kPreviewHeight = 120; 

kPublisherDocAliasFormat - 'alls'; 
kPreviewFormat — 'prvw'; 
kFormatListForraat - 'fmts'; 

{ bits for forraatsMask } 
kPICTformatMask = 1; 
kTEXTformatMask = 2; 
ksndFormatMask = 4; 

{ Finder types for edition files } 
kPICTEditionFileType = 'edtp'; 
kTEXTEditionFileType = 'edtt'; 
ksndEditionFileType ^ 'edts'; 
kUnknownEditionFileType ^ ' edtu ' ; 



{ pseudo-item hits for dialogHooks 
the first if for NewPublisher or NewSubscriber Dialogs } 
emHookRedrawPreview — 150; 

{ the following are for SectionOptions Dialog } 
emHookCancelSection — 160; 
emHookGoToPublisher = 161; 
emHookGetEditionNow = 162; 
emHookSendEditionNow ^ 162; 
emHookManualUpdateMode = 163; 
emHookAutoUpdateMode = 164; 

{ the refcon field of the dialog record during a modalfilter 

or dialoghook contains one the following } 
emOptionsDialogRef Con - 'optn'; 
emCancelSectionDialogRef Con — 'end'; 
emGoToPubErrDialogRef Con ^ 'gerr'; 
kFormatLengthUnknown ^ -1; 



{ publisher update mode - Manually } 



{ misc ) 



TYPE 

SectionType = SignedByte; 
TimeStamp = LONGINT; 
FormatType = PACKED ARRAY 
EditionRefNum ^ Handle; 
{ update modes } 
UpdateMode = INTEGER; 



SectionPtr — "^SectionRecord; 
SectionHandle ^ ^SectionPtr; 
SectionRecord = RECORD 

version: SignedByte; 

kind: SectionType; 

mode: UpdateMode; 



[1 . .4] OF CHAR; 



{ one byte, stSubscriber or stPublisher } 
{ seconds since 1904 } 

{ similar to ResType as used by scrap ragr } 
{ used in Edition I/O } 

{ sumAutomatic, pumSuspend, etc } 



always 0x01 in system 7.0 } 
StSubscriber or stPublisher } 
auto or manual } 
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004651 


mdDate : TiraeStamp; 




{ last change in document } 




004652 


sectionID: LONGINT; 




{ app . specific, unique per document } 




004653 


refCon: LONGINT; 




{ application specific } 




004654 


alias; AliasHandle; 




{ handle to Alias Record } 




004655 


subpart: LONGINT; 




{ which part of container file } 




004656 


nextSection: SectionHandle; 




{ for linked list of app ' s Sections } 




004657 


controlBlock : Handle; 




{ used internally } 




004658 


refNum: EditionRefNum; 




{ used internally } 




004659 


END; 








004660 










004661 


EditionContainerSpecPtr ^ ^Edit ionContainerSpec; 




004662 


EditlonContainerSpec = RECORD 








004663 


theFile: FSSpec; 








004664 


theFileScript : ScriptCode; 








004665 


thePart: LONGINT; 








004666 


thePartName: Str31; 








004667 


thePartScript : ScriptCode; 








004668 


END; 








004669 










004670 


EditionlnfoRecord = RECORD 








004671 


crDate : TiraeStamp; 




{ date EditionContainer was created } 




004672 


mdDate: TiraeStamp; 




{ date of last change } 




004673 


fdCreator: OSType; 




{ file creator } 




004674 


f dType : OSType; 




{ file type ) 




004675 


container : EditlonContainerSpec; 




{ the Edition } 




004676 


END; 








004677 










004678 


NewPublisherReply = RECORD 








004679 


canceled: BOOLEAN; 




{ ) 




004680 


replacing : BOOLEAN; 








004681 


usePart: BOOLEAN; 




{ I ) 




004682 


preview: Handle; 




{ I ) 




004683 


previewForraat ; ForraatType; 




{ I ) 




004684 


container : EditlonContainerSpec; 




{ I/O ) 




004685 


END; 








004686 










004687 


NewSubscriberReply = RECORD 








004688 


canceled: BOOLEAN; 




{ ) 




004689 


formatsMask: SignedByte; 








004690 


container : EditlonContainerSpec; 




{I/O) 




004691 


END; 








004692 










004693 


SectionOptionsReply = RECORD 








004694 


canceled: BOOLEAN; 




{ ) 




004695 


changed: BOOLEAN; 




{ ) 




004696 


sectionH: SectionHandle; 




{ I ) 




004697 


action: ResType; 




{ ) 




004698 


END; 








004699 










004700 










004701 


ExpModalFllterProcPtr = ProcPtr; 




{ FUNCTION Filter (theDialog: DialogPtr; VAR theEvent : EventRecord; iteraOffset 


INTEGER; VAR itemHlt : It 


004702 


ExpDlgHookProcPtr = ProcPtr; 




{ FUNCTION Hook (itemOff set, item: INTEGER; theDialog: DialogPtr; yourDataPtr: 


Ptr) : INTEGER; } 


004703 










004704 


FormatlOVerb = (ioHasFormat , ioReadFormat , 1 


oNewFormat, loWriteFormat ) ; 




004705 










004706 
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004707 
004708 
004709 
004710 
004711 
004712 
004713 
004714 
004715 
004716 
004717 
004718 
004719 
004720 
004721 
004722 
004723 
004724 
004725 
004726 
004727 
004728 
004729 
004730 
004731 
004732 
004733 
004734 
004735 
004736 
004737 
004738 
004739 
004740 
004741 
004742 
004743 
004744 
004745 
004746 
004747 
004748 
004749 
004750 
004751 
004752 
004753 
004754 
004755 
004756 
004757 
004758 
004759 
004760 
004761 
004762 



FormatlOParamBlock = RECORD 
ioRefNum: LONGINT; 
format: FormatType; 
formatlndex: LONGINT; 
offset: LONGINT; 
buffPtr: Ptr; 
buffLen: LONGINT; 
END; 

FormatlOProcPtr = ProcPtr; { EUNCTION IO{selector: Format lOVerb; VAR PB: FormatlOParamBlock): OSErr; ) 

EditionOpenerVerb - (eoOpen, eoClose, eoOpenNew, eoCloseNew, eoCanSubscribe) ; 

EditlonOpenerParamBlock = RECORD 
info: Editioninf oRecord; 
sectionH: SectionHandle; 
document : FSSpecPtr; 
fdCreator: OSType; 
ioRefNum: LONGINT; 
ioProc: FormatlOProcPtr; 
success: BOOLEAN; 
formatsMask: SignedByte; 
END; 



EditionOpenerProcPtr ^ ProcPtr; 
CONST 



{ FUNCTION Opener (selector : EditionOpenerVerb; VAR PB: EditlonOpenerParamBlock): OSErr; } 



Section events now arrive in the message buffer using the AppleEvent format. 
The direct object parameter is an aeTemporarylDParamType ('tid ') . The temporary 
id's type is rSectionType ('sect') and the 32-bit value is a SectionHandle. 
The following is a sample buffer 



header 

ma jorVersion 

minorVersion 

endOfMetaData 

directObjKey 

paramType 

paramLength 

tempIDType 

temp ID 



sectionEventMsgClass - ' sect ' 
sectionReadMsgID ^ 'read'; 
sectionWriteMsgID ^ 'writ'; 
sectionScrollMsgID = ' scrl ' ; 
sect ionCancelMsgID — 'end'; 



offset 


contents 





' aevt ' 


4 


0x01 


6 


0x01 


8 


';;;;' 


12 


' ' 


16 


'tid ' 


20 


0x000 


24 


' sect ' 


28 


the S 



the SectionHandle < — this is want you want } 
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004763 


FUNCTION InitEditionPack: OSErr; 




004764 


INLINE $3F3C, $0011, $303C, $0100, $A82D; 




004765 


FUNCTION NewSection (container : EditionContainerSpec; 




004766 


sectionDocument : FSSpecPtr; 




004767 


kind: SectionType; 




004768 


sectionID: LONGINT; 




004769 


initalMode: UpdateMode; 




004770 


VAR sectlonH: SectionHandle) : OSErr; 




004771 


INLINE $303C,$0A02,$A82D; 




004772 


FUNCTION ReglsterSection (sectionDocument : FSSpec; 




004773 


sectionH: SectionHandle; 




004774 


VAR aliasWasUpdated: BOOLEAN) : OSErr; 




004775 


INLINE $3030, $0604, $A82D; 




004776 


FUNCTION UnRegisterSection (sectionH: SectionHandle): OSErr; 




004777 


INLINE $3030, $0206, $A82D; 




004778 


FUNCTION IsRegisteredSection (sectionH: SectionHandle): OSErr; 




004779 


INLINE $3030, $0208, $A82D; 




004780 


FUNCTION AssociateSection (sectionH: SectionHandle; 




004781 


newSectionDocument : FSSpecPtr): OSErr; 




004782 


INLINE $3030, $0400, $A82D; 




004783 


FUNCTION CreateEditionContainerFile (editionFile: FSSpec; 




004784 


fdCreator: OSType; 




004785 


editionFileNameScript : ScriptCode) : OSErr; 




004786 


INLINE $3030, $050E, $A82D; 




004787 


FUNCTION DeleteEditionContainerFile (editionFile: FSSpec): OSErr; 




004788 


INLINE $3030, $0210, $A82D; 




004789 


FUNCTION OpenEdition (subscriberSectionH: SectionHandle; 




004790 


VAR refNum: EditionRef Num) : OSErr; 




004791 


INLINE $3030, $0412, $A82D; 




004792 


FUNCTION OpenNewEdition (publisherSectionH: SectionHandle; 




004793 


fdCreator: OSType; 




004794 


publisherSectionDocument : FSSpecPtr; 




004795 


VAR refNum: EditionRefNum) : OSErr; 




004796 


INLINE $303C,$0814,$A82D; 




004797 


FUNCTION CloseEdition (whichEdition: EditionRefNum; 




004798 


successful: BOOLEAN): OSErr; 




004799 


INLINE $3030, $0316, $A82D; 




004800 


FUNCTION EditionHasFormat (whichEdition: EditionRefNum; 




004801 


whichForraat: ForraatType; 




004802 


VAR formatSize: Size): OSErr; 




004803 


INLINE $3030, $0618, $A82D; 




004804 


FUNCTION ReadEdition (whichEdition: EditionRefNum; 




004805 


whichFormat : FormatType; 




004806 


buffPtr: UNIV Ptr; 




004807 


VAR buffLen: Size) : OSErr; 




004808 


INLINE $303C,$081A, $A82D; 




004809 


FUNCTION WriteEdition (whichEdition: EditionRefNum; 




004810 


whichForraat: ForraatType; 




004811 


buff Ptr: UNIV Ptr; 




004812 


buffLen: Size) : OSErr; 




004813 


INLINE $3030, $081C, $A82D; 




004814 


FUNCTION GetEditionForraatMark (whichEdition: EditionRefNum; 




004815 


whichForraat: ForraatType; 




004816 


VAR currentMark: LONGINT) : OSErr; 




004817 


INLINE $3030, $061E, $A82D; 




004818 


FUNCTION SetEditionForraatMark (whichEdition: EditionRefNum; 


J 
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004819 


whichForraat; ForraatType; 




004820 


setMarkTo: LONGINT) : OSErr; 




004821 


INLINE $303C, $0620, $A82D; 




004822 


FUNCTION GetEditionlnfo (sectionH: SectionHandle; 




004823 


VAR editionlnfo: EditionlnfoRecord) : OSErr; 




004824 


INLINE $3030, $0422, $A82D; 




004825 


FUNOTION GoToPublisherSection (container : EditionContainerSpec) : OSErr; 




004826 


INLINE $3030, $0224, $A82D; 




004827 


FUNOTION GetLastEditionOontainerUsed(VAR container: EditionOontainerSpec) : OSErr; 




004828 


INLINE $3030, $0226, $A82D; 




004829 


FUNOTION GetStandardFormats (container : EditionOontainerSpec; 




004830 


VAR previewForraat ; FormatType; 




004831 


preview: Handle; 




004832 


publisherAlias : Handle; 




004833 


formats: Handle): OSErr; 




004834 


INLINE $303O,$0A28,$A82D; 




004835 


FUNOTION GetEditionOpenerProc (VAR opener: EditionOpenerProcPtr) : OSErr; 




004836 


INLINE $3030, $022A, $A82D; 




004837 


FUNOTION SetEditionOpenerProc (opener : EditionOpenerProcPtr): OSErr; 




004838 


INLINE $3030, $022C, $A82D; 




004839 


FUNOTION CallEditionOpenerProc (selector: EditionOpenerVerb; 




004840 


VAR PB: EdltionOpenerParamBlock; 




004841 


routine: EditionOpenerProcPtr): OSErr; 




004842 


INLINE $3030, $052E, $A82D; 




004843 


FUNOTION CallFormatlOProc (selector: FormatlOVerb; 




004844 


VAR PB: FormatlOParamBlock; 




004845 


routine: FormatlOProcPtr) : OSErr; 




004846 


INLINE $3030, $0530, $A82D; 




004847 


FUNOTION NewSubscriberDialog (VAR reply: NewSubscriberReply) : OSErr; 




004848 


INLINE $3030, $0232, $A82D; 




004849 


FUNOTION NewSubscriberExpDialog (VAR reply: NewSubscriberReply; 




004850 


where: Point; 




004851 


expansionDITLresID: INTEGER; 




004852 


dlgHook: ExpDlgHookProcPtr; 




004853 


f ilterProc: ExpModalFilterProcPtr; 




004854 


yourDataPtr:UNIV Ptr) : OSErr; 




004855 


INLINE $303O,$0B34,$A82D; 




004856 


FUNOTION NewPublisherDialog(VAR reply: NewPublisherReply) : OSErr; 




004857 


INLINE $3030, $0236, $A82D; 




004858 


FUNOTION NewPublisherExpDlalog (VAR reply: NewPublisherReply; 




004859 


where: Point; 




004860 


expansionDITLresID: INTEGER; 




004861 


dlgHook: ExpDlgHookProcPtr; 




004862 


f IlterProc: ExpModalFilterProcPtr; 




004863 


yourDataPtr: UNIV Ptr) : OSErr; 




004864 


INLINE $303O,$0B38,$A82D; 




004865 


FUNOTION SectionOptionsDialog (VAR reply: SectionOptionsReply) : OSErr; 




004866 


INLINE $3030, $023A, $A82D; 




004867 


FUNOTION SectionOptionsExpDialog (VAR reply: SectionOptionsReply; 




004868 


where: Point; 




004869 


expansionDITLresID: INTEGER; 




004870 


dlgHook: ExpDlgHookProcPtr; 




004871 


f ilterProc : ExpModalFilterProcPtr; 




004872 


yourDataPtr: UNIV Ptr) : OSErr; 




004873 


INLINE $3030, $0B3C, $A82D; 




004874 




J 
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004875 
004876 
004877 
004878 
004879 
004880 
004881 
004882 
004883 
004884 



{$ENDC) 



{ UsingEditions ) 



{$IFC NOT Uslnglncludes) 
END. 

{$ENDC} 



### END OF FILE Editions. p 
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004885 






004886 


##################################################################### 




004887 


### FILE: ENET.p 




004888 


##################################################################### 




004889 






004890 






004891 


{ 




004892 


Created: Sunday, September 15, 1991 at 10:23 PM 




004893 


ENET.p 




004894 


Pascal Interface to the Macintosh Libraries 




004895 






004896 


Copyright Apple Computer, Inc. 1990-1991 




004897 


All rights reserved 




004898 


) 




004899 






004900 






004901 


{$IFC UNDEFINED Usinglncludes } 




004902 


{$SETC Usinglncludes := 0} 




004903 


{$ENDC) 




004904 






004905 


{$IFC NOT Usinglncludes) 




004906 


UNIT ENET; 




004907 


INTERFACE 




004908 


{$ENDC} 




004909 






004910 


{$IFC UNDEFINED UsingENET} 




004911 


{$SETC UsingENET := 1} 




004912 






004913 


{$!+) 




004914 


{$SETC ENETIncludes := Usinglncludes) 




004915 


{$SETC Usinglncludes := 1} 




004916 


{$IFC UNDEFINED UsingTypes} 




004917 


{$1 $$Shell (PInterfaces) Types. p) 




004918 


{$ENDC} 




004919 


{$IFC UNDEFINED UsingOSUtils ) 




004920 


{$1 $$ Shell (PInterfaces) OSUtiis .p} 




004921 


{$ENDC) 




004922 


{$SETC Usinglncludes := ENETIncludes) 




004923 






004924 


CONST 




004925 


ENetSetGenerai = 253; {Set "general" mode) 




004926 


ENetGetlnfo = 252; {Get info} 




004927 


ENetRdCancel = 251; {Cancel read) 




004928 


ENetRead = 250; {Read} 




004929 


ENetWrite = 249; {Write} 




004930 


ENetDetachPH = 248 


{Detach protocol handler) 




004931 


ENetAttachPH = 247 


{Attach protocol handier) 




004932 


ENetAddMuiti = 246 


{Add a multicast address) 




004933 


ENetDelMuiti = 245 


{Delete a multicast address) 




004934 






004935 


eLenErr ^ -92; {Length error ddpLenErr) 




004936 


eMultiErr = -91; {Multicast address error ddpSktErr) 




004937 






004938 


EAddrRType = 'eadr'; {Alternate address resource type) 




004939 






004940 


TYPE 
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004941 


EParamBlkPtr = ^EParamBlock; 




004942 


EParamBlock = PACKED RECORD 




004943 


qLink: QElemPtr; {next queue entry} 




004944 


qType: INTEGER; {queue type) 




004945 


ioTrap: INTEGER; {routine trap} 




004946 


ioCmdAddr: Ptr; {routine address} 




004947 


ioCompletion ; ProcPtr; {completion routine} 




004948 


ioResult: OSErr; {result code} 




004949 


ioNamePtr: StringPtr; { ->f ilename } 




004950 


ioVRefNum: INTEGER; {volume reference or drive number} 




004951 


ioRefNum; INTEGER; {driver reference number} 




004952 


csCode: INTEGER; {call command code AUTOMATICALLY set} 




004953 


CASE INTEGER OF 




004954 


ENetWrite, ENetAttachPH, ENetDetachPH, ENetRead, ENetRdCancel, ENetGetInf o, ENetSetGeneral : 




004955 


(eProtlype: INTEGER; {Ethernet protocol type} 




004956 


ePointer: Ptr; 




004957 


eBuffSize: INTEGER; {buffer size} 




004958 


eDataSize: INTEGER); {number of bytes read} 




004959 


ENetAddMulti,ENetDelMulti: 




004960 


(eMultlAddr: ARRAY [0..5] of ctiar) ; {Multicast Address) 




004961 


END; 




004962 






004963 






004964 


FUNCTION EWrite (thePBptr: EParamBlkPtr; async : BOOLEAN): OSErr; 




004965 


FUNCTION EAttachPH(thePBptr: EParamBlkPtr; async : BOOLEAN): OSErr; 




004966 


FUNCTION EDetachPH (thePBptr: EParamBlkPtr; async : BOOLEAN): OSErr; 




004967 


FUNCTION ERead (thePBptr: EParamBlkPtr; async : BOOLEAN): OSErr; 




004968 


FUNCTION ERdCancel (thePBptr: EParamBlkPtr; async : BOOLEAN): OSErr; 




004969 


FUNCTION EGetlnfo (thePBptr: EParamBlkPtr ; async : BOOLEAN): OSErr; 




004970 


FUNCTION ESetGeneraKthePBptr: EParamBlkPtr; async : BOOLEAN): OSErr; 




004971 


FUNCTION EAddMulti (thePBptr: EParamBlkPtr ; async : BOOLEAN): OSErr; 




004972 


FUNCTION EDelMulti (thePBptr: EParamBlkPtr ; async : BOOLEAN): OSErr; 




004973 






004974 






004975 


{$ENDC) { UsingENET } 




004976 






004977 


{$IFC NOT Usinglncludes} 




004978 


END. 




004979 


{$ENDC} 




004980 






004981 






004982 


### END OF FILE ENET.p 




004983 
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004984 






004985 


##################################################################### 




004986 


### FILE: EPPC.p 




004987 


##################################################################### 




004988 






004989 


{ 




004990 


Created: Sunday, January 6, 1991 at 10:32 PM 




004991 


EPPC.p 




004992 


Pascal Interface to the Macintosh Libraries 




004993 






004994 


Copyright Apple Computer, Inc. 1988-1990 




004995 


All rights reserved 




004996 


) 




004997 






004998 






004999 


{$IFC UNDEFINED Usinglncludes } 




005000 


{$SETC Usinglncludes := 0} 




005001 


{$ENDC} 




005002 






005003 


{$IFC NOT Usinglncludes} 




005004 


UNIT EPPC; 




005005 


INTERFACE 




005006 


{$ENDC) 




005007 






005008 


{$IFC UNDEFINED UsingEPPC} 




005009 


{$SETC UsingEPPC := 1} 




005010 






005011 


{$1+) 




005012 


{$SETC EPPCIncludes := Usinglncludes) 




005013 


{$SETC Usinglncludes := 1} 




005014 


{$IFC UNDEFINED UsingPPCToolbox ) 




005015 


{$1 $$ Shell (P Interfaces) PPCToolbox .p) 




005016 


{$ENDC) 




005017 


{$IFC UNDEFINED UsingProcesses ) 




005018 


{$1 $$ Shell (P Interfaces) Processes. p) 




005019 


{$ENDC) 




005020 


{$IFC UNDEFINED UsingEvents) 




005021 


{$1 5$ Shell (P Interfaces) Event s.p) 




005022 


{$ENDC) 




005023 


{$SETC Usinglncludes := EPPCIncludes) 




005024 






005025 


CONST 




005026 


kHighLevelEvent ^ 23; 




005027 






005028 


{ postOptions currently supported } 




005029 


receiverlDMask = $0000F000; 




005030 


receiverlDisPSN = $00008000; 




005031 


receiverlDisSignature = $00007000; 




005032 


receiverlDisSessionID = $00006000; 




005033 


receiverlDisTargetID = $00005000; 




005034 






005035 


systemOptionsMask = $00000F00; 




005036 


nReturnReceipt = $00000200; 




005037 






005038 


priorityMask = $000000FF; 




005039 


nAttnMsg = $00000001; 


J 
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005040 

005041 { error returns from Post and Accept } 

005042 

005043 bufferlsSmall = -607; 

005044 noOutstandingHLE = -608; 

005045 connectionlnvalid = -609; 

005046 noUserlnteractionAllowed - -610; { no user interaction allowed } 
005047 

005048 { constant for return receipts ) 
005049 

005050 HigliLevelEventMsgClass = ' jaym' ; 

005051 rtrnReceiptMsgID = 'rtrn'; 

005052 msgWasPartiallyAccepted = 2; 

005053 msgWasFullyAccepted = 1; 

005054 msgWasNotAccepted = 0; 
005055 

005056 TYPE 

005057 TargetlDPtr = '"TargetlD; 

005058 TargetlDHdl = ^TargetlDPtr; 

005059 TargetID = RECORD 

005060 sesslonID: LONGINT; 

005061 name: PPCPortRec; 

005062 location: Locat lonNameRec; 

005063 recvrName: PPCPortRec; 

005064 END; 
005065 

005066 

005067 SenderlD = TargetID; 

005068 SenderlDPtr = ''SenderlD; 
005069 

005070 HighLevelEventMsgPtr = ^HighLevelEventMsg; 

005071 HighLevelEventMsgHdl = ^HighLevelEventMsgPtr; 

005072 HighLevelEventMsg = RECORD 

005073 HighLevelEventMsgHeaderLength: INTEGER; 

005074 version: INTEGER; 

005075 reservedl: LONGINT; 
00507 6 theMsgEvent: EventRecord; 

005077 userRefcon: LONGINT; 

005078 postingOptions: LONGINT; 

005079 msgLength: LONGINT; 

005080 END; 
005081 

005082 

005083 FUNCTION PostHighLevelEvent (theEvent : EventRecord; 

005084 recelverlD: Ptr; 

005085 msgRefcon: LONGINT; 

005086 msgBuff: Ptr; 

005087 msgLen: LONGINT; 

005088 postingOptions: LONGINT): OSErr; 

005089 INLINE $3F3C, $0034, $A88F; 

005090 FUNCTION AcceptHighLevelEvent (VAR sender: TargetID; 

005091 VAR msgRefcon: LONGINT; 

005092 msgBuff: Ptr; 

005093 VAR msgLen: LONGINT) : OSErr; 

005094 INLINE $3F3C, $0033, $A8 8F; 

.005095 FUNCTION GetProcessSerialNumberFromPortName (portName : PPCPortRec; VAR PSN: ProcessSerlalNumber) : OSErr; 



' N 
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005096 INLINE $3F3C, $0035, $A8 8F; 

005097 FUNCTION GetPortNameFromProcessSerialNumber (VAR portName : PPCPortRec; PSN : ProcessSerlalNumber) : OSErr; 

005098 INLINE $3F3C, $0046, $A88F; 
005099 

005100 TYPE 

005101 GetSpecificFilterProcPtr = ProcPtr; { FUNCTION MyFilter (yourDataPtr : Ptr; } 

005102 { msgBuff: HighLevelEventMsgPtr; ) 

005103 { sender: TargetID) : Boolean; ) 
005104 

005105 FUNCTION GetSpecif icHighLevelEvent (aFilter : GetSpecificFilterProcPtr; yourDataPtr : UNIV Ptr; 

005106 VAR err: OSErr) : BOOLEAN; 

005107 INLINE $3F3C, $0045, $A8 8F; 
005108 

005109 

005110 {$ENDC) { UsingEPPC ) 

005111 

005112 {$IFC NOT Usinglncludes ) 

005113 END. 

005114 {$ENDC} 
005115 

005116 

005117 ### END OF FILE EPPC.p 

005118 
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005119 

005120 ##################################################################### 

005121 ### FILE: ErrMgr.p 

005122 ##################################################################### 
005123 

005124 { 

005125 Created: Tuesday, August 2, 1988 at 12:26 PM 

005126 ErrMgr.p 

005127 Pascal Interface to the Macintosh Libraries 
005128 

005129 

005130 <<< ErrMgr - Error File Manager Routines Interface File >>> 

005131 

005132 

005133 Copyright Apple Computer, Inc. 1987-1988 

005134 All rights reserved 
005135 

005136 This file contains: 
005137 

005138 InitErrMgr (toolname, sysename, Nbrs) - ErrMgr initialization 

005139 CloseErrMgr - Close ErrMgr message files 

005140 GetSysErrText (Nbr, Msg) - Get a system error message for a number 

005141 GetToolErrText {Nbr, Insert, Msg) - Get a tool error message for a number 

005142 AddErrlnsert (insert , msgString) - Add an insert to a message 
005143 

005144 ) 

005145 

005146 

005147 {$IFC UNDEFINED Usinglncludes } 

005148 {$SETC Usinglncludes := 0} 

005149 {$ENDC) 
005150 

005151 {$IFC NOT Usinglncludes) 

005152 UNIT ErrMgr; 

005153 INTERFACE 

005154 {$ENDC} 
005155 

005156 {$IFC UNDEFINED UsingErrMgr) 

005157 {$SETC UsingErrMgr := 1) 
005158 

005159 {$1+) 

005160 {$SETC ErrMgrlncludes := Usinglncludes} 

005161 {$SETC Usinglncludes := 1} 

005162 {$IFC UNDEFINED UsingTypes) 

005163 {$1 $$Shell (PInterfaces) Types. p) 

005164 {$ENDC) 

005165 {$SETC Usinglncludes := ErrMgrlncludes) 
005166 

005167 

005168 PROCEDURE InitErrMgr (toolErrFilename : Str255; sysErrFilename : Str255; showToolErrNbrs : BOOLEAN), 

005169 { ErrMgr initialization . This must be done before using any other ErrMgr 

005170 routine. Set showToolErrNbrs to true if you want all tool messages to contain 

005171 the error number following the message text enclosed in parentheses (e.g., 

005172 "<msg txt> ([OS] Error <n>)"; system error messages always contain the error 

005173 number) . The toolErrFileName parameter is used to specify the name of a 
.005174 tool-specific error file, and should be the NULL or a null string if not used 
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005175 (or if the tool ' s data fork is to be used as the error file, see 

005176 GetToolErrText for futher details). The sysErrFlleName parameter Is used to 

005177 specify the name of a system error file, and should normally be the NULL or a 

005178 null string, which causes the ErrMgr to look In the MPW Shell directory for 

005179 "SysErrs .Err" (see GetSysErrText ) . } 
005180 

005181 PROCEDURE CloseErrMgr; C; 

005182 { Ideally a CloseErrMgr should be done at the end of execution to make sure all 

005183 files opened by the ErrMgr are closed. You can let normal program termination 

005184 do the closing. But if you are a purist. . . 

005185 } 
005186 

005187 PROCEDURE GetSysErrText (msgNbr : INTEGER; errMsg : StringPtr); 

0518 8 ( * Get the error message text corresponding to system error number errNbr from 

005189 the system error message file (whose name was specified in the Inlt ErrMgr 

005190 call). The text of the message is returned in errMsg and the function returns 
05191 a pointer to errMsg . The maximum length of the message is limited to 254 
005192 characters. 

005193 

005194 Note, if a system message filename was not specified to InltErrMgr, then the 

05195 ErrMgr assumes the message file contained in the file "SysErrs. Err". This 

005196 file is first accessed as " { ShellDlrectory} SysErrs . Err" on the assumption that 

005197 SysErrs. Err is kept in the same directory as the MPW Shell. If the file 

005198 cannot be opened, then an open is attempted on "SysErrs. Err" in the System 

005199 Folder. *) 
005200 

005201 PROCEDURE AddErrlnsert (insert : Str255 ; msgString : StringPtr) ; C; 

5202 { Add another insert to an error message string. This call is used when more 

005203 than one Insert is to be added to a message (because it contains more than 

005204 one ' -^ ' character) . 

005205 } 
005206 

005207 PROCEDURE GetToolErrText (msgNbr : INTEGER; errlnsert : Str255; errMsg : StringPtr); 

05208 ( * Get the error message text corresponding to tool error number errNbr from 

005209 the tool error message file (whose name was specified in the InltErrMgr 

005210 call). The text of the message is returned in errMsg and the function returns 
05211 a pointer to errMsg . The maximum length of the message is limited to 254 
005212 characters. If the message is to have an insert , then Errlnsert should be a 

05213 pointer to it . Otherwise it should be either be a null string or a NULL 

005214 pointer. 

005215 

005216 Inserts are indicated in error messages by specifying a ' '' ' to indicate where 

005217 the insert is to be placed. 
005218 

005219 Note, if a tool message filename was not specified to InltErrMgr, then the 

05220 ErrMgr assumes the message file contained in the data fork of the tool calling 

005221 the ErrMgr . This name is contained in the Shell variable { Command} and the 

05222 value of that variable is used to open the error message f lie . * ) 

005223 

005224 

005225 

005226 {SENDC} { UsingErrMgr } 

005227 

005228 {SIFC NOT Usinglncludes ) 

005229 END. 
.005230 (SENDC) 
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005231 

005232 

005233 ### END OF FILE ErrMgr.p 

005234 
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005235 










005236 


##################################################################### 




005237 


### FILE: Errors. p 








005238 


##################################################################### 




005239 










005240 


{ 








005241 


Created: Thursday, March 14, 1991 


at 4:02 


PM 




005242 


Errors .p 








005243 


Pascal Interface to the Macin 


zosh Libraries 




005244 










005245 


Copyright Apple Computer, 


Inc. 


1985-1990 




005246 


All rights reserved 








005247 


) 








005248 










005249 










005250 


{$IFC UNDEFINED Usinglncludes } 








005251 


{$SETC Usinglncludes := 0} 








005252 


{$ENDC} 








005253 










005254 


{$IFC NOT Usinglncludes) 








005255 


UNIT Errors; 








005256 


INTERFACE 








005257 


{$ENDC) 








005258 










005259 


{$IFC UNDEFINED UsingErrors) 








005260 


{$SETC UsingErrors := 1) 








005261 










005262 










005263 


CONST 








005264 


paramErr ^ -50; 




{error in user parameter list) 




005265 


noHardwareErr = -200; 




{Sound Manager Error Returns) 




005266 


notEnoughHardwareErr ^ -2 01; 




{Sound Manager Error Returns) 




005267 


userCanceledErr = -128; 








005268 


qErr = -1; 




{queue element not found during deletion) 




005269 


vTypErr = -2; 




{invalid queue element) 




005270 


corErr = -3; 




{core routine number out of range) 




005271 


unimpErr = -4; 




{unimplemented core routine) 




005272 


SlpTypeErr = -5; 




{invalid queue element) 




005273 


seNoDB = -8; 




{no debugger installed to handle debugger 




005274 


command) 








005275 


controlErr = -17; 




{I/O System Errors) 




005276 


statusErr = -18; 




{I/O System Errors) 




005277 


readErr = -19; 




{I/O System Errors) 




005278 


writErr = -20; 




{I/O System Errors) 




005279 


badUnitErr = -21; 




{I/O System Errors) 




005280 


unitEmptyErr = -22; 




{I/O System Errors) 




005281 


openErr ^ -23; 




{I/O System Errors) 




005282 


closErr = -24; 




{I/O System Errors) 




005283 


dRemovErr = -2 5; 




{tried to remove an open driver) 




005284 


dInstErr = -26; 




{Drvrlnstall couldn't find driver in 




005285 


resources } 








005286 


abortErr = -27; 




{10 call aborted by KilllO) 




005287 


ilOAbortErr = -27; 




{10 abort error (Printing Manager)) 




005288 


notOpenErr = -28; 




{Couldn't rd/wr/ctl/sts cause driver not 




005289 


opened) 








005290 


unitTblFullErr = -29; 




{unit table has no more entries) 
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005291 


dceExtErr = -30; 




{dee extension error) 




005292 


slotNumErr = -360; 




{invalid slot # error} 




005293 


gcrOnMFMErr = -400; 




{gcr format on high density media error) 




005294 


dirFulErr = -33; 




{Directory full) 




005295 


dskFulErr = -34; 




{disk full} 




005296 


nsvErr = -35; 




{no such volume) 




005297 


ioErr = -36; 




{I/O error (bummers)) 




005298 


bdNamErr = -37; 




{there may be no bad names in the final 




005299 


system! } 








005300 


fnOpnErr = -38; 




{File not open} 




005301 


eofErr = -39; 




{End of file) 




005302 


posErr = -40; 




{tried to position to before start of file 




005303 


(r/w) } 








005304 


mFulErr = -41; 




{memory full (open) or file won't fit 




005305 


(load) ) 








005306 


tmfoErr = -42; 




{too many files open) 




005307 


fnfErr = -43; 




{File not found) 




005308 


wPrErr = -44; 




{diskette is write protected.} 




005309 


fLckdErr = -45; 




{file is locked) 




005310 


vLckdErr = -46; 




{volume is locked} 




005311 


fBsyErr = -47; 




{File is busy (delete) } 




005312 


dupFNErr = -4 8; 




{duplicate filename (rename)) 




005313 


opWrErr = -4 9; 




{file already open with with write 




005314 


permission} 








005315 


rfNumErr = -51; 




{refnura error} 




005316 


gfpErr = -52; 




{get file position error) 




005317 


volOffLinErr = -53; 




{volume not on line error (was Ejected) ) 




005318 


permErr ^ -54; 




{permissions error (on file open) } 




005319 


volOnLinErr ^ -55; 




{drive volume already on-line at MountVol } 




005320 


nsDrvErr = -56; 




{no such drive (tried to mount a bad drive 




005321 


nura) ) 








005322 


noMacDskErr = -57; 




{not a mac diskette (sig bytes are wrong) } 




005323 


extFSErr = -58; 




{volume in question belongs to an external 




005324 


fs) 








005325 


fsRnErr = -59; 




{file system internal error: during rename 




005326 


the old entry was deleted but could not be 


restored. ) 




005327 


badMDBErr = -60 






{bad master directory block) 




005328 


wrPermErr = -61 






{write permissions error) 




005329 


dlrNFErr = -120 






{Directory not found) 




005330 


tmwdoErr = -121 






{No free WDCB available) 




005331 


badMovErr = -122; 




{Move into offspring error} 




005332 


wrgVolTypErr = -123; 




{Wrong volume type error [operation not 




005333 


supported for MFS] ) 








005334 


volGoneErr = -124; 




{Server volume has been disconnected.} 




005335 


fldNotFound = -1300; 




{no file thread exists.) 




005336 


fidExlsts = -1301; 




{file id already exists) 




005337 


notAFileErr = -1302; 




{directory specified) 




005338 


diffVolErr = -1303; 




{files on different volumes) 




005339 


catChangedErr = -1304; 




{the catalog has been modified} 




005340 


desktopDamagedErr = -1305; 




{desktop database files are corrupted} 




005341 


sameFileErr = -1306; 




{can't exchange a file with itself} 




005342 


badFidErr = -1307; 




{file id is dangling or doesn't match with 




005343 


the file number} 








005344 


envNotPresent = -5500; 




{returned by glue.} 




005345 


envBadVers = -5501; 




{Version non-positive} 




005346 


envVersTooBig ^ 


-5502; 




{Version bigger than call can handle) 
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005347 


fontDecError = -64; 


error during font declaration} 




005348 


fontNotDeclared = -65; 


font not declared} 




005349 


fontSubErr = -66; 


font substitution occured} 




005350 


fontNotOutlineErr = -32615; 


bitmap font passed to routine that does 




005351 


outlines only} 






005352 


flrstDskErr = -84; 


I/O System Errors} 




005353 


lastDskErr = -64; 


I/O System Errors} 




005354 


noDriveErr = -64; 


drive not installed} 




005355 


offLlnErr = -65; 


r/w requested for an off-line drive} 




005356 


noNybErr ^ -66; 


couldn't find 5 nybbles in 200 tries} 




005357 


noAdrMkErr = -67; 


couldn't find valid addr mark} 




005358 


dataVerErr = -68; 


read verify compare failed} 




005359 


badCksmErr = -69; 


addr mark checksum didn't check} 




005360 


badBtSlpErr = -70; 


bad addr mark bit slip nibbles} 




005361 


noDtaMkErr = -71; 


couldn't find a data mark header} 




005362 


badDCksum = -7 2; 


bad data mark checksum} 




005363 


badDBtSlp = -73; 


bad data mark bit slip nibbles} 




005364 


wrUnderrun = -74; 


write underrun occurred) 




005365 


cantStepErr = -75; 


step handshake failed} 




005366 


tkOBadErr = -76; 


track detect doesn't change} 




005367 


initlWMErr = -77; 


unable to initialize IWM} 




005368 


twoSideErr = -78; 


tried to read 2nd side on a 1-sided 




005369 


drive } 






005370 


spdAdjErr = -7 9; 


unable to correctly adjust disk speed} 




005371 


seekErr = -80; 


track number wrong on address mark} 




005372 


sectNFErr = -81; 


sector number never found on a track} 




005373 


fmtlErr = -82; 


can't find sector after track format} 




005374 


fmt2Err = -83; 


can't get enough sync} 




005375 


verErr = -84; 


track failed to verify} 




005376 


clkRdErr = -85; 


unable to read same clock value twice} 




005377 


cikWrErr = -86; 


time written did not verify} 




005378 


prWrErr = -87; 


parameter ram written didn't read-verify} 




005379 


prInitErr = -88; 


InitUtil found the parameter ram 




005380 


uninitialized} 






005381 


rcvrErr = -89; 


sec receiver error (framing; parity; OR)} 




005382 


breakRecd = -90; 


Break received (SCO) } 




005383 








005384 


{Power Manager Errors} 






005385 


pmBusyErr = -13000; 


Power Mgr never ready to start handshake} 




005386 


pmReplyTOErr = -13001; 


Timed out waiting for reply) 




005387 


pmSendStartErr = -13002; 


during send, pmgr did not start hs ) 




005388 


pmSendEndErr = -13003; 


during send, pmgr did not finish hs ) 




005389 


pmRecvStartErr = -13004; 


during receive, pmgr did not start hs } 




005390 


pmRecvEndErr = -13005; 


during receive, pmgr did not finish hs 




005391 


configured for this connection} 






005392 








005393 


{Scrap Manager errors} 






005394 


noScrapErr = -100; 


No scrap exists error} 




005395 


noTypeErr = -102; 


No object of that type in scrap) 




005396 


memROZWarn = -99; 


soft error in ROZ } 




005397 


memROZError = -99; 


hard error in ROZ} 




005398 


memROZErr = -99; 


hard error in ROZ} 




005399 


memFullErr = -108; 


Not enough room in heap zone} 




005400 


nilHandleErr = -109; 


Master Pointer was NIL in HandleZone or 




005401 


other } 






005402 


memWZErr = -111; 


WhichZone failed {applied to free block) } 





9/2/99 10:00 AM 



David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces:Mac Interfaces PASCAL 



Page 110 



005403 memPurErr = -112; 

005404 block} 

005405 memAdrErr = -110; 

005406 memAZErr = -113; 

005407 memPCErr = -114; 

005408 memBCErr = -115; 

005409 memSCErr = -116; 

005410 memLockedErr = -117; 

005411 resNotFound = -192; 

005412 resFNotFound = -193 

005413 addResFailed = -194 

005414 addRefFailed = -195 

005415 rmvResFailed = -196 

005416 rmvRefFailed = -197 

005417 resAttrErr = -198; 

005418 mapReadErr = -199; 

005419 CantDecompress = -186; 

005420 decompress a compressed resource} 

005421 badExtResource = -185; 

005422 evtNotEnb = 1; 

005423 noMemForPictPlaybackErr = -145; 

005424 rgnTooBigError = -147; 

005425 pixMapTooDeepErr = -148; 

005426 nsStackErr = -149; 

005427 cMatchErr = -150; 

005428 cTempMemErr = -151; 

005429 structures) 

005430 cNoMemErr = -152; 

005431 cRangeErr = -153; 

005432 cProtectErr = -154; 

005433 cDevErr = -155; 

005434 cResErr = -156; 

005435 rgnTooBigErr = -500; 

005436 updPlxMemErr = -125; 

005437 pictlnfoVersionErr = -11000; 

005438 } 

005439 pictlnfoIDErr = -11001; 

005440 PictlnfoID is wrong } 

005441 plctlnfoVerbErr = -11002; 

005442 cantLoadPickMethodErr = -11003; 

005443 colorsRequestedErr = -11004; 

005444 illegal } 

005445 pictureDataErr = -11005; 
005446 

005447 {Sound Manager errors} 

005448 noHardware = noHardwareErr; 

005449 notEnoughHardware ^ notEnoughHardwareErr; 

005450 queueFull = -203; 

005451 resProblem = -204; 

005452 badChannel = -205; 

005453 badFormat = -206; 

005454 notEnoughBuf ferSpace = -207; 

005455 badFileFormat = -208; 

005456 format, corrupt } 

005457 channelBusy = -209; 

005458 already } 



{trying to purge a locked or non-purgeable 

{address was odd; or out of range} 

{Address in zone check failed} 

{Pointer Check failed} 

{Block Check failed} 

{Size Check failed} 

{trying to move a locked block (MoveHHi) } 

{Resource not found} 

{Resource file not found} 

{AddResource failed) 

{ AddRef erence failed) 

{RmveResource failed) 

{RmveReference failed) 

{attribute inconsistent with operation) 

{map inconsistent with operation) 

{resource bent ("the bends") - can't 

{extended resource has a bad format.) 
{event not enabled at PostEvent) 



Color2Index failed to find an index) 
failed to allocate memory for temporary 

failed to allocate memory for structure) 
range error on colorTable request) 
colorTable entry protection violation) 
invalid type of graphics device) 
invalid resolution for MakelTable) 

insufficient memory to update a pixmap) 
wrong version of the Pictlnfo structure 

the internal consistancy check for the 

the passed verb was invalid ) 

unable to load the custom pick proc ) 

the number of colors requested was 

the picture data was invalid ) 



*** obsolete spelling) 
*** obsolete spelling) 
Sound Manager Error Returns ) 
Sound Manager Error Returns ) 
Sound Manager Error Returns ) 
Sound Manager Error Returns ) 
could not allocate enough memory ) 
was not type AIFF or was of bad 

{ the Channel is being used for a PFI 
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005459 buffersTooSmall = -210; 

005460 channelNotBusy = -211; 

005461 noMoreRealTime = -212; 

005462 another task } 

005463 slNoSoundlnHardware = -220; 

005464 siBadSoundlnDevice = -221; 

005465 SoundlnGetlndexedDevlce) 

005466 siNoBufferSpecifled = -222; 

005467 buffer passed} 

005468 silnvalidCompression - -223; 

005469 siHardDriveTooSlow = -224; 

005470 silnvalidSampleRate = -225; 

005471 silnvalidSampleSize = -226; 

005472 slDeviceBusyErr = -227; 

005473 slBadDeviceName = -228; 

005474 slBadRefNum = -229; 

005475 slInputDeviceErr = -230; 

005476 slUnknownlnfoType = -231; 

005477 driver) ) 

005478 siUnknownQuality = -232; 

005479 driver) ) 
005480 

005481 {Notification Manager errors} 

005482 nmTypErr = -299; 

005483 silnitSDTblErr = 1; 

005484 initialized.} 

005485 silnitVBLQsErr = 2; 

005486 initialized. } 

005487 silnitSPTblErr = 3; 

005488 initialized. } 

005489 sdmJTInitErr = 10; 

005490 sdmlnitErr = 11; 

005491 sdmSRTInitErr = 12; 

005492 initialized.} 

005493 sdmPRAMInitErr = 13; 

005494 sdmPrilnitErr = 14; 

005495 smSDMInitErr = -290; 

005496 smSRTInitErr = -291; 

005497 initialized. } 

005498 smPRAMInitErr = -292; 

005499 initialized.} 

005500 smPrilnitErr = -293; 

005501 smEmptySlot = -300; 

005502 smCRCFail = -301; 

005503 smFormatErr = -302; 

005504 smRevisionErr = -303; 

005505 smNoDir = -304; 

005506 smDisabledSlot = -305; 

005507 smLWTstBad) } 

005508 smNosInfoArray = -306; 

005509 smResrvErr = -307; 

005510 0.} 

005511 smUnExBusErr = -308; 

005512 smBLFieldBad = -309; 

005513 smFHBlockRdErr = -310; 

005514 smFHBlkDispErr = -311; 



{ can not operate in the memory allowed } 

{ not enough CPU cycles left to add 

{no Sound Input hardware} 
{invalid index passed to 

{returned by synchronous SPBRecord if nil 

{invalid compression type} 

{hard drive too slow to record to disk} 

{invalid sample rate} 

{invalid sample size} 

{input device already in use} 

{input device could not be opened} 

{invalid input device reference number} 

{input device hardware failure} 

{invalid info type selector (returned by 

{invalid quality selector {returned by 



{wrong queue type} 

{slot int dispatch table could not be 

{VBLqueues for all slots could not be 

{slot priority table could not be 

{ SDM Jump Table could not be initialized.} 
{SDM could not be initialized.} 
{Slot Resource Table could not be 

{Slot PRAM could not be initialized.} 
{Cards could not be initialized.} 
{Error; SDM could not be initialized.} 
{Error; Slot Resource Table could not be 

{Error; Slot Resource Table could not be 

{Error; Cards could not be initialized.} 

{No card in slot} 

{ CRC check failed for declaration data} 

{FHeader Format is not Apple's} 

{Wrong revison level} 

{Directory offset is Nil } 

{This slot is disabled (-305 use to be 

{No sInfoArray. Memory Mgr error.} 
{Fatal reserved error. Resreved field <> 

{Unexpected BusError} 

{ByteLanes field was bad.} 

{Error occured during _sGetFHeader . } 

{Error occured during _sDisposePtr 
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005515 
005516 
005517 
005518 
005519 
005520 
005521 
005522 
005523 
005524 
005525 
005526 
005527 
005528 
005529 
005530 
005531 
005532 
005533 
005534 
005535 
005536 
005537 
005538 
005539 
005540 
005541 
005542 
005543 
005544 
005545 
005546 
005547 
005548 
005549 
005550 
005551 
005552 
005553 
005554 
005555 
005556 
005557 
005558 
005559 
005560 
005561 
005562 
005563 
005564 
005565 
005566 
005567 
005568 
005569 
005570 



(Dispose of FHeader block) . } 

smDisposePErr ^ -312; 

smNoBoardSRsrc = -313; 

smGetPRErr = -314; 

SIMStatus) . ) 

smNoBoardId ^ -315; 

smInitStatVErr = -316; 

primary or secondary init . } 

smInitTblVErr = -317; 

initialize the Slot Resource Table.) 

smNoJmpTbl = -318; 

smBadBoardId = -319; 

record. } 

smBusErrTO = -320; 



{_DisposePointer error} 

{No Board sResource . ) 

{Error occured during _sGetPRAJylRec (See 

{No Board Id. } 

{The InitStatusV field was negative after 

{An error occured while trying to 

{ SDM jump table could not be created. } 
{Boardid was wrong; re-init the PRAM 

{BusError time out.} 



{ The following errors are for primary or secondary init code. The errors are logged 

in the 

vendor status field of the sinfo record. Normally the vendor error is not Apple's 

concern, 

but a special error is needed to patch secondary inits.} 



svTempDisable 
init . } 

svDisabled — -3 
temp disables.} 
smBadRefId = -3 
smBadsList — -3 
not followed. } 
smReservedErr ^ 
smCodeRevErr ^ 
smCPUErr = -334 
smsPointerNil ^ 
error occurs; 
smNilsBlockErr 
to use a nil s 
smSlotOOBErr = 
smSelOOBErr = - 
smNewPErr ^ -33 
smBlkMoveErr ^ 
smCkStatusErr ^ 
smGetDrvrNamErr 
smDisDrvrNamErr 
smNoMoresRsrcs ^ 
smsGetDrvrErr ^ 
smBadsPtrErr ^ 
smByteLanesErr 
smOffsetErr ^ 
smNoGoodOpens = 
smSRTOvrFlErr = 
smRecNotFnd 
editionMgrlnitE 
badSectionErr ^ 
notRegisteredSe 
badEditionFileE 
badSubPartErr 



-32768; 

2 6 4 0; 

30; 
31; 

-332; 
-333; 



-335; 
heck sInfo 
= -336; 
lock) } 
-337; 
338; 
9; 
-340; 

-341; 

= -342; 

= -343; 
-344; 

-345; 
-346; 
= -347; 
34 8; 

-349; 

-350; 
351; 
rr = -450; 

-451; 
ctionErr = -452; 
rr = -453; 
454; 



{Temporarily disable card but run primary 

{Reserve range -32640 to -32768 for Apple 

{Reference Id not found in List} 

{Bad sList: Idl < Id2 < Id3 ...format is 

{Reserved field not zero) 
{Code revision is wrong) 
{Code revision is wrong) 

{LPointer is nil From sOffsetData. If this 
rec for more information.) 

{Nil sBlock error (Dont allocate and try 



{Slot out of bounds error} 

{Selector out of bounds error} 

{_NewPtr error} 

{_BlockMove error} 

{Status of slot = fail.) 

{Error occured during _sGetDrvrName . } 

{Error occured during _sDisDrvrName . } 

{No more sResources) 

{Error occurred during _sGetDriver . } 

{Bad pointer was passed to sCalcsPointer } 

{NumByteLanes was determined to be zero.) 

{Offset was too big (temporary error) 

{No opens were successfull in the loop.) 

{SRT over flow. } 

{Record not found in the SRT.} 

{edition manager not inited by this app} 

{not a valid SectionRecord} 

{not a registered SectionRecord) 

{edition file is corrupt) 

{can not use sub parts in this release} 
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005571 


multiplePublisherWrn = -460; 


A Publisher is already registered for 




005572 


that container} 






005573 


containerNotFoundWrn ^ -461; 


could not find editionContainer at this 




005574 


time } 






005575 


containerAlreadyOpenWrn ^ -4 62; 


container already opened by this section} 




005576 


notThePublisherWrn = -463; 


not the first registered publisher for 




005577 


that container} 






005578 


teScrapSizeErr = -501; 


scrap item too big for text edit record) 




005579 


hwParamErr = -502; 


bad selector for _HWPriv} 




005580 








005581 


{ Process Manager errors } 






005582 


procNotFound = -600; 


no eligible process with specified 




005583 


descriptor } 






005584 


memFragErr = -601; 


not enough room to launch app w/special 




005585 


requirements } 






005586 


appModeErr = -602; 


memory mode is 32-bit, but app not 32- 




005587 


bit clean } 






005588 


protocolErr ^ -603; 


app made module calls in improper order 




005589 


} 






005590 


hardwareConf igErr ^ -604; 


hardware configuration not correct for 




005591 


call } 






005592 


appMemFullErr = -605; 


application SIZE not big enough for 




005593 


launch } 






005594 


appIsDaemon ^ -606; 


app is BG-only, and launch flags 




005595 


disallow this } 






005596 








005597 


{MemoryDispatch errors} 






005598 


notEnoughMemoryErr = -620; 


insufficient physical memory} 




005599 


notHeldErr = -621; 


specified range of memory is not held} 




005600 


cannotMakeContiguousErr ^ -622; 


cannot make specified range contiguous) 




005601 


notLockedErr = -623; 


specified range of memory is not locked) 




005602 


interruptsMaskedErr ^ -624; 


don't call with interrupts masked} 




005603 


cannotDef erErr = -625; 


unable to defer additional functions} 




005604 


ddpSktErr = -91; 


error in soket number} 




005605 


ddpLenErr = -92; 


data length too big) 




005606 


noBridgeErr ^ -93; 


no network bridge for non-local send} 




005607 


lapProtErr = -94; 


error in attaching/detaching protocol} 




005608 


excessCollsns = -95; 


excessive collisions on write} 




005609 


portlnUse = -97; 


driver Open error code (port is in use) ) 




005610 


portNotCf = -98; 


driver Open error code (parameter RAM not 




005611 


configured for this connection) } 






005612 


nbpBuffOvr = -1024; 


Buffer overflow in LookupName} 




005613 


nbpNoConfirm ^ -1025; 






005614 


nbpConfDiff = -1026; 


Name confirmed at different socket) 




005615 


nbpDuplicate = -1027; 


Duplicate name exists already} 




005616 


nbpNotFound = -1028; 


Name not found on remove } 




005617 


nbpNISErr = -1029; 


Error trying to open the NIS} 




005618 


aspBadVersNum ^ -1066; 


Server cannot support this ASP version) 




005619 


aspBufTooSmali = -1067; 


Buffer too small} 




005620 


aspNoMoreSess = -1068; 


No more sessions on server) 




005621 


aspNoServers ^ -1069; 


No servers at that address) 




005622 


aspParamErr ^ -1070; 


Parameter error) 




005623 


aspServerBusy = -1071; 


Server cannot open another session) 




005624 


aspSessClosed = -1072; 


Session closed) 




005625 


aspSizeErr = -1073; 


Command block too big} 




005626 


aspTooMany = -1074; 


Too many clients (server error)) 
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005627 aspNoAck = -1075; 

005628 reqFalled = -1096; 

005629 tooManyReqs = -1097; 

005630 tooManySkts = -1098; 

005631 badATPSkt = -1099; 

005632 badBuffNum = -1100; 

005633 noRelErr = -1101; 

005634 cbNotFound = -1102 

005635 noSendResp = -1103 

005636 noDataArea = -1104 

005637 reqAborted = -1105 

005638 buf2SmallErr = -3101 

005639 noMPPErr = -3102; 

005640 ckSumErr = -3103; 

005641 extractErr = -3104; 

005642 readQErr = -3105; 

005643 atpLenErr = -3106 

005644 atpBadRsp = -3107 

005645 recNotFnd = -3108 

005646 sktClosedErr = -3109 

005647 afpAccessDenied ^ -5 

005648 afpAuthContinue = -5 

005649 afpBadUAM = -5002; 

005650 afpBadVersNum = -500 

005651 afpBitmapErr = -5004 

005652 afpCantMove = -5005; 

005653 afpDenyConflict = -5 

005654 afpDirNotEmpty = -50 

005655 afpDlskFull = -5008 

005656 afpEofError = -5009 

005657 afpFlleBusy = -5010 

005658 afpFlatVol = -5011; 

005659 afpItemNotFound = -5 

005660 afpLockErr = -5013; 

005661 afpMlscErr = -5014; 

005662 afpNoMoreLocks = -50 

005663 afpNoServer = -5016; 

005664 afpObjectExists = -5 

005665 afpObjectNotFound = 

005666 afpParmErr = -5019; 

005667 afpRangeNotLocked = 

005668 afpRangeOverlap ^ -5 

005669 afpSessClosed = -502 

005670 afpUserNotAuth = -50 

005671 afpCallNotSupported 

005672 afpObjectTypeErr = - 

005673 afpTooManyFilesOpen 

005674 afpServerGoingDown = 

005675 afpCantRename = -502 

005676 afpDirNotFound = -50 

005677 afpIconTypeError = - 

005678 afpVolLocked = -5031 

005679 afpObjectLocked = -5 

005680 afpContainsSharedErr 

005681 contains a shared fo 

005682 afpIDNotFound = -503 



{No ack on attention request {server err) } 



000; 
001; 



006; 
07; 



012; 



017; 
-5018; 

-5020; 
021; 
2; 
2 3; 
= -50 
5025; 
= -50 
-502 
8; 
2 9; 
5030; 

032; 

= -5 
Ider 
4; 



24; 

26; 
7; 



033; 



{Volume is Read-Only} 
{Object is M/R/D/W inhibited) 
{$FFFFEC57 the folder being shared 

{$FFFFEC56} 



9/2/99 10:00 AM 



David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL 



Page 115 



005683 
005684 
005685 
005686 
005687 
005688 
005689 
005690 
005691 
005692 
005693 
005694 
005695 
005696 
005697 
005698 
005699 
005700 
005701 
005702 
005703 
005704 
005705 
005706 
005707 
005708 
005709 
005710 
005711 
005712 
005713 
005714 
005715 
005716 
005717 
005718 
005719 
005720 
005721 
005722 
005723 
005724 
005725 
005726 
005727 
005728 
005729 
005730 
005731 
005732 
005733 
005734 
005735 
005736 
005737 
005738 



afpIDExists = -5035; 
afpDiffVolErr = -5036; 
afpCatalogChanged ^ -5037; 
afpSameObjectErr = -5038; 
afpBadlDErr = -5039; 
afpPwdSameErr = -5040; 



{$FFFFEC55) 
{$FFFFEC54) 
{$FFFFEC53) 
{$FFFFEC52) 
{$FFFFEC51) 
{$FFFFEC50 someone tried to change their 



password to the same password on a mantadory password change } 

afpPwdTooShortErr = -5041; {$FFFFEC4F the password being set is too 

short; there is a minimum length that must be met or exceeded } 

afpPwdExpiredErr = -5042; {$FFFFEC4E the password being used is too 

old: this requires the user to change the password before log-in can continue } 

afpInsideSharedErr = -5043; {$FFFFEC4D the folder being shared is 

inside a shared folder OR the folder contains a shared folder and is being moved into 

a shared folder OR the folder contains a shared folder and is being moved into the 

descendent of a shared folder. } 

afpInsideTrashErr = -5044; {$FFFFEC4C the folder being shared is 

inside the trash folder OR the shared folder is being moved into the trash folder OR 

the folder is being moved to the trash and it contains a shared folder } 



{PPC errors) 

notlnitErr = -900; 

nameTypeErr = -902; 

locationKindSelector in locationName } 

noPortErr = -903; 

noGlobalsErr = -904; 

localOnlyErr = -905; 

destPortErr = -906; 

sessTableErr = -907; 

noSessionErr ^ -908; 

badReqErr = -909; 

operation } 

portNameExistsErr ^ -910; 

app) } 

noUserNameErr ^ -911; 



userRe jectErr 



-912; 



noMachineNameErr ^ -913; 
Network Setup Control Panel } 
noToolboxNameErr = -914; 
likely ) 

noResponseErr - -915; 
portClosedErr = -916; 
sessClosedErr - -917; 
badPortNameErr = -919; 
noDefaultUserErr = -922; 
Network Setup Control Pannel } 
notLoggedlnErr — -923; 
exist } 

noUserRefErr = -924; 
networkErr — -925; 
too likely } 
noInformErr — -926; 
not have inform pending } 
authFailErr = -927; 
destination } 



PPCToolBox not initialized } 
Invalid or inappropriate 

Unable to open port or bad portRefNum } 
The system is hosed, better re-boot } 
Network activity is currently disabled } 
Port does not exist at destination } 
Out of session tables, try again later } 
Invalid session reference number } 
bad parameter or invalid state for 

port is already open (perhaps in another 

user name unknown on destination machine 

Destination rejected the session request 

user hasn't named his Macintosh in the 

A system resource is missing, not too 

unable to contact destination } 

port was closed } 

session was closed } 

PPCPortRec malformed ) 

user hasn't typed in owners name in 

The default userRefNum does not yet 

unable to create a new userRefNum ) 

An error has occured in the network, not 

PPCStart failed because destination did 

unable to authenticate user at 
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005739 


noUserRecErr = -928 


{ Invalid user reference number } 




005740 


badServiceMethodErr 


= -930; { illegal service type, or not supported } 




005741 


badLocNameErr ^ -93 


.; { location name malformed } 




005742 


guestNotAllowedErr - 


^ -932; { destination port requires authentication 




005743 


) 






005744 


swOverrunErr ^ 1; 


{serial driver error masks} 




005745 


parityErr ^ 16; 


{serial driver error masks} 




005746 


hwOverrunErr ^ 32; 


{serial driver error masks} 




005747 


framingErr = 64; 


{serial driver error masks} 




005748 


dsBusError = 1; 


{bus error } 




005749 


dsAddressErr ^ 2; 


{address error} 




005750 


dsIllInstErr = 3; 


{illegal instruction error} 




005751 


dsZeroDivErr = 4; 


{zero divide error} 




005752 


dsChkErr = 5; 


{check trap error} 




005753 


dsOvflowErr = 6; 


{overflow trap error) 




005754 


dsPrivErr = 7; 


{privilege violation error} 




005755 


dsTraceErr = 8; 


{trace mode error} 




005756 


dsLineAErr = 9; 


{line 1010 trap error} 




005757 


dsLineFErr = 10; 


{line 1111 trap error} 




005758 


dsMiscErr = 11; 


{miscellaneous hardware exception error} 




005759 


dsCoreErr = 12; 


{unimplemented core routine error} 




005760 


dsIrqErr = 13; 


{uninstalled interrupt error) 




005761 


dsIOCoreErr = 14; 


{10 Core Error} 




005762 


dsLoadErr = 15; 


{Segment Loader Error} 




005763 


dsFPErr = 16; 


{Floating point error} 




005764 


dsNoPackErr = 17; 


{package not present} 




005765 


dsNoPkl = 18; 


{package 1 not present} 




005766 


dsNoPk2 = 19; 


{package 2 not present} 




005767 


dsNoPkS = 20; 


{package 3 not present} 




005768 


dsNoPk4 = 21; 


{package 4 not present} 




005769 


dsNoPk5 = 22; 


{package 5 not present} 




005770 


dsNoPkG = 23; 


{package 6 not present} 




005771 


dsNoPk7 = 24; 


{package 7 not present} 




005772 


dsMemFullErr = 25; 


{out of memory!) 




005773 


dsBadLaunch ^ 2 6; 


{can't launch file} 




005774 


dsFSErr = 27; 


{file system map has been trashed} 




005775 


dsStknHeap = 28; 


{stack has moved into application heap} 




005776 


negZcbFreeErr = 33; 


{ZcbFree has gone negative} 




005777 


dsFinderErr = 41; 


{can't load the Finder error) 




005778 


dsBadSlotInt = 51; 


{unserviceable slot interrupt} 




005779 


dsBadSANEOpcode = 8 


L; {bad opcode given to SANE Pack4 ) 




005780 


dsBadPatchHeader = 


B3; { SetTrapAddress saw the "come-from" 




005781 


header} 






005782 


menuPrgErr = 84; 


{happens when a menu is purged} 




005783 


dsMBarNFnd =85; 


{Menu Manager Errors) 




005784 


dsHMenuFindErr =86 


{Menu Manager Errors) 




005785 


dsWDEFNotFound = 87 


{could not load WDEF ) 




005786 


dsCDEFNotFound =88 


{could not load CDEF ) 




005787 


dsMDEFNotFound =89 


{could not load MDEF ) 




005788 


dsNoFPU = 90; 


{an FPU instruction was executed and the 




005789 


machine doesn't hav 


3 one) 




005790 


dsNoPatch = 98; 


{Can't patch for particular Model Mac} 




005791 


dsBadPatch = 99; 


{Can't load patch resource} 




005792 


dsParityErr = 101; 


{memory parity error) 




005793 


dsOldSystem = 102; 


{System is too old for this ROM) 




005794 


ds32BitMode = 103; 


{booting in 32-bit on a 24-bit sys} 
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005795 
005796 
005797 
005798 
005799 
005800 
005801 
005802 
005803 
005804 
005805 
005806 
005807 
005808 
005809 
005810 
005811 
005812 
005813 
005814 
005815 
005816 
005817 
005818 
005819 
005820 
005821 
005822 
005823 
005824 
005825 
005826 
005827 
005828 
005829 
005830 
005831 
005832 
005833 
005834 
005835 
005836 
005837 
005838 
005839 
005840 
005841 
005842 
005843 
005844 
005845 
005846 
005847 
005848 
005849 



dsNeedToWriteBootBlocks = 104; 

dsNotEnoughRAMToBoot = 105; 

7.0) 

dsBufPtrTooLow = 106; 

dsReinsert — 30; 

shutDownAlert = 42; 

dsShutDownOrRestart = 20000; 

dsSwltchOffOrRestart = 20001; 

Restart) 

dsForcedQuit = 20002; 

Cancel } 



{need to write new boot blocks) 

{must have at least 1.5MB of RAM to boot 

{bufPtr moved too far during boot) 
{request user to reinsert off-line volume) 
{handled like a shutdown error) 
{user choice between ShutDown and Restart) 
{user choice between switching off and 

{allow the user to ExitToShell/ return if 



{System Errors that are used after MacsBug is loaded to put up dialogs since these 
should not cause MacsBug to stop, they must be in the range (30, 42, 16384-32767) 
negative numbers add to an existing dialog without putting up a whole new dialog) 
dsMacsBuglnstalled = -10; {say "MacsBug Installed") 

dsDisassemblerlnstalled ^ -11; {say "Disassembler Installed") 

dsExtensionsDisabled - -13; {say "Extensions Disabled") 

dsGreeting = 40; {welcome to Macintosh greeting) 

dsSysErr - 32161; {general system error) 

{old names here for compatibility's sake) 

WDEFNFnd = dsWDEFNotFound; 

CDEFNFnd = dsCDEFNotFound; 

dsNotThel = 31; 

dsBadStartupDisk = 42; 

only) ) 

dsSystemFileErr = 43; 

only) ) 

dsHD20Installed = -12; 

mBarNFnd = -12 6; 

hMenuFindErr = -127; 

userBreak = -490; 

strUserBreak = -491; 

stack ) 

exUserBreak — -492; 

commands on stack) 



{not the disk I wanted) 

{unable to mount boot volume {sad Mac 

{can't find System file to open (sad Mac 

{say "HD2 Startup") 

{system error code for MBDF not found) 

{could not find HMenu ' s parent in MenuKey) 

{user debugger break) 

{user debugger break; display string on 

{user debugger break; execute debugger 



{obsolete errors that are no longer used, but I don't have the guts to remove from 

this file) 

selectorErr — paramErr; {bad selector, for selector-based traps) 

PROCEDURE SysError (errorCode: INTEGER); 
INLINE $301F,$A9C9; 



{$ENDC) 



{ UsingErrors ) 



{$IFC NOT Usinglncludes) 

END. 
{$ENDC) 



### END OF FILE Errors. p 
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005850 






005851 


##################################################################### 




005852 


### FILE: Events. p 




005853 


##################################################################### 




005854 






005855 






005856 


{ 




005857 


Created: Sunday, September 15, 1991 at 10:40 PM 




005858 


Events .p 




005859 


Pascal Interface to the Macintosh Libraries 




005860 






005861 


Copyright Apple Computer, Inc. 1985-1991 




005862 


All rights reserved 




005863 


) 




005864 






005865 






005866 


{$IFC UNDEFINED Usinglncludes } 




005867 


{$SETC Usinglncludes := 0} 




005868 


{$ENDC} 




005869 






005870 


{$IFC NOT Usinglncludes) 




005871 


UNIT Events; 




005872 


INTERFACE 




005873 


{$ENDC} 




005874 






005875 


{$IFC UNDEFINED UsingEvents) 




005876 


{$SETC UsingEvents := 1) 




005877 






005878 


{$!+) 




005879 


{$SETC Eventslncludes := Usinglncludes) 




005880 


{$SETC Usinglncludes := 1) 




005881 


{$IFC UNDEFINED UsingTypes) 




005882 


{$1 $$Shell (PInterfaces) Types. p) 




005883 


{$ENDC) 




005884 


{$IFC UNDEFINED UsingQuicltdraw) 




005885 


{$1 $$ Shell (PInterfaces) Quicltdraw.p) 




005886 


{$ENDC) 




005887 


{$SETC Usinglncludes := Eventslncludes) 




005888 






005889 


CONST 




005890 


nullEvent = 0; 




005891 


mouseDown ^ 1; 




005892 


mouseUp ^ 2; 




005893 


l^eyDown ^ 3; 




005894 


IteyUp = 4; 




005895 


autoKey = 5; 




005896 


updateEvt = 6; 




005897 


diskEvt = 7; 




005898 


activateEvt = 8; 




005899 


osEvt = 15; 




005900 






005901 


{ event mask equates ) 




005902 


mDownMask ^ 2; 




005903 


mUpMask = 4; 




005904 


keyDownMask ^ 8; 




005905 


keyUpMask ^ 16; 


J 
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005906 


autoKeyMask = 32; 






005907 


updateMask = 64; 






005908 


diskMask = 128; 






005909 


activMask = 256; 






005910 


highLevelEventMask = 1024; 






005911 


osMask = -32768; 






005912 


everyEvent = -1; 






005913 








005914 


{ event message equates } 






005915 


charCodeMask = $OOOOOOFF; 






005916 


keyCodeMask = $OOOOFFOO; 






005917 


adbAddrMask = $OOFFOOOO; 






005918 


osEvtMessageMask = $FFOOOOOO 






005919 








005920 


{ OS event messages. Event 


sub) code is in the high byte of the message field. } 




005921 


mouseMovedMessage = $EA; 






005922 


suspendResumeMessage = $01; 






005923 








005924 


resumeFlag = 1; 


Bit of message indicates resume vs suspend ) 




005925 


convertClipboardFlag ^ 2; 


Bit 1 in resume message indicates clipboard change } 




005926 








005927 


{ modifiers } 






005928 


activeFlag = 1; 


Bit of modifiers for activateEvt and mouseDown events } 




005929 


btnState = 128; 


Bit 7 of low byte is mouse button state } 




005930 


cmdKey = 256; 


Bit ) 




005931 


shiftKey = 512; 


Bit 1 ) 




005932 


aiphaLock = 1024; 


Bit 2 ) 




005933 


optionKey = 2048; 


Bit 3 of high byte } 




005934 


controiKey = 4096; 






005935 








005936 


{ obsolete equates } 






005937 


networkEvt = 10; 






005938 


driverEvt = 11; 






005939 


applEvt = 12 








005940 


app2Evt =13 








005941 


app3Evt =14 








005942 


app4Evt =15 








005943 


networkMask = 1024; 






005944 


driverMask = 2048; 






005945 


applMask = 4096; 






005946 


app2Mask = 8192; 






005947 


app3Mask = 16384; 






005948 


app4Mask = -32768; 






005949 








005950 


TYPE 






005951 


EventRecord = RECORD 






005952 


what: INTEGER; 






005953 


message: LONGINT; 






005954 


when: LONGINT; 






005955 


where: Point; 






005956 


modifiers: INTEGER; 






005957 


END; 






005958 








005959 








005960 


KeyMap = PACKED ARRAY [0..127] OF BOOLEAN; 




005961 
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005962 FUNCTION GetNextEvent (eventMask : INTEGER;VAR theEvent : EventRecord) : BOOLEAN; 

005963 INLINE $A970; 

005964 FUNCTION WaitNextEvent (eventMask: INTEGER; VAR theEvent: EventRecord; sleep : LONGINT; 

005965 mouseRgn: RgnHandle) : BOOLEAN; 

005966 INLINE $A860; 

005967 FUNCTION EventAvall (eventMask : INTEGER; VAR theEvent : EventRecord): BOOLEAN; 

005968 INLINE $A971; 

005969 PROCEDURE GetMouse (VAR mouseLoc : Point); 

005970 INLINE $A972; 

005971 FUNCTION Button: BOOLEAN; 

005972 INLINE $A974; 

005973 FUNCTION StillDown: BOOLEAN; 

005974 INLINE $A973; 

005975 FUNCTION WaitMouseUp: BOOLEAN; 

005976 INLINE $A977; 

005977 PROCEDURE GetKeys (VAR theKeys : KeyMap) ; 

005978 INLINE $A976; 

00597 9 FUNCTION TickCount : LONGINT; 

005980 INLINE $A975; 

005981 FUNCTION GetDblTime : LONGINT; 

005982 INLINE $2EB8,$02F0; 

005983 FUNCTION GetCaretTime: LONGINT; 

005984 INLINE $2EB8,$02F4; 
005985 

005986 

005987 {$ENDC) { UslngEvents ) 

005988 

005989 {$IFC NOT Uslnglncludes) 

005990 END. 

005991 {$ENDC} 
005992 

005993 

005994 ### END OF FILE Events. p 

005995 
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005996 






005997 


##################################################################### 




005998 


### FILE: Files. p 




005999 


##################################################################### 




006000 






006001 






006002 


{ 




006003 


Created: Sunday, September 15, 1991 at 10:42 PM 




006004 


Files .p 




006005 


Pascal Interface to the Macintosh Libraries 




006006 






006007 


Copyright Apple Computer, Inc. 1985-1991 




006008 


All rights reserved 




006009 


) 




006010 






006011 






006012 


{$IFC UNDEFINED Usinglncludes } 




006013 


{$SETC Usinglncludes := 0} 




006014 


{$ENDC) 




006015 






006016 


{$IFC NOT Usinglncludes) 




006017 


UNIT Files; 




006018 


INTERFACE 




006019 


{$ENDC} 




006020 






006021 


{$IFC UNDEFINED UsingFiles} 




006022 


{$SETC UsingFiles := 1) 




006023 






006024 


{$!+) 




006025 


{$SETC Fileslncludes := Usinglncludes} 




006026 


{$SETC Usinglncludes := 1} 




006027 


{$IFC UNDEFINED UsingTypes) 




006028 


{$1 $$Shell(PInterfaces)Types.p) 




006029 


{$ENDC) 




006030 


{$IFC UNDEFINED UsingOSUtils ) 




006031 


{$1 $$ Shell (P Interfaces) OSUtils .p} 




006032 


{$ENDC) 




006033 


{$IFC UNDEFINED UsingSegLoad) 




006034 


{$1 $$ Shell (P Interfaces) SegLoad.p} 




006035 


{$ENDC) 




006036 


{$SETC Usinglncludes := Fileslncludes} 




006037 






006038 


CONST 




006039 






006040 


{ Finder Constants ) 




006041 


fsAtMark = 0; 




006042 


fOnDesk = 1; 




006043 


fsCurPerm ^ 0; 




006044 


fHasBundle = 8192; 




006045 


fsRdPerm = 1; 




006046 


finvisible = 16384; 




006047 


fTrash = -3; 




006048 


fsWrPerm = 2; 




006049 


f Desktop = -2; 




006050 


fsRdWrPerm = 3; 




006051 


fDisk = 0; 


J 
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006052 fsRdWrShPerm = 4; 

006053 fsFromStart = 1 ; 

006054 fsFromLEOF = 2; 

006055 fsFromMark = 3; 

006056 rdVerify = 64; 

006057 loDirFlg = 3; { see IM IV-125 ) 

006058 ioDirMask = 510; 

006059 fsRtParlD = 1; 

006060 fsRtDlrlD = 2; 
006061 

006062 { CatSearch SearchBits Constants } 

006063 fsSBPartialName = 1; 

006064 fsSBFullName = 2; 

006065 fsSBFlAttrib = 4; 

006066 fsSBFlFndrlnfo = 8; 

006067 fsSBFlLgLen = 32; 

006068 fsSBFlPyLen = 64; 

006069 fsSBFlRLgLen = 128; 

006070 fsSBFlRPyLen = 256; 

006071 fsSBFlCrDat = 512; 

006072 fsSBFlMdDat = 1024; 

006073 fsSBFlBkDat = 2048; 

006074 fsSBFlXFndrlnfo = 4096; 

006075 fsSBFlParlD = 8192; 

006076 fsSBNegate = 16384; 

006077 fsSBDrUsrWds = 8; 

006078 fsSBDrNmFls = 16; 

006079 fsSBDrCrDat = 512; 

006080 fsSBDrMdDat = 1024; 

006081 fsSBDrBkDat = 2048; 

006082 fsSBDrFndrlnfo = 4096; 

006083 fsSBDrParlD = 8192; 
006084 

006085 { vMAttrib (GetVolParms) bit position constants ) 

006086 bLimitFCBs = 31; 

006087 bLocalWList = 30; 

006088 bNoMiniFndr = 29; 

006089 bNoVNEdit = 28; 

006090 bNoLclSync = 27; 

006091 bTrshOffLine = 26; 

006092 bNoSwitchTo = 25; 

006093 bNoDeskltems = 20; 

006094 bNoBootBlks = 19; 

006095 bAccessCntl = 18; 

006096 bNoSysDir = 17; 

006097 bHasExtFSVol = 16; 

006098 bHasOpenDeny = 15; 

006099 bHasCopyFile = 14; 

006100 bHasMoveRename = 13; 

006101 bHasDesktopMgr = 12; 

006102 bHasShortName = 11; 

006103 bHasFolderLock = 10; 

006104 bHasPersonalAccessPrivileges ^ 9; 

006105 bHasUserGroupList = 8; 

006106 bHasCatSearch = 7; 
.006107 bHasFilelDs = 6; 
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006108 


bHasBTreeMgr = 5; 






006109 


bHasBlankAccessPrivileges ^ 4; 






006110 








006111 


{ Desktop Database icon Constants } 






006112 


kLargelcon = 1; 






006113 


kLarge4BitIcon = 2; 






006114 


kLargeSBitlcon = 3; 






006115 


kSmalllcon = 4; 






006116 


kSmall4BitIcon = 5; 






006117 


kSmallSBitlcon = 6; 






006118 








006119 


kLargelconSize = 256; 






006120 


kLarge4BitIconSize = 512; 






006121 


kLargeSBitlconSize = 1024; 






006122 


kSmalllconSize = 64; 






006123 


kSmall4BitIconSize = 128; 






006124 


kSmall8BitIconSize = 256; 






006125 








006126 


{ Foreign Privilege Model Identifiers } 






006127 


fsUnixPriv = 1; 






006128 








006129 


{ Version Release Stage Codes ) 






006130 


developStage = $20; 






006131 


alphaStage = $40; 






006132 


betaStage = $60; 






006133 


finalStage = $80; 






006134 








006135 


{ Authentication Constants } 






006136 


kNoUserAuthentication = 1; 






006137 


kPassword = 2; 






006138 


kEncryptPassword ^ 3; 






006139 


kTwoWayEncryptPassword = 6; 






006140 








006141 


TYPE 






006142 


CInfoType = (hFileInf o, dirinf o) ; 






006143 








006144 








006145 


FXInfo = RECORD 






006146 


fdlconID: INTEGER; 


{Icon ID) 




006147 


fdUnused: ARRAY [1..3] OF INTEGER; 


{unused but reserved 6 bytes} 




006148 


fdScript: SignedByte; 


{Script flag and number} 




006149 


fdXFlags: SignedByte; 


{More flag bits} 




006150 


fdComment: INTEGER; 


{Comment ID} 




006151 


fdPutAway: LONGINT; 


{Home Dir ID} 




006152 


END; 






006153 








006154 


DInfo = RECORD 






006155 


frRect: Rect; 


{folder rect} 




006156 


frFlags: INTEGER; 


{Flags) 




006157 


frLocation: Point; 


{folder location} 




006158 


frView: INTEGER; 


{folder view} 




006159 


END; 






006160 








006161 


DXInfo = RECORD 






006162 


frScroll: Point; 


{scroll position} 




006163 


frOpenChain: LONGINT; 


{DirlD chain of open folders} 
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006164 
006165 
006166 
006167 
006168 
006169 
006170 
006171 
006172 
006173 
006174 
006175 
006176 
006177 
006178 
006179 
006180 
006181 
006182 
006183 
006184 
006185 
006186 
006187 
006188 
006189 
006190 
006191 
006192 
006193 
006194 
006195 
006196 
006197 
006198 
006199 
006200 
006201 
006202 
006203 
006204 
006205 
006206 
006207 
006208 
006209 
006210 
006211 
006212 
006213 
006214 
006215 
006216 
006217 
006218 
006219 



f rScript ; SignedByte; 
f rXFlags ; SignedByte; 
frComment: INTEGER; 
frPutAway: LONGINT; 
END; 

GetVolParmsInfoBuffer = RECORD 
vMVersion: INTEGER; 
vMAttrib: LONGINT; 
vMLocalHand: Handle; 
vMServerAdr: LONGINT; 
vMVolumeGrade: LONGINT; 
vMForeignPrlvID: INTEGER; 
END; 

CInfoPBPtr = ^ClnfoPBRec; 
CInfoPBRec = RECORD 

qLink: QElemPtr; 

qType: INTEGER; 

loTrap: INTEGER; 

loCmdAddr: Ptr; 

ioCompletion ; ProcPtr; 

loResult: OSErr; 

ioNamePtr: StringPtr; 

loVRefNum: INTEGER; 

loFRefNum: INTEGER; 

ioFVersNum: SignedByte; 

f illerl : SignedByte; 

ioFDirlndex: INTEGER; 

ioFlAttrib: SignedByte; 

filler2: SignedByte; 

CASE CInfoType OF 
hFilelnfo : 

(ioFlFndrlnfo: FInfo; 
ioDirlD: LONGINT; 
ioFlStBlk: INTEGER; 



ioFlLgLen : 
ioFlPyLen : 
ioFlRStBlk; 
ioFlRLgLen; 
ioFlRPyLen; 
ioFlCrDat : 
ioFlMdDat : 
ioFlBkDat : 



LONGINT 
LONGINT 
INTEGER 
LONGINT 
LONGINT 
LONGINT 
LONGINT 
LONGINT 



ioFlXFndrlnfo: FXInfo; 

ioFlParlD: LONGINT; 
ioFlClpSiz: LONGINT); 
dirinf o : 

(ioDrUsrWds; DInfo 
ioDrDirlD: LONGINT 
ioDrNmFls: INTEGER 
filler3: ARRAY [1. 
ioDrCrDat: LONGINT 
ioDrMdDat: LONGINT 
ioDrBkDat: LONGINT 
ioDrFndrlnfo: DXInfo; 



{Script flag and number} 
{More flag bits) 
{ comment ) 
{DirlD} 



{version number) 

{bit vector of attributes (see vMAttrib constants) ) 

{handle to private data) 

{AppleTalk server address or zero} 

{approx. speed rating or zero if unrated) 

{foreign privilege model supported or zero if none} 



OF INTEGER; 
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006220 


ioDrParlD: LONGINT) ; 






006221 


END; 






006222 








006223 


{ Catalog position record } 






006224 


CatPositionRec = RECORD 






006225 


initialize: LONGINT; 






006226 


priv: ARRAY [1..6] OF INTEGER; 






006227 


END; 






006228 








006229 


FSSpecPtr = ^FSSpec; 






006230 


FSSpecHandle = ^FSSpecPtr; 






006231 


FSSpec = RECORD 






006232 


vRefNum: INTEGER; 






006233 


parlD: LONGINT; 






006234 


name: Str63; 






006235 


END; 






006236 








006237 


FSSpecArrayPtr = '"FSSpecArray; 






006238 


FSSpecArrayHandle = ^FSSpecArrayPtr; 






006239 








006240 


FSSpecArray = ARRAY [0..0] OF FSSpec; 






006241 








006242 








006243 


{ The following are structures to be filled out with the _GetVolMountInf o call 




006244 


and passed back into the _VolumeMount call for external file system mounts. } 




006245 








006246 


VolumeType = OSType; 


the "signature" of the file system } 




006247 








006248 


CONST 






006249 


AppleShareMediaType = 'afpm'; 


the signature for AppleShare ) 




006250 








006251 


TYPE 






006252 


VolMountlnfoPtr = ''VolMount Inf oHeader; 






006253 


VolMountlnfoHeader = RECORD 






006254 


length: INTEGER; 


length of location data {including self) ) 




006255 


media: VolumeType; 


type of media. Variable length data follows } 




006256 


END; 






006257 








006258 


AFPVolMountlnfoPtr = -^AFPVolMountlnf o; 






006259 


AFPVolMountlnfo = RECORD 






006260 


length: INTEGER; 


length of location data (including self) } 




006261 


media: VolumeType; 


type of media } 




006262 


flags: INTEGER; 


bits for no messages, no reconnect } 




006263 


nbplnterval: SignedByte; 


NBP Interval parameter {IM2, p. 322) ) 




006264 


nbpCount ; SignedByte; 


NBP Interval parameter {IM2, p. 322) ) 




006265 


uamType: INTEGER; 


User Authentication Method } 




006266 


zoneNameOff set : INTEGER; 


short positive offset from start of struct to Zone Name } 




006267 


serverNameOf f set : INTEGER; 


offset to pascal Server Name string } 




006268 


volNameOffset: INTEGER; 


offset to pascal Volume Name string } 




006269 


userNameOff set : INTEGER; 


offset to pascal User Name string ) 




006270 


userPasswordOf f set : INTEGER; 


offset to pascal User Password string ) 




006271 


volPasswordOffset : INTEGER; 


offset to pascal Volume Password string } 




006272 


AFPData: PACKED ARRAY [1..144] OF CHAR; 


variable length data may follow ) 




006273 


END; 






006274 








006275 


DTPBPtr = ^DTPBRec; 
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006276 


DTPBRec = RECORD 






006277 


qLink: QElemPtr; 






006278 


qType : INTEGER; 






006279 


ioTrap: INTEGER; 






006280 


loCmdAddr: Ptr; 






006281 


ioCompletion ; ProcPtr; 






006282 


loResult: OSErr; 






006283 


ioNamePtr: StringPtr; 






006284 


ioVRefNum: INTEGER; 






006285 


ioDTRefNum: INTEGER; 






006286 


iolndex: INTEGER; 






006287 


ioTaglnfo: LONGINT; 






006288 


ioDTBuffer: Ptr; 






006289 


ioDTReqCount : LONGINT; 






006290 


ioDTActCount : LONGINT; 






006291 


fillerl: SignedByte; 






006292 


iolconlype: SignedByte; 






006293 


filler2: INTEGER; 






006294 


loDirlD: LONGINT; 






006295 


ioFileCreator : OSType; 






006296 


ioFilelype: OSType; 






006297 


loFlllerS: LONGINT; 






006298 


ioDTLgLen: LONGINT; 






006299 


loDTPyLen: LONGINT; 






006300 


loFlller4: ARRAY [1..14] OF INTEGER; 






006301 


loAPPLParlD: LONGINT; 






006302 


END; 






006303 








006304 


HParmBlkPtr = ''HParamBlockRec; 






006305 


HParamBlockRec = RECORD 






006306 


qLink: QElemPtr; 






006307 


qType: INTEGER; 






006308 


ioTrap: INTEGER; 






006309 


ioCmdAddr: Ptr; 






006310 


ioCompletion: ProcPtr; 






006311 


ioResult: OSErr; 






006312 


ioNamePtr: StringPtr; 






006313 


ioVRefNum: INTEGER; 






006314 


CASE ParamBlkType OF 






006315 


lOParam: 






006316 


(ioRefNum: INTEGER; 






006317 


ioVersNura: SignedByte; 






006318 


ioPermssn: SignedByte; 






006319 


ioMisc: Ptr; 






006320 


ioBuffer: Ptr; 






006321 


ioReqCount: LONGINT; 


{size of buffer area} 




006322 


ioActCount: LONGINT; 


{length of vol parms data} 




006323 


ioPosMode: INTEGER; 






006324 


ioPosOffset: LONGINT); 






006325 


FileParam: 






006326 


(ioFRefNum: INTEGER; 






006327 


ioFVersNum: SignedByte; 






006328 


fillerl: SignedByte; 






006329 


ioFDir Index: INTEGER; 






006330 


ioFlAttrib: SignedByte; 






006331 


ioFlVersNum: SignedByte; 
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006332 ioFlFndrlnfo: FInfo; 

006333 ioDirlD: LONGINT; 

006334 ioFlStBlk: INTEGER; 

006335 ioFlLgLen: LONGINT 

006336 ioFlPyLen: LONGINT 

006337 ioFlRStBlk: INTEGER 

006338 ioFlRLgLen: LONGINT 

006339 ioFlRPyLen: LONGINT 

006340 ioFlCrDat: LONGINT; 

006341 ioFlMdDat: LONGINT); 

006342 VolumeParam: 

006343 (filler2: LONGINT; 

006344 ioVolIndex: INTEGER; 

006345 ioVCrDate: LONGINT; 

006346 ioVLsMod: LONGINT; 

006347 ioVAtrb: INTEGER; 

006348 ioVNmFls: INTEGER; 

006349 loVBitMap: INTEGER; 

006350 ioAllocPtr: INTEGER; 

006351 ioVNmAlBlks: INTEGER; 

006352 ioVAlBlkSiz: LONGINT; 

006353 ioVClpSiz: LONGINT; 

006354 ioAlBlSt: INTEGER; 

006355 ioVNxtCNID: LONGINT; 

006356 ioVFrBlk: INTEGER; 

006357 ioVSigWord: INTEGER; 

006358 ioVDrvInfo: INTEGER; 

006359 ioVDRefNum: INTEGER; 

006360 ioVFSID: INTEGER; 

006361 ioVBkUp: LONGINT; 

006362 ioVSeqNum: INTEGER; 

006363 ioVWrCnt: LONGINT; 

006364 ioVFilCnt: LONGINT; 

006365 ioVDirCnt: LONGINT; 

006366 ioVFndrlnfo: ARRAY [1..8] OF LONGINT), 

006367 AccessParam: 

006368 (filler3: INTEGER; 

006369 ioDenyModes: INTEGER; 

006370 filler4: INTEGER; 

006371 filler5: SignedByte; 

006372 ioACUser: SignedByte; 

006373 filler6: LONGINT; 

006374 ioACOwnerlD: LONGINT; 

006375 ioACGroupID: LONGINT; 

006376 ioACAccess: LONGINT); 

006377 ObjParam: 

006378 (filler7: INTEGER; 
00637 9 ioObjType: INTEGER; 

006380 ioObjNamePtr: Ptr; 

006381 ioObjID: LONGINT); 

006382 CopyParam: 

006383 (ioDstVRefNum: INTEGER; 

006384 filler8: INTEGER; 

006385 ioNewName: Ptr; 

006386 ioCopyName: Ptr; 

006387 ioNewDirlD: LONGINT); 



{access rights data) 



{access rights for directory only} 

{owner ID} 
{group ID} 
{access rights} 



{function code} 

{ptr to returned creator/group name} 

{creator/group ID} 

{destination vol identifier) 

{ptr to destination pathname) 
{ptr to optional name} 
{destination directory ID} 
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006388 
006389 
006390 
006391 
006392 
006393 
006394 
006395 
006396 
006397 
006398 
006399 
006400 
006401 
006402 
006403 
006404 
006405 
006406 
006407 
006408 
006409 
006410 
006411 
006412 
006413 
006414 
006415 
006416 
006417 
006418 
006419 
006420 
006421 
006422 
006423 
006424 
006425 
006426 
006427 
006428 
006429 
006430 
006431 
006432 
006433 
006434 
006435 
006436 
006437 
006438 
006439 
006440 
006441 
006442 
006443 



WDParam: 

(flller9: INTEGER; 
ioWDIndex: INTEGER; 
ioWDProcID: LONGINT; 
ioWDVRefNum: INTEGER; 



fillerlO 
fillerll 
fillerl2 
fillerl3 
ioWDDirlD 
FIDParam 
(fillerl4 



INTEGER; 
LONGINT; 
LONGINT; 
LONGINT; 
: LONGINT) , 



LONGINT; 
ioDestNamePtr : StrlngPtr; 
fillerl5: LONGINT; 
ioDestDirlD: LONGINT; 
fillerl6: LONGINT; 
fillerl7: LONGINT; 
ioSrcDirlD: LONGINT; 
fillerl8: INTEGER; 
ioFilelD: LONGINT) ; 
CSParam: 

(ioMatchPtr: FSSpecArrayPtr; 
ioReqMatchCount : LONGINT; 
ioActMatchCount : LONGINT; 
ioSearchBits: LONGINT; 
ioSearchlnfol : CInfoPBPtr; 



CInfoPBPtr; 
LONGINT; 
CatPositionRec; 



ioSearchInf o2 : 
ioSearchTime : 
ioCat Position: 
ioOptBuffer: Ptr; 
ioOptBufSize: LONGINT); 
ForeignPrivParara : 
(filler21: LONGINT; 
filier22: LONGINT; 
ioForeignPrivBuf f er ; Ptr; 
ioForeignPrivReqCount : LONGINT; 
ioForeignPrivActCount : LONGINT; 
filier23: LONGINT; 
ioForeignPrivDirlD : LONGINT; 
ioForeignPrivInfol : LONGINT; 
ioForeignPrivInfo2 : LONGINT; 
ioForeignPrivInfo3 : LONGINT; 
ioForeignPrivInfo4 : LONGINT); 
END; 

CMovePBPtr = ^CMovePBRec; 
CMovePBRec = RECORD 

qLink: QElemPtr; 

qType : INTEGER; 

ioTrap: INTEGER; 

ioCmdAddr: Ptr; 

ioCompletion ; ProcPtr; 

ioResult: OSErr; 

ioNamePtr: StringPtr; 

ioVRefNum: INTEGER; 

fillerl: LONGINT; 



{match array} 

{maximum allowable matches} 

{actual match count} 

{search criteria selector} 

{search values and range lower bounds} 

{search values and range upper bounds} 

{length of time to run the search} 

{current position in the catalog) 

{optional performance enhancement buffer} 

{length of buffer pointed to by ioOptBuffer} 
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006444 loNewName: StringPtr; 

006445 filler2: LONGINT; 

006446 ioNewDirlD: LONGINT; 

006447 fillers: ARRAY [1..2] OF LONGINT; 

006448 loDlrlD: LONGINT; 

006449 END; 
006450 

006451 WDPBPtr = ^WDPBRec; 

006452 WDPBRec = RECORD 

006453 qLink: QElemPtr; 

006454 qType: INTEGER; 

006455 ioTrap: INTEGER; 

006456 ioCmdAddr: Ptr; 

006457 ioCompletion: ProcPtr; 

006458 ioResult: OSErr; 

006459 ioNamePtr: StringPtr; 

006460 ioVRefNum: INTEGER; 

006461 fillerl: INTEGER; 

006462 ioWDIndex: INTEGER; 

006463 ioWDProcID: LONGINT; 

006464 ioWDVRefNum: INTEGER; 

006465 filler2: ARRAY [1..7] OF INTEGER; 

006466 ioWDDirlD: LONGINT; 

006467 END; 
006468 

006469 FCBPBPtr = ^FCBPBRec; 

006470 FCBPBRec = RECORD 

006471 qLink: QElemPtr; 

006472 qType: INTEGER; 

006473 loTrap: INTEGER; 

006474 IoCmdAddr: Ptr; 

006475 IoCompletion: ProcPtr; 

006476 ioResult: OSErr; 

006477 ioNamePtr: StringPtr; 

006478 IoVRefNum: INTEGER; 

006479 ioRefNum: INTEGER; 

006480 filler: INTEGER; 

006481 ioFCBIndx: INTEGER; 

006482 fillerl: INTEGER; 

006483 ioFCBFlNm: LONGINT; 

006484 ioFCBFlags: INTEGER; 

006485 ioFCBStBlk: INTEGER; 

006486 ioFCBEOF: LONGINT; 

006487 ioFCBPLen: LONGINT; 

006488 ioFCBCrPs: LONGINT; 

006489 ioFCBVRefNum: INTEGER; 

006490 ioFCBClpSiz: LONGINT; 

006491 ioFCBParlD: LONGINT; 

006492 END; 
006493 

006494 { Numeric version part of 'vers' resource } 

006495 NumVersion = PACKED RECORD 

006496 CASE INTEGER OF 

006497 0: 

006498 {majorRev: SignedByte; {1st part of version number in BCD} 

006499 minorRev: 0..9; {2nd part is 1 nibble in BCD) 
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006500 
006501 
006502 
006503 
006504 
006505 
006506 
006507 
006508 
006509 
006510 
006511 
006512 
006513 
006514 
006515 
006516 
006517 
006518 
006519 
006520 
006521 
006522 
006523 
006524 
006525 
006526 
006527 
006528 
006529 
006530 
006531 
006532 
006533 
006534 
006535 
006536 
006537 
006538 
006539 
006540 
006541 
006542 
006543 
006544 
006545 
006546 
006547 
006548 
006549 
006550 
006551 
006552 
006553 
006554 
006555 



bugFixRev: . . 9; 
stage: SignedByte; 
nonRelRev: SignedByte); 
1: 

(version: LONGINT) ; 
END; 

{ 'vers' resource format } 
VersRecPtr = "^VersRec; 
VersRecHndl ^ ^VersRecPtr; 
VersRec = RECORD 

numericVersion : NumVersion; 

countryCode: INTEGER; 

shortVersion ; Str255; 

reserved: Str255; 

END; 



{3rd part is 1 nibble in BCD) 

{stage code: dev, alpha, beta, final) 

{revision level of non-released version) 

{to use all 4 fields at one time) 



{encoded version number) 

{country code from intl utilities} 

{version number string - worst case) 

{longMessage string paclced after shortVersion} 



FUNCTION PBOpen (paramBloclt: ParmBlltPtr; async 
FUNCTION PBOpenSync (paramBloclt: ParmBlltPtr) : 

INLINE $205F, $A000, $3E80; 
FUNCTION PBOpenAsync (paramBloclt: ParmBlltPtr) : 

INLINE $205F, $A400, $3E80; 
FUNCTION PBClose (paramBloclc : ParmBlltPtr; async 
FUNCTION PBCloseSync (paramBloclt : ParmBlltPtr) : 

INLINE $205F, $A001, $3E80; 
FUNCTION PBCloseAsync (paramBloclt : ParmBlkPtr) 

INLINE $205F, $A401, $3E80; 
FUNCTION PBRead (paramBloclt : ParmBlltPtr; async : 
FUNCTION PBReadSync (paramBloclt: ParmBlltPtr) 

INLINE $205F, $A002, $3E80; 
FUNCTION PBReadAsync (paramBloclt : ParmBlltPtr 

INLINE $2a5F, $A402, $3E80; 
FUNCTION PBWrite (paramBloclt : ParmBlltPtr; async 
FUNCTION PBWriteSync (paramBloclt : ParmBlltPtr) : 

INLINE $205F, $A003, $3E80; 
FUNCTION PBWriteAsync (paramBloclt: ParmBlkPtr) 

INLINE $205F, $A403, $3E80; 
FUNCTION PBGetVInfo (paramBlock: ParmBlkPtr; as 
FUNCTION PBGetVInfoSync (paramBlock: ParmBlkPt 

INLINE $205F, $A007, $3E80; 
FUNCTION PBGetVInfoAsync (paramBlock: ParmBlkP 

INLINE $2a5F, $A407, $3E80; 
FUNCTION PBGetVol (paramBlock: ParmBlkPtr; asyn 
FUNCTION PBGetVolSync (paramBlock: ParmBlkPtr) 

INLINE $2a5F, $A014, $3E80; 
FUNCTION PBGetVolAsync (paramBlock: ParmBlkPtr 

INLINE $2a5F, $A414, $3E80; 
FUNCTION PBSetVol (paramBlock: ParmBlkPtr; asyn 
FUNCTION PBSetVolSync (paramBlock: ParmBlkPtr) 

INLINE $205F, $A015, $3E80; 
FUNCTION PBSetVolAsync (paramBlock: ParmBlkPtr 

INLINE $205F, $A415, $3E80; 
FUNCTION PBFlushVol (paramBlock: ParmBlkPtr; as 
FUNCTION PBFlushVolSync (paramBlock: ParmBlkPt 

INLINE $205F, $A013, 53E80; 



BOOLEAN) : OSErr; 
OSErr; 



OSErr; 



BOOLEAN) : OSErr; 
OSErr; 



OSErr; 



BOOLEAN) : OSErr; 
OSErr; 



) : OSErr; 



: BOOLEAN) : OSErr; 
OSErr; 

: OSErr; 

ync: BOOLEAN): OSErr; 
r) : OSErr; 

tr) : OSErr; 

c: BOOLEAN) : OSErr; 
: OSErr; 

) : OSErr; 

c: BOOLEAN) : OSErr; 
: OSErr; 

) : OSErr; 

ync: BOOLEAN): OSErr; 
r) : OSErr; 



' N 
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006556 FUNCTION PBFlushVolAsync (paramBlock : ParmBlkPtr) : OSErr; 

006557 INLINE $205F, $A4 13, $3E80 ; 

006558 FUNCTION PBCreate (paramBlock: ParmBlkPtr; async : BOOLEAN): OSErr; 

006559 FUNCTION PBCreateSync (paramBlock: ParmBlkPtr): OSErr; 

006560 INLINE $205F, $A008, $3E80; 

006561 FUNCTION PBCreateAsync (paramBlock : ParmBlkPtr): OSErr; 

006562 INLINE $2a5F, SA408 , $3E80 ; 

006563 FUNCTION PBDelete (paramBlock: ParmBlkPtr; async : BOOLEAN): OSErr; 

006564 FUNCTION PBDeleteSync (paramBlock: ParmBlkPtr): OSErr; 

006565 INLINE $205F, SA009, $3E80; 

006566 FUNCTION PBDeleteAsync (paramBlock: ParmBlkPtr): OSErr; 

006567 INLINE $2a5F, $A409, $3E80 ; 

006568 FUNCTION PBOpenDF (paramBlock : ParmBlkPtr; async : BOOLEAN): OSErr; 

006569 FUNCTION PBOpenDFSync (paramBlock : ParmBlkPtr): OSErr; 

006570 INLINE $205F, S701A, $A0 60, $3E80 ; 

006571 FUNCTION PBOpenDFAsync (paramBlock : ParmBlkPtr): OSErr; 

006572 INLINE $205F, $701A, $A4 60, $3E80 ; 

006573 FUNCTION PBOpenRF (paramBlock: ParmBlkPtr; async : BOOLEAN): OSErr; 

006574 FUNCTION PBOpenRFSync (paramBlock : ParmBlkPtr): OSErr; 

006575 INLINE $205F, $AOOA, $3E80 ; 

006576 FUNCTION PBOpenRFAsync (paramBlock : ParmBlkPtr): OSErr; 

006577 INLINE $2a5F, $A4 OA, $3E80 ; 

006578 FUNCTION PBRename (paramBlock : ParmBlkPtr; async : BOOLEAN): OSErr; 

006579 FUNCTION PBRenameSync (paramBlock : ParmBlkPtr): OSErr; 

006580 INLINE $2a5F, $AOOB, $3E80 ; 

006581 FUNCTION PBRenameAsync (paramBlock : ParmBlkPtr): OSErr; 

006582 INLINE $205F, $A40B, $3E80; 

006583 FUNCTION PBGetFInfo (paramBlock: ParmBlkPtr; async : BOOLEAN): OSErr; 

006584 FUNCTION PBGetFInfoSync (paramBlock: ParmBlkPtr): OSErr; 

006585 INLINE $205F, $A00C, $3E80; 

006586 FUNCTION PBGetFInfoAsync (paramBlock: ParmBlkPtr): OSErr; 

006587 INLINE $2a5F, $A40C, $3E80; 

006588 FUNCTION PBSetFInfo (paramBlock: ParmBlkPtr; async : BOOLEAN): OSErr; 

006589 FUNCTION PBSetFInfoSync (paramBlock: ParmBlkPtr): OSErr; 

006590 INLINE $205F, $A00D, $3E80; 

006591 FUNCTION PBSetFInfoAsync (paramBlock : ParmBlkPtr): OSErr; 

006592 INLINE $205F, $A4 OD, $3E80 ; 

006593 FUNCTION PBSetFLock (paramBlock: ParmBlkPtr; async : BOOLEAN): OSErr; 

006594 FUNCTION PBSetFLockSync (paramBlock : ParmBlkPtr): OSErr; 

006595 INLINE $205F, $A04 1 , 53E80 ; 

006596 FUNCTION PBSetFLockAsync (paramBlock : ParmBlkPtr): OSErr; 

006597 INLINE $205F, $A44 1 , $3E80 ; 

006598 FUNCTION PBRstFLock (paramBlock: ParmBlkPtr; async : BOOLEAN): OSErr; 

006599 FUNCTION PBRstFLockSync (paramBlock: ParmBlkPtr): OSErr; 

006600 INLINE $2a5F, $A042, $3E80; 

006601 FUNCTION PBRstFLockAsync (paramBlock : ParmBlkPtr): OSErr; 

006602 INLINE $205F, $A442, $3E80; 

006603 FUNCTION PBSetFVers (paramBlock: ParmBlkPtr; async : BOOLEAN): OSErr; 

006604 FUNCTION PBSetFVersSync (paramBlock: ParmBlkPtr): OSErr; 

006605 INLINE $205F, $A043, $3E80; 

006606 FUNCTION PBSetFVersAsync (paramBlock: ParmBlkPtr): OSErr; 

006607 INLINE $205F, $A443, $3E80; 

006608 FUNCTION PBAllocate (paramBlock: ParmBlkPtr; async : BOOLEAN): OSErr; 

006609 FUNCTION PBAllocateSync (paramBlock : ParmBlkPtr): OSErr; 

006610 INLINE $205F, $A010, $3E80; 

.006611 FUNCTION PBAllocateAsync (paramBlock : ParmBlkPtr): OSErr; 
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006612 INLINE $205F, $A4 10 , $3E80 ; 

006613 FUNCTION PBGetEOF (paramBlock : ParmBlkPtr; async : BOOLEAN): OSErr; 

006614 FUNCTION PBGetEOFSync (paramBlock : ParmBlkPtr): OSErr; 

006615 INLINE $205F, $A011 , $3E80 ; 

006616 FUNCTION PBGetEOFAsync (paramBlock : ParmBlkPtr): OSErr; 

006617 INLINE $2a5F, $A411 , $3E80 ; 

006618 FUNCTION PBSetEOF (paramBlock : ParmBlkPtr; async : BOOLEAN): OSErr; 

006619 FUNCTION PBSetEOFSync (paramBlock : ParmBlkPtr): OSErr; 

006620 INLINE $2a5F, $A012 , $3E80 ; 

006621 FUNCTION PBSetEOFAsync (paramBlock : ParmBlkPtr): OSErr; 

006622 INLINE $205F, $A412, $3E80; 

006623 FUNCTION PBGetFPos (paramBlock: ParmBlkPtr; async : BOOLEAN): OSErr; 

006624 FUNCTION PBGetFPosSync (paramBlock : ParmBlkPtr): OSErr; 

006625 INLINE $205F, $A01 8 , 53E80 ; 

006626 FUNCTION PBGetFPosAsync (paramBlock : ParmBlkPtr): OSErr; 

006627 INLINE $205F, $A4 1 8 , $3E80 ; 

006628 FUNCTION PBSetFPos (paramBlock : ParmBlkPtr; async : BOOLEAN): OSErr; 

006629 FUNCTION PBSetFPosSync (paramBlock : ParmBlkPtr): OSErr; 

006630 INLINE $2a5F, $A044, $3E80; 

006631 FUNCTION PBSetFPosAsync (paramBlock : ParmBlkPtr): OSErr; 

006632 INLINE $205F, $A444 , $3E80 ; 

006633 FUNCTION PBFlushFile (paramBlock: ParmBlkPtr; async : BOOLEAN): OSErr; 

006634 FUNCTION PBFlushFileSync (paramBlock : ParmBlkPtr): OSErr; 

006635 INLINE $205F, $A045, $3E80 ; 

006636 FUNCTION PBFlushFileAsync (paramBlock : ParmBlkPtr): OSErr; 

006637 INLINE $205F, $A445, $3E80 ; 

006638 FUNCTION PBMount Vol (paramBlock : ParmBlkPtr): OSErr; 

006639 FUNCTION PBUnmountVol (paramBlock: ParmBlkPtr): OSErr; 

006640 FUNCTION PBEject (paramBlock : ParmBlkPtr): OSErr; 

006641 FUNCTION PBOff Line (paramBlock : ParmBlkPtr): OSErr; 
006642 

006643 FUNCTION PBCatSearch (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 

006644 FUNCTION PBCatSearchSync (paramBlock : HParmBlkPtr): OSErr; 

006645 INLINE $205F, $7018, $A260, $3E80; 

006646 FUNCTION PBCatSearchAsync (paramBlock: HParmBlkPtr): OSErr; 

006647 INLINE $205F, $7018, $A660, $3E80; 
006648 

006649 PROCEDURE AddDrive (drvrRefNum: INTEGER; drvNum: INTEGER; qEl : DrvQElPtr) ; 

006650 FUNCTION FSOpen (fileName: Str255; vRefNum: INTEGER;VAR refNum: INTEGER): OSErr; 

006651 FUNCTION OpenDF ( fileName : Str255; vRefNum: INTEGER; VAR refNum: INTEGER): OSErr; 

006652 FUNCTION FSClose (refNum : INTEGER): OSErr; 

006653 FUNCTION FSRead (refNum: INTEGER;VAR count: LONGINT;buf fPtr : Ptr) : OSErr; 

006654 FUNCTION FSWrite (refNum : INTEGER;VAR count: LONGINT;buf f Ptr : Ptr): OSErr; 

006655 FUNCTION GetVInf o (drvNum: INTEGER; volName : StringPtr;VAR vRefNum: INTEGER; 

006656 VAR f reeBytes : LONGINT) : OSErr; 

006657 FUNCTION GetFInfo ( fileName : Str255; vRefNum: INTEGER;VAR f ndrinf o : FInfo) : OSErr; 

006658 FUNCTION GetVol (volName: StringPtr;VAR vRefNum: INTEGER): OSErr; 

006659 FUNCTION SetVol (volName: StringPtr; vRefNum: INTEGER): OSErr; 

006660 FUNCTION Unmount Vol (volName: StringPtr; vRefNum: INTEGER): OSErr; 

006661 FUNCTION Eject (volName : StringPtr; vRefNum: INTEGER): OSErr; 

006662 FUNCTION FlushVol (volName : StringPtr; vRefNum: INTEGER): OSErr; 

006663 FUNCTION Create (fileName: Str255; vRefNum: INTEGER; creator : OSType; f ileType : OSType) : OSErr; 

006664 FUNCTION FSDelete (fileName: Str255; vRefNum: INTEGER): OSErr; 

006665 FUNCTION OpenRF (fileName: Str255; vRefNum: INTEGER;VAR refNum: INTEGER): OSErr; 

006666 FUNCTION Rename (oldName: Str255; vRef Num: INTEGER; newName : Str255): OSErr; 

006667 FUNCTION SetFInfo ( fileName : Str255; vRefNum: INTEGER; f ndrinf o : FInfo): OSErr; 
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006668 FUNCTION SetFLock { f ileName : Str255; vRefNum: INTEGER): OSErr; 

006669 FUNCTION RstFLock ( f ileName : Str255; vRefNum: INTEGER): OSErr; 

006670 FUNCTION Allocate ( refNum: INTEGER;VAR count: LONGINT) : OSErr; 

006671 FUNCTION GetEOF (refNum: INTEGER; VAR logEOF: LONGINT): OSErr; 

006672 FUNCTION SetEOF (refNum: INTEGER; logEOF : LONGINT): OSErr; 

006673 FUNCTION GetFPos (refNum : INTEGER;VAR f ilePos : LONGINT): OSErr; 

006674 FUNCTION SetFPos (refNum : INTEGER; posMode : INTEGER; posOff: LONGINT): OSErr; 

006675 FUNCTION GetVRef Num ( f lleRef Num: INTEGER;VAR vRefNum: INTEGER): OSErr; 
006676 

006677 FUNCTION PBOpenWD (paramBlock: WDPBPtr; async : BOOLEAN): OSErr; 

006678 FUNCTION PBOpenWDSync (paramBlock : WDPBPtr): OSErr; 

006679 INLINE $2a5F, $7001 , $A2 60, $3E80 ; 

006680 FUNCTION PBOpenWDAsync (paramBlock : WDPBPtr): OSErr; 

006681 INLINE $205F, $7001, $A660, $3E80; 

006682 FUNCTION PBCloseWD (paramBlock: WDPBPtr; async : BOOLEAN): OSErr; 

006683 FUNCTION PBCloseWDSync (paramBlock: WDPBPtr): OSErr; 

006684 INLINE $205F, $7002, $A260, $3E80; 

006685 FUNCTION PBCloseWDAsync (paramBlock: WDPBPtr): OSErr; 

006686 INLINE $205F, $7002, $A660, $3E80; 

006687 FUNCTION PBHSetVol (paramBlock: WDPBPtr; async : BOOLEAN): OSErr; 

006688 FUNCTION PBHSetVolSync (paramBlock: WDPBPtr): OSErr; 

006689 INLINE $2a5F, $A215, $3E80; 

006690 FUNCTION PBHSetVolAsync (paramBlock: WDPBPtr): OSErr; 

006691 INLINE $205F, $A615, $3E80; 

006692 FUNCTION PBHGetVol (paramBlock: WDPBPtr; async : BOOLEAN): OSErr; 

006693 FUNCTION PBHGetVolSync (paramBlock: WDPBPtr): OSErr; 

006694 INLINE $205F, $A214, $3E80; 

006695 FUNCTION PBHGetVolAsync (paramBlock : WDPBPtr): OSErr; 

006696 INLINE $205F, $A614 , $3E80 ; 

006697 FUNCTION PBCatMove (paramBlock : CMovePBPtr; async : BOOLEAN): OSErr; 

006698 FUNCTION PBCatMoveSync (paramBlock : CMovePBPtr): OSErr; 

006699 INLINE $205F, $7005, $A2 60, $3E80 ; 

006700 FUNCTION PBCatMoveAsync (paramBlock : CMovePBPtr): OSErr; 

006701 INLINE $205F, $7005, $A660, $3E80 ; 

006702 FUNCTION PBDirCreate (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006703 FUNCTION PBDlrCreateSync (paramBlock : HParmBlkPtr): OSErr; 

006704 INLINE $205F, $7006, $A2 60, $3E80 ; 

006705 FUNCTION PBDirCreateAsync (paramBlock : HParmBlkPtr): OSErr; 

006706 INLINE $205F, $7006, $A660, $3E80 ; 

006707 FUNCTION PBGetWDInfo (paramBlock : WDPBPtr; async : BOOLEAN): OSErr; 

006708 FUNCTION PBGetWDInfoSync (paramBlock: WDPBPtr): OSErr; 

006709 INLINE $205F, $7007 , $A2 60, $3E80 ; 

006710 FUNCTION PBGetWDInfoAsync (paramBlock : WDPBPtr): OSErr; 

006711 INLINE $205F,$7007, $A660, $3E80; 

006712 FUNCTION PBGetFCBInfo (paramBlock : FCBPBPtr; async : BOOLEAN): OSErr; 

006713 FUNCTION PBGetFCBInfoSync (paramBlock : FCBPBPtr): OSErr; 

006714 INLINE $205F, $7008 , $A2 60, $3E80 ; 

006715 FUNCTION PBGetFCBInfoAsync (paramBlock : FCBPBPtr): OSErr; 

006716 INLINE $205F, $7008 , $A660, $3E80; 

006717 FUNCTION PBGetCatlnfo (paramBlock: CInfoPBPtr; async : BOOLEAN): OSErr; 

006718 FUNCTION PBGetCatlnfoSync (paramBlock : CInfoPBPtr): OSErr; 

006719 INLINE $205F, $7009, $A2 60, $3E80 ; 

006720 FUNCTION PBGetCatlnfoAsync (paramBlock : CInfoPBPtr): OSErr; 

006721 INLINE $205F, $7009, 5A660, $3E80 ; 

006722 FUNCTION PBSetCat Info (paramBlock : CInfoPBPtr; async : BOOLEAN): OSErr; 
.006723 FUNCTION PBSetCat InfoSync (paramBlock : CInfoPBPtr): OSErr; 
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006724 INLINE $205F, $700A, 5A2 60, $3E80 ; 

006725 FUNCTION PBSetCat Inf oAsync (paramBlock : CInfoPBPtr): OSErr; 

006726 INLINE $205F, $700A, $A660 , $3E80 ; 
006727 

006728 FUNCTION PBAllocContig (paramBlock : ParmBlkPtr ; async : BOOLEAN): OSErr; 

006729 FUNCTION PBAllocContigSync (paramBlock : ParmBlkPtr): OSErr; 

006730 INLINE $205F, $A2 10, 53E80 ; 

006731 FUNCTION PBAllocContlgAsync (paramBlock : ParmBlkPtr): OSErr; 

006732 INLINE $205F, $A610, $3E80 ; 

006733 FUNCTION PBLockRange (paramBlock : ParmBlkPtr; async : BOOLEAN): OSErr; 

006734 FUNCTION PBLockRangeSync (paramBlock : ParmBlkPtr): OSErr; 

006735 INLINE $2a5F, $7010 , $A2 60, $3E80 ; 

006736 FUNCTION PBLockRangeAsync (paramBlock : ParmBlkPtr): OSErr; 

006737 INLINE $205F, $7010 , $A660 , $3E80 ; 

006738 FUNCTION PBUnlockRange (paramBlock : ParmBlkPtr; async : BOOLEAN): OSErr; 

006739 FUNCTION PBUnlockRangeSync (paramBlock : ParmBlkPtr): OSErr; 

006740 INLINE $205F, $701 1 , 5A2 60, $3E80 ; 

006741 FUNCTION PBUnlockRangeAsync (paramBlock : ParmBlkPtr): OSErr; 

006742 INLINE $205F, $701 1 , $A660, $3E80 ; 

006743 FUNCTION PBSetVInfo (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006744 FUNCTION PBSetVInfoSync (paramBlock : HParmBlkPtr): OSErr; 

006745 INLINE $205F, $700B, $A2 60, $3E80 ; 

006746 FUNCTION PBSetVInfoAsync (paramBlock : HParmBlkPtr): OSErr; 

006747 INLINE $205F, $700B, $A660, $3E80 ; 

006748 FUNCTION PBHGetVInfo (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006749 FUNCTION PBHGetVInfoSync (paramBlock : HParmBlkPtr): OSErr; 

006750 INLINE $205F, $A207 , $3E80 ; 

006751 FUNCTION PBHGetVInfoAsync (paramBlock : HParmBlkPtr): OSErr; 

006752 INLINE $205F, $A607 , $3E80 ; 

006753 FUNCTION PBHOpen (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 

006754 FUNCTION PBHOpenSync (paramBlock : HParmBlkPtr): OSErr; 

006755 INLINE $205F, $A20a , $3E80 ; 

006756 FUNCTION PBHOpenAsync (paramBlock : HParmBlkPtr): OSErr; 

006757 INLINE $205F, $A60a , $3E80 ; 

006758 FUNCTION PBHOpenRF (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006759 FUNCTION PBHOpenRFSync (paramBlock : HParmBlkPtr): OSErr; 

006760 INLINE $205F, $A20A, $3E80 ; 

006761 FUNCTION PBHOpenRFAsync (paramBlock : HParmBlkPtr): OSErr; 

006762 INLINE $205F, $A60A, $3E80 ; 

006763 FUNCTION PBHOpenDF (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006764 FUNCTION PBHOpenDFSync (paramBlock : HParmBlkPtr): OSErr; 

006765 INLINE $205F, $701A, $A2 60, $3E80 ; 

006766 FUNCTION PBHOpenDFAsync (paramBlock : HParmBlkPtr): OSErr; 

006767 INLINE $205F, $701A, $A660, $3E80 ; 
006768 

006769 FUNCTION PBHCreate (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006770 FUNCTION PBHCreateSync (paramBlock : HParmBlkPtr): OSErr; 

006771 INLINE $205F, $A208 , $3E80 ; 

006772 FUNCTION PBHCreateAsync (paramBlock : HParmBlkPtr): OSErr; 

006773 INLINE $205F, $A608 , $3E80 ; 

006774 FUNCTION PBHDelete (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006775 FUNCTION PBHDeleteSync (paramBlock : HParmBlkPtr): OSErr; 

006776 INLINE $205F, $A209, $3E80 ; 

006777 FUNCTION PBHDeleteAsync (paramBlock : HParmBlkPtr): OSErr; 

006778 INLINE $205F, $A609, $3E80 ; 

006779 FUNCTION PBHRename (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 
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006780 FUNCTION PBHRenameSync (paramBlock : HParmBlkPtr) : OSErr; 

006781 INLINE $205F, $A20B, $3E80 ; 

006782 FUNCTION PBHRenameAsync (paramBlock : HParmBlkPtr): OSErr; 

006783 INLINE $2a5F, $A60B, $3E80; 

006784 FUNCTION PBHRstFLock (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006785 FUNCTION PBHRstFLockSync (paramBlock : HParmBlkPtr): OSErr; 

006786 INLINE $205F, $A242 , $3E80 ; 

006787 FUNCTION PBHRstFLockAsync (paramBlock : HParmBlkPtr): OSErr; 

006788 INLINE $2a5F, $A642 , $3E80 ; 

006789 FUNCTION PBHSetFLock (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006790 FUNCTION PBHSetFLockSync (paramBlock : HParmBlkPtr): OSErr; 

006791 INLINE $2a5F, $A24 1 , $3E80 ; 

006792 FUNCTION PBHSetFLockAsync (paramBlock : HParmBlkPtr): OSErr; 

006793 INLINE $205F, $A64 1 , $3E80 ; 

006794 FUNCTION PBHGetFInfo (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006795 FUNCTION PBHGetFInfoSync (paramBlock : HParmBlkPtr): OSErr; 

006796 INLINE $205F, $A20C, $3E80 ; 

006797 FUNCTION PBHGetFInfoAsync (paramBlock : HParmBlkPtr): OSErr; 

006798 INLINE $205F, $A60C, $3E80 ; 

006799 FUNCTION PBHSetFInfo (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006800 FUNCTION PBHSetFInfoSync (paramBlock : HParmBlkPtr): OSErr; 

006801 INLINE $2a5F, $A20D, $3E80 ; 

006802 FUNCTION PBHSetFInfoAsync (paramBlock : HParmBlkPtr): OSErr; 

006803 INLINE $205F, $A60D, $3E80; 
006804 

006805 FUNCTION PBMakeFSSpec (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 

006806 FUNCTION PBMakeFSSpecSync (paramBlock: HParmBlkPtr): OSErr; 

006807 INLINE $205F, $701B, $A260, $3E8a; 

006808 FUNCTION PBMakeFSSpecAsync (paramBlock: HParmBlkPtr): OSErr; 

006809 INLINE $205F, $701B, $A660, $3E80; 
006810 

006811 PROCEDURE FInitQueue; 

006812 INLINE $A016; 

006813 FUNCTION GetFSQHdr: QHdrPtr; 

006814 INLINE $2EBC, $0000, $0360 ; 

006815 FUNCTION GetDrvQHdr: QHdrPtr; 

006816 INLINE $2EBC, $0000 , $0308 ; 

006817 FUNCTION GetVCBQHdr : QHdrPtr; 

006818 INLINE $2EBC, $0000, $0356; 

006819 FUNCTION HGetVol (volName: StringPtr; VAR vRefNum: INTEGER;VAR dirlD: LONGINT) : OSErr; 

006820 FUNCTION HSetVol (volName: StringPtr; vRefNum: INTEGER; dirlD : LONGINT): OSErr; 

006821 FUNCTION HOpen ( vRef Num: INTEGER; dirlD : LONGINT; flleName : Str255; permission : SignedByte; 

006822 VAR refNum: INTEGER) : OSErr; 

006823 FUNCTION HOpenDF (vRefNum: INTEGER; dirlD : LONGINT; fileName : Str255; permission : SignedByte; 

006824 VAR refNum: INTEGER) : OSErr; 

006825 FUNCTION HOpenRF (vRefNum: INTEGER; dirlD : LONGINT; fileName : Str255; permission : SignedByte; 

006826 VAR refNum: INTEGER) : OSErr; 

006827 FUNCTION AllocContig (refNum: INTEGER;VAR count: LONGINT): OSErr; 

006828 FUNCTION HCreate (vRefNum: INTEGER; dirlD : LONGINT; fileName : Str255; creator : OSType; 

006829 fileType: OSType) : OSErr; 

006830 FUNCTION DirCreate (vRefNum: INTEGER;parentDirID : LONGINT; directoryName : Str255; 

006831 VAR createdDirlD: LONGINT) : OSErr; 

006832 FUNCTION HDelete (vRef Num : INTEGER; dirlD : LONGINT; fileName : Str255): OSErr; 

006833 FUNCTION HGetFInf o ( vRef Num: INTEGER; dirlD : LONGINT; fileName : Str255;VAR f ndrinf o : FInfo) : OSErr; 

006834 FUNCTION HSetFInf o ( vRef Num: INTEGER; dirlD : LONGINT; fileName : Str255; f ndrinf o : FInfo) : OSErr; 
.006835 FUNCTION HSetFLock ( vRef Num: INTEGER; dirlD : LONGINT; fileName : Str255): OSErr; 
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006890 


006891 



FUNCTION HRstFLock (vRefNum: INTEGER; dirlD : LONGINT; f lleName : Str255) : OSErr; 

FUNCTION HRename (vRefNum: INTEGER; dirlD : LONGINT; oldName : Str255; newName : Str255): OSErr; 

FUNCTION CatMove (vRefNum: INTEGER; dirlD : LONGINT; oldName : Str255; newDirlD : LONGINT; 

newName: Str255): OSErr; 
FUNCTION OpenWD (vRefNum: INTEGER; dirlD : LONGINT;procID : LONGINT;VAR wdRefNum: INTEGER): OSErr; 
FUNCTION CloseWD ( WdRefNum: INTEGER): OSErr; 
FUNCTION GetWDInfo (wdRefNum: INTEGER;VAR vRefNum: INTEGER;VAR dirlD: LONGINT; 

VARprocID: LONGINT): OSErr; 

{ shared environment } 

FUNCTION PBHGetVolParms (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 

FUNCTION PBHGetVolParmsSync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $2a5F, $7030, $A260, $3E80; 
FUNCTION PBHGetVolParmsAsync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7030, $A660, $3E80; 
FUNCTION PBHGetLoglnlnfo (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 
FUNCTION PBHGetLoglnlnfoSync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7031, $A260, $3E80; 
FUNCTION PBHGetLoglnlnfoAsync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7031, $A660, $3E80; 
FUNCTION PBHGetDlrAccess (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 
FUNCTION PBHGetDlrAccessSync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7032, $A260, $3E80; 
FUNCTION PBHGetDlrAccessAsync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7032, $A660, $3E80; 
FUNCTION PBHSetDlrAccess (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 
FUNCTION PBHSetDlrAccessSync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7033, $A260, $3E80; 
FUNCTION PBHSetDlrAccessAsync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7033, $A660, $3E80; 
FUNCTION PBHMapID (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 
FUNCTION PBHMapIDSync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7034, $A260, $3E80; 
FUNCTION PBHMapIDAsync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7034, $A660, $3E80; 
FUNCTION PBHMapName (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 
FUNCTION PBHMapNameSync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7035, $A260, $3E80; 
FUNCTION PBHMapNameAsync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7035, $A660, $3E80; 
FUNCTION PBHCopyFile (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 
FUNCTION PBHCopyFileSync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7036, $A260, $3E80; 
FUNCTION PBHCopyFileAsync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7036, $A660, $3E80; 
FUNCTION PBHMoveRename (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 
FUNCTION PBHMoveRenameSync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7037, $A260, $3E80; 
FUNCTION PBHMoveRenameAsync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7037, $A660, $3E80; 
FUNCTION PBHOpenDeny (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 
FUNCTION PBHOpenDenySync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7038, $A260, $3E80; 
FUNCTION PBHOpenDenyAsync (paramBlock: HParmBlkPtr): OSErr; 

INLINE $205F, $7038, $A660, $3E80; 
FUNCTION PBHOpenRFDeny (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 



' N 

9/2/99 10:00 AM David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL Page 137 ' 



006892 FUNCTION PBHOpenRFDenySync (paramBlock : HParmBlkPtr) : OSErr; 

006893 INLINE $2a5F,$7039, $A260, $3E80; 

006894 FUNCTION PBHOpenRFDenyAsync (paramBlock: HParmBlkPtr): OSErr; 

006895 INLINE $205F, $7039, $A660, $3E80; 
006896 

006897 FUNCTION PBExchangeFlles (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 

006898 FUNCTION PBExchangeFllesSync (paramBlock: HParmBlkPtr): OSErr; 

006899 INLINE $205F,$7017, $A260, $3E80; 

006900 FUNCTION PBExchangeFllesAsync (paramBlock: HParmBlkPtr): OSErr; 

006901 INLINE $205F,$7017, $A660,$3E80; 

006902 FUNCTION PBCreateFilelDRef (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006903 FUNCTION PBCreateFilelDRef Sync (paramBlock: HParmBlkPtr): OSErr; 

006904 INLINE $205F, $7014, $A260, $3E80; 

006905 FUNCTION PBCreateFilelDRef Async (paramBlock: HParmBlkPtr): OSErr; 

006906 INLINE $205F,$7014, $A660, $3E80; 

006907 FUNCTION PBResolveFilelDRef (paramBlock: HParmBlkPtr; async : BOOLEAN): OSErr; 

006908 FUNCTION PBResolveFilelDRef Sync (paramBlock: HParmBlkPtr): OSErr; 

006909 INLINE $2a5F,$7016, $A260,$3E80; 

006910 FUNCTION PBResolveFilelDRef Async (paramBlock: HParmBlkPtr): OSErr; 

006911 INLINE $205F,$7016, $A660, $3E80; 

006912 FUNCTION PBDeleteFilelDRef (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006913 FUNCTION PBDeleteFilelDRef Sync (paramBlock : HParmBlkPtr): OSErr; 

006914 INLINE $205F, $7015, $A2 60, $3E80 ; 

006915 FUNCTION PBDeleteFilelDRef Async (paramBlock : HParmBlkPtr): OSErr; 

006916 INLINE $2a5F, $7015, $A660, $3E80 ; 
006917 

006918 FUNCTION PBGetForeignPrivs (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006919 FUNCTION PBGetForeignPrivsSync (paramBlock : HParmBlkPtr): OSErr; 

006920 INLINE $205F, $7060 , $A2 60 , $3E80 ; 

006921 FUNCTION PBGetForeignPrivsAsync (paramBlock : HParmBlkPtr): OSErr; 

006922 INLINE $205F, $7060, $A660, $3E8 ; 

006923 FUNCTION PBSetForeignPrivs (paramBlock : HParmBlkPtr; async : BOOLEAN): OSErr; 

006924 FUNCTION PBSetForeignPrivsSync (paramBlock : HParmBlkPtr): OSErr; 

006925 INLINE $205F, $7061 , $A2 60 , $3E80 ; 

006926 FUNCTION PBSetForeignPrivsAsync (paramBlock : HParmBlkPtr): OSErr; 

006927 INLINE $205F, $7061, $A660, $3E80; 
006928 

006929 { Desktop Manager } 

006930 FUNCTION PBDTGetPath (paramBlock: DTPBPtr) : OSErr; 

006931 INLINE $205F,$7020, $A260, $3E80; 

006932 FUNCTION PBDTCloseDown (paramBlock : DTPBPtr): OSErr; 

006933 INLINE $205F, $702 1 , $A2 60, $3E80 ; 

006934 FUNCTION PBDTAddlcon (paramBlock : DTPBPtr; async : BOOLEAN): OSErr; 

006935 FUNCTION PBDTAddlconSync (paramBlock : DTPBPtr): OSErr; 

006936 INLINE $205F, $7022 , $A2 60, $3E80 ; 

006937 FUNCTION PBDTAddlconAsync (paramBlock : DTPBPtr): OSErr; 

006938 INLINE $205F,$7022, $A660,$3E80; 

006939 FUNCTION PBDTGetlcon (paramBlock: DTPBPtr; async : BOOLEAN): OSErr; 

006940 FUNCTION PBDTGetlconSync (paramBlock: DTPBPtr): OSErr; 

006941 INLINE $205F, $7023, $A2 60, $3E80 ; 

006942 FUNCTION PBDTGetlconAsync (paramBlock : DTPBPtr): OSErr; 

006943 INLINE $205F,$7023, $A660, $3E80; 

006944 FUNCTION PBDTGetlconlnfo (paramBlock : DTPBPtr; async : BOOLEAN): OSErr; 

006945 FUNCTION PBDTGetlconlnfoSync (paramBlock: DTPBPtr): OSErr; 

006946 INLINE $205F, $7024, $A260, $3E80; 

.006947 FUNCTION PBDTGetlconlnfoAsync (paramBlock : DTPBPtr): OSErr; 
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006948 INLINE $205F, $7024, 5A660, $3E80; 

006949 FUNCTION PBDTAddAPPL (paramBlock: DTPBPtr; async : BOOLEAN): OSErr; 

006950 FUNCTION PBDTAddAPPLSync (paramBlock: DTPBPtr): OSErr; 

006951 INLINE $205F, $7025, $A2 60, $3E8a; 

006952 FUNCTION PBDTAddAPPLAsync (paramBlock : DTPBPtr): OSErr; 

006953 INLINE $205F, $7025, $A660, $3E80 ; 

006954 FUNCTION PBDTRemoveAPPL (paramBlock: DTPBPtr; async : BOOLEAN): OSErr; 

006955 FUNCTION PBDTRemoveAPPLSync (paramBlock: DTPBPtr): OSErr; 

006956 INLINE $205F,$7026, $A260, $3E80; 

006957 FUNCTION PBDTRemoveAPPLAsync (paramBlock : DTPBPtr): OSErr; 

006958 INLINE $205F,$7026, $A660,$3E80; 

006959 FUNCTION PBDTGetAPPL (paramBlock: DTPBPtr; async : BOOLEAN): OSErr; 

006960 FUNCTION PBDTGetAPPLSync (paramBlock: DTPBPtr): OSErr; 

006961 INLINE $205F, $7027 , $A2 60, $3E8a ; 

006962 FUNCTION PBDTGetAPPLAsync (paramBlock: DTPBPtr): OSErr; 

006963 INLINE $205F,$7027, $A660, $3E80; 

006964 FUNCTION PBDTSetComment (paramBlock: DTPBPtr; async : BOOLEAN): OSErr; 

006965 FUNCTION PBDTSetCommentSync (paramBlock: DTPBPtr): OSErr; 

006966 INLINE $205F,$7028, $A260, $3E80; 

006967 FUNCTION PBDTSetCommentAsync (paramBlock : DTPBPtr): OSErr; 

006968 INLINE $205F, $7028 , $A660, $3E80 ; 

006969 FUNCTION PBDTRemoveComment (paramBlock: DTPBPtr; async : BOOLEAN): OSErr; 

006970 FUNCTION PBDTRemoveCommentSync (paramBlock : DTPBPtr): OSErr; 

006971 INLINE $205F, $702 9, $A2 60, $3E80 ; 

006972 FUNCTION PBDTRemoveComimentAsync (paramBlock : DTPBPtr): OSErr; 

006973 INLINE $205F, $702 9, $A660, $3E80 ; 

006974 FUNCTION PBDTGetCorranent (paramBlock : DTPBPtr; async : BOOLEAN): OSErr; 

006975 FUNCTION PBDTGetCommentSync (paramBlock : DTPBPtr): OSErr; 

006976 INLINE $205F, $702A, $A2 60, $3E80 ; 

006977 FUNCTION PBDTGetCommentAsync (paramBlock : DTPBPtr): OSErr; 

006978 INLINE $205F, $702A, $A660, $3E80 ; 

006979 FUNCTION PBDTFlush (paramBlock : DTPBPtr; async : BOOLEAN): OSErr; 

006980 FUNCTION PBDTFlushSync (paramBlock: DTPBPtr): OSErr; 

006981 INLINE $205F, $702B, $A2 60, $3E80 ; 

006982 FUNCTION PBDTFlushAsync (paramBlock : DTPBPtr): OSErr; 

006983 INLINE $205F, $702B, $A660, $3E80; 

006984 FUNCTION PBDTReset (paramBlock: DTPBPtr; async : BOOLEAN): OSErr; 

006985 FUNCTION PBDTResetSync (paramBlock: DTPBPtr): OSErr; 

006986 INLINE $205F, $7020, $A260, $3E80; 

006987 FUNCTION PBDTResetAsync (paramBlock: DTPBPtr): OSErr; 

006988 INLINE $205F, $7020, $A660, $3E80; 

006989 FUNCTION PBDTGetlnfo (paramBlock: DTPBPtr; async : BOOLEAN): OSErr; 

006990 FUNCTION PBDTGetlnfoSync (paramBlock: DTPBPtr): OSErr; 

006991 INLINE $205F, $702D, $A2 60, $3E80 ; 

006992 FUNCTION PBDTGetlnfoAsync (paramBlock: DTPBPtr): OSErr; 

006993 INLINE $205F, $702D, $A660, $3E80; 

006994 FUNCTION PBDTOpenlnform (paramBlock: DTPBPtr): OSErr; 

006995 INLINE $205F, $702E, $A060, $3E80; 

006996 FUNCTION PBDTDelete (paramBlock: DTPBPtr; async : BOOLEAN): OSErr; 

006997 FUNCTION PBDTDeleteSync (paramBlock: DTPBPtr): OSErr; 

006998 INLINE $205F, $702F, $A060, $3E80; 

006999 FUNCTION PBDTDeleteAsync (paramBlock: DTPBPtr): OSErr; 

007000 INLINE $205F, $702F, $A460, $3E80; 
007001 

007002 { VolumeMount traps ) 

007003 FUNCTION PBGetVolMountlnfoSize (paramBlock : ParmBlkPtr) : OSErr; 
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007004 INLINE $205F, $703F, 5A2 60 , $3E80 ; 

007005 FUNCTION PBGetVolMount Inf o (paramBlock : ParmBlkPtr) : OSErr; 

007006 INLINE $205F, $7040 , $A2 60, $3E80 ; 

007007 FUNCTION PBVolumeMount (paramBlock : ParmBlkPtr): OSErr; 

007008 INLINE $205F, $704 1 , $A2 60, $3E80 ; 
007009 

007010 { FSp traps ) 

007011 FUNCTION FSMakeFSSpec (vRef Num: INTEGER; dlrlD : LONGINT; f lleName : Str255; 

007012 VAR spec: FSSpec) : OSErr; 

007013 INLINE $303C, $0001, $AA52; 

007014 FUNCTION FSpOpenDF ( spec : FSSpec; permission : SignedByte; VAR refNum: INTEGER): OSErr; 

007015 INLINE $303C, $0002, $AA52; 

007016 FUNCTION FSpOpenRF ( spec : FSSpec ;permission: SignedByte; VAR refNum: INTEGER): OSErr; 

007017 INLINE $303C, $0003, $AA52; 

007018 FUNCTION FSpCreate ( spec : FSSpec ;creator: OSType; f ileType : OSType; scriptTag : ScriptCode) : OSErr; 

007019 INLINE $303C, $0004, $AA52; 

007020 FUNCTION FSpDirCreate { spec : FSSpec; scriptTag: ScriptCode; VAR createdDirlD : LONGINT): OSErr; 

007021 INLINE $303C, $0005, $AA52; 

007022 FUNCTION FSpDelete ( spec : FSSpec): OSErr; 

007023 INLINE $303C, $0006, $AA52; 

007024 FUNCTION FSpGetFInf o (spec : FSSpec; VAR fndrlnfo: FInfo) : OSErr; 

007025 INLINE $303C, $0007, $AA52; 

007026 FUNCTION FSpSetFInf o (spec : FSSpec; fndrlnfo : FInfo): OSErr; 

007027 INLINE $303C, $0008, $AA52; 

007028 FUNCTION FSpSetFLock (spec : FSSpec): OSErr; 

007029 INLINE $303C, $0009, $AA52; 

007030 FUNCTION FSpRstFLock (spec : FSSpec): OSErr; 

007031 INLINE $303C, $000A, $AA52; 

007032 FUNCTION FSpRename ( spec : FSSpec; newName : Str255): OSErr; 

007033 INLINE $303C, $000B, $AA52; 

007034 FUNCTION FSpCatMove ( source : FSSpec;dest: FSSpec): OSErr; 

007035 INLINE $303C, $0000, $AA52; 

007036 FUNCTION FSpExchangeFiles { source : FSSpec;dest: FSSpec): OSErr; 

007037 INLINE $303C, $000F, $AA52; 
007038 

007039 

007040 {$ENDC) { UsingFiles } 

007041 

007042 {$IFC NOT Usinglncludes ) 

007043 END. 

007044 {$ENDC} 
007045 

007046 

007047 ### END OF FILE Files. p 

007048 
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007049 






007050 


##################################################################### 




007051 


### FILE: FileTransfers.p 




007052 


##################################################################### 




007053 






007054 






007055 


{ 




007056 


Created: Wednesday, September 11, 1991 at 6:08 PM 




007057 


FileTransfers.p 




007058 


Pascal Interface to the Macintosh Libraries 




007059 






007060 


Copyright Apple Computer, Inc. 1988-1991 




007061 


All rights reserved 




007062 


) 




007063 






007064 






007065 


{$IFC UNDEFINED Usinglncludes } 




007066 


{$SETC Usinglncludes := 0} 




007067 


{$ENDC) 




007068 






007069 


{$IFC NOT Usinglncludes) 




007070 


UNIT FileTransfers; 




007071 


INTERFACE 




007072 


{$ENDC} 




007073 






007074 


{$IFC UNDEFINED UsingFileTransf ers } 




007075 


{$SETC UsingFileTransfers := 1) 




007076 






007077 


{$!+) 




007078 


{$SETC FileTransfersIncludes := Usinglncludes} 




007079 


{$SETC Usinglncludes := 1} 




007080 


{$IFC UNDEFINED UsingPackages } 




007081 


{$1 $$ Shell (P Interfaces) Packages .p) 




007082 


{$ENDC) 




007083 


{$IFC UNDEFINED UsingCTBUtilities } 




007084 


{$1 $$ Shell (P Interfaces) CTBUtilities .p) 




007085 


{$ENDC) 




007086 


{$IFC UNDEFINED UsingConnections ) 




007087 


{$1 $$ Shell (P Interfaces) Connect ions. p} 




007088 


{$ENDC} 




007089 


{$IFC UNDEFINED UsingFiles} 




007090 


{$1 $$Shell(PInterfaces)Files.p) 




007091 


{$ENDC} 




007092 


{$SETC Usinglncludes := FileTransfersIncludes} 




007093 






007094 


CONST 




007095 






007096 


{ current file transfer manager version } 




007097 


curFTVersion = 2; 




007098 






007099 


{ FTErr ) 




007100 


f tGenericError = -1; 




007101 


ftNoErr = 0; 




007102 


ftRejected = 1; 




007103 


ftFailed = 2; 




007104 


ftTimeOut = 3; 


J 
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007105 ftTooManyRetry = 4; 

007106 ftNotEnoughDSpace = 5 ; 

007107 ftRemoteCancel = 6; 

007108 ftWrongFormat = 7 ; 

007109 ftNoTools = 8; 

007110 ftUserCancel = 9; 

007111 ftNotSupported = 10; 
007112 

007113 TYPE 

007114 FTErr = OSErr; 
007115 

007116 CONST 
007117 

007118 { FTFlags ) 

007119 ftlsFTMode = $00000001; 

007120 ftNoMenus = $00000002; 

007121 ftQuiet = $00000004; 

007122 ftConfigChanged = $00000010; 

007123 ftSucc = $00000080; 
007124 

007125 TYPE 

007126 FTFlags = LONGINT; 
007127 

007128 

007129 CONST 

007130 

007131 { FTAttributes ) 

007132 ftSameCircuit = $0001; 

007133 ftSendDisable = $0002; 

007134 ftReceiveDisable = $0004; 

007135 ftTextOnly = $0008; 

007136 ftNoStdFlle = $0010; 

007137 ftMultipleFileSend = $0020; 
007138 

007139 TYPE 

007140 FTAttributes = INTEGER; 
007141 

007142 

007143 CONST 

007144 

007145 { FTDlrection ) 

007146 ftReceivlng = 0; 

007147 ftTransmltting = 1; 
007148 

007149 TYPE 

007150 FTDlrection = INTEGER; 
007151 

007152 

007153 FTPtr = ^FTRecord; 

007154 FTHandle = ^FTPtr; 

007155 FTRecord = PACKED RECORD 

007156 procID: INTEGER; 

007157 flags: FTFlags; 

007158 errCode: FTErr; 

007159 refCon: LONGINT; 

007160 userData: LONGINT; 
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007161 


defProc: ProcPtr; 




007162 


config: Ptr; 




007163 


oldConfig: Ptr; 




007164 


environsProc ; ProcPtr; 




007165 


reservedl: LONGINT; 




007166 


reserved2: LONGINT; 




007167 


ftPrivate: Ptr; 




007168 


sendProc; ProcPtr; 




007169 


recvProc; ProcPtr; 




007170 


writeProc: ProcPtr; 




007171 


readProc; ProcPtr; 




007172 


owner: WindowPtr; 




007173 


direction: FTDirection; 




007174 


theReply: SFReply; 




007175 


writePtr: LONGINT; 




007176 


readPtr: LONGINT; 




007177 


theBuf: "^char; 




007178 


bufSize: LONGINT; 




007179 


autoRec: Str255; 




007180 


attributes: FTAttributes ; 




007181 


END; 




007182 






007183 






007184 


CONST 




007185 






007186 


{ FTReadProc messages ) 




007187 


ftReadOpenFile = 0; { count = forkFlags, buffer = pblock from PBGetFInfo } 




007188 


ftReadDataFork = 1; 




007189 


ftReadRsrcFork = 2; 




007190 


ftReadAbort = 3; 




007191 


ftReadComplete = 4; 




007192 


ftReadSetFPos = 6; { count = forkFlags, buffer = pBlock same as PBSetFPos ) 




007193 


ftReadGetFPos =7; { count = forkFlags, buffer = pBlock same as PBGetFPos ) 




007194 






007195 


{ FTWriteProc messages } 




007196 


ftWriteOpenFile = 0; { count = forkFlags, buffer = pblock from PBGetFInfo } 




007197 


ftWriteDataFork = 1; 




007198 


ftWriteRsrcFork = 2; 




007199 


ftWriteAbort = 3; 




007200 


ftWriteComplete = 4; 




007201 


ftWriteFilelnfo = 5; 




007202 


ftWriteSetFPos = 6; { count = forkFlags, buffer = pBlock same as PBSetFPos ) 




007203 


ftWriteGetFPos = 7; { count = forkFlags, buffer = pBlock same as PBGetFPos ) 




007204 






007205 


{ fork flags } 




007206 


ftOpenDataFork = 1; 




007207 


ftOpenRsrcFork = 2; 




007208 






007209 






007210 


TYPE 




007211 


{ application routines type definitions } 




007212 


FileTransferReadProcPtr = ProcPtr; 




007213 


FileTransferWriteProcPtr = ProcPtr; 




007214 






007215 


FileTransferSendProcPtr = ProcPtr; 




007216 


FileTransferReceiveProcPtr = ProcPtr; 
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007217 

007218 FileTransferEnvironsProcPtr = ProcPtr; 

007219 

007220 FlleTransferNotif icationProcPtr = ProcPtr; 

007221 FlleTransferChooseldleProcPtr = ProcPtr; 
007222 

007223 FUNCTION InitFT: FTErr; 

007224 FUNCTION FTGetVersion (hPT : FTHandle) : Handle; 

007225 FUNCTION FTGetFTVersion : INTEGER; 
007226 

007227 FUNCTION FTNew (procID : INTEGER; flags : FTFlags ; sendProc : FileTransf erSendProcPtr; 

007228 recvProc; FileTransf erReceiveProcPtr ; readProc : FileTransf erReadProcPtr; 

007229 writeProc: FileTransf erWriteProcPtr; environsProc ; FileTransferEnvironsProcPtr; 

007230 owner: WindowPtr ; ref Con : LONGINT; userData : LONGINT): FTHandle; 
007231 

007232 PROCEDURE FTDlspose (hFT : FTHandle); 
007233 

007234 FUNCTION FTStart(hFT: FTHandle; direction : FTDirection; f ilelnf o : SFReply) : FTErr; 

007235 FUNCTION FTAbort(hFT: FTHandle): FTErr; 
007236 

007237 FUNCTION FTSend(hFT: FTHandle; numFiles : INTEGER;pFSSpec : FSSpecArrayPtr; 

007238 notifyProc: FileTransf erNotif IcationProcPtr ) : FTErr; 

007239 FUNCTION FTReceive (hFT : FTHandle; pFSSpec : FSSpecPtr; notifyProc : FileTransf erNotif IcationProcPtr) : FTErr; 
007240 

007241 PROCEDURE FTExec(hFT: FTHandle); 
007242 

007243 PROCEDURE FTActivate (hFT : FTHandle; activate : BOOLEAN); 

007244 PROCEDURE FTResume (hFT : FTHandle; resume : BOOLEAN); 

007245 FUNCTION FTMenu(hFT: FTHandle;menuID : INTEGER; item: INTEGER): BOOLEAN; 
007246 

007247 FUNCTION FTChoose (VAR hFT: FTHandle; where : Point ; idleProc : FlleTransferChooseldleProcPtr): INTEGER; 

007248 PROCEDURE FTEvent(hFT: FTHandle; theEvent : EventRecord) ; 
007249 

007250 FUNCTION FTValidate (hFT : FTHandle): BOOLEAN; 

007251 PROCEDURE FTDefault (VAR theConfig: Ptr;procID: INTEGER; allocate : BOOLEAN); 
007252 

007253 FUNCTION FTSetupPref light (procID : INTEGER; VAR magicCookie: LONGINT): Handle; 

007254 PROCEDURE FTSetupSetup (procID : INTEGER; theConfig : Ptr;count: INTEGER; theDlalog: DialogPtr; 

007255 VAR magicCookie: LONGINT); 

007256 FUNCTION FTSetupFllter (procID : INTEGER; theConfig : Ptr; count: INTEGER; theDlalog : DialogPtr; 

007257 VAR theEvent: EventRecord;VAR theltem: INTEGER; VAR magicCookie: LONGINT): BOOLEAN; 

007258 PROCEDURE FTSetupItem (procID : INTEGER; theConfig : Ptr;count: INTEGER; theDlalog: DialogPtr; 

007259 VAR theltem: INTEGER; VAR magicCookie: LONGINT); 

007260 PROCEDURE FTSetupXCleanup (procID : INTEGER; theConfig : Ptr;count: INTEGER; 

007261 theDlalog: DialogPtr; OKed: BOOLEAN; VAR magicCookie: LONGINT); 
007262 

007263 PROCEDURE FTSetupPost flight (procID : INTEGER); 
007264 

007265 FUNCTION FTGetConf ig (hFT : FTHandle): Ptr; 

007266 FUNCTION FTSetConf ig (hFT : FTHandle; thePtr : Ptr): INTEGER; 
007267 

007268 FUNCTION FTIntlToEnglish (hFT : FTHandle; inputPtr : Ptr;VAR outputPtr: Ptr; 

007269 language: INTEGER) : OSErr; 

007270 FUNCTION FTEnglishToIntl (hFT : FTHandle; inputPtr : Ptr;VAR outputPtr: Ptr; 

007271 language: INTEGER) : OSErr; 
^07272 
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007273 PROCEDURE FTGetToolName (procID : INTEGER; VAR name: Str255); 

007274 FUNCTION FTGetProcID (name : Str255): INTEGER; 
007275 

00727 6 PROCEDURE FTSetRef Con (hFT : FTHandle; ref Con : LONGINT) ; 

007277 FUNCTION FTGetRef Con (hFT : FTHandle): LONGINT; 

007278 

00727 9 PROCEDURE FTSetUserData (hFT : FTHandle; userData : LONGINT); 

007280 FUNCTION FTGetUserData (hFT : FTHandle): LONGINT; 

007281 

007282 PROCEDURE FTGetErrorStrlng (hFT : FTHandle;id: INTEGER;VAR errMsg: Str255); 

007283 

007284 

007285 {$ENDC) { UslngFileTransf ers } 

007286 

007287 {$IFC NOT Uslnglncludes ) 

007288 END. 

007289 {$ENDC} 
007290 

007291 

007292 ### END OF FILE FileTransf ers . p 

007293 
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007294 

0072 95 ##################################################################### 

007296 ### FILE: FileTransf erTools . p 

0072 97 ##################################################################### 

007298 

007299 

007300 { 

007301 Created: Thursday, September 12, 1991 at 9:51 AM 

007302 FileTransf erTools. p 

007303 Pascal Interface to the Macintosh Libraries 
007304 

007305 Copyright Apple Computer, Inc. 1988-1991 

007306 All rights reserved 

007307 ) 
007308 
007309 

007310 {$IFC UNDEFINED Usinglncludes } 

007311 {$SETC Usinglncludes := 0} 

007312 {$ENDC) 
007313 

007314 {$IFC NOT Usinglncludes) 

007315 UNIT FileTransferTools; 

007316 INTERFACE 

007317 {$ENDC} 
007318 

007319 {$IFC UNDEFINED UsingFileTransf erTools ) 

007320 {$SETC UsingFileTransf erTools := 1} 
007321 

007322 {$!+) 

007323 {$SETC FileTransf erloolslncludes := Usinglncludes) 

007324 {$SETC Usinglncludes := 1) 

007325 {$IFC UNDEFINED UsingDialogs ) 

007326 {$1 5$Shell (Plnterfaces)Dialogs.p) 

007327 {$ENDC) 

007328 {$IFC UNDEFINED UsingFileTransf ers ) 

007329 {$1 $$Shell (Plnterfaces)FileTransfers.p) 

007330 {$ENDC) 

007331 {$SETC Usinglncludes := FileTransf erloolslncludes ) 
007332 

007333 CONST 
007334 

007335 { Control } 

007336 ftlnitMsg = 0; 

007337 ftDisposeMsg = 1; 

007338 ftSuspendMsg = 2; 

007339 ftResumeMsg = 3; 

007340 ftMenuMsg = 4; 

007341 ftEventMsg = 5; 

007342 ftActivateMsg = 6; 

007343 ftDeactivateMsg = 7; 

007344 ftGetErrorStringMsg = 8 ; 
007345 

007346 ftAbortMsg = 52; 
007347 

007348 ftStartMsg = 100; 

.007349 ftExecMsg = 102; 
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007350 ftSendMsg = 103; 

007351 ftReceiveMsg = 104; 
007352 

007353 {Setup ) 

007354 ftSpreflightMsg = 0; 

007355 ftSsetupMsg = 1; 

007356 ftSitemMsg = 2; 

007357 ftSfllterMsg = 3; 

007358 ftScleanupMsg = 4; 
007359 

007360 { validate ) 

007361 ftValidateMsg = 0; 

007362 ftDefaultMsg = 1; 
007363 

007364 { scripting ) 

007365 ftMgetMsg = 0; 

007366 ftMsetMsg = 1; 
007367 

007368 { localization ) 

007369 ftL2English = 0; 

007370 ftL2Intl = 1; 
007371 

007372 { DEFs ) 

007373 fdeflype = 'fdef 

007374 fsetlype = ' f set ' 

007375 fvalType = ' f val ' 

007376 flocType = 'floe' 

007377 fscrType = 'fscr' 
007378 

007379 fbndType = 'fbnd'; 

007380 fverType = 'vers'; 
007381 

007382 TYPE 

007383 FTSetupPtr = ^FTSetupStruct ; 

007384 FTSetupStruct = PACKED RECORD 

007385 theDialog: DialogPtr; { the dialog form the application } 

007386 count: INTEGER; { first appended item ) 

007387 theConfig: Ptr; { the config record to setup } 

007388 procID: INTEGER; { procID of the tool } 

007389 END; 
007390 
007391 
007392 

007393 {$ENDC) { UsingFileTransf erlools } 

007394 

007395 {$IFC NOT Usinglncludes ) 

0073 9 6 END. 

007397 {$ENDC} 

007398 

007399 

007400 ### END OF FILE FlleTransf erlools . p 

007401 



9/2/99 10:00 AM David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL 


Page 147 


007402 






007403 


##################################################################### 




007404 


### FILE: Finder. p 




007405 


##################################################################### 




007406 






007407 






007408 


{ 




007409 


Created: Tuesday, November 26, 1991 at 11:43 AM 




007410 


Finder .p 




007411 


Pascal Interface to the Macintosh Libraries 




007412 






007413 


Copyright Apple Computer, Inc. 1990-1991 




007414 


All rights reserved 




007415 


) 




007416 






007417 






007418 


{$IFC UNDEFINED Usinglncludes } 




007419 


{$SETC Usinglncludes := 0} 




007420 


{$ENDC) 




007421 






007422 


{$IFC NOT Usinglncludes) 




007423 


UNIT Finder; 




007424 


INTERFACE 




007425 


{$ENDC} 




007426 






007427 


{$IFC UNDEFINED UsingFinder) 




007428 


{$SETC UsingFinder := 1) 




007429 






007430 






007431 


CONST 




007432 






007433 


{ make only the following consts avaiable to resource files that include this file } 




007434 


kCustoralconResource ^ -16455; { Custom icon family resource ID } 




007435 






007436 


kContainerFolderAliasType ^ ' f drp ' ; { type for folder aliases } 




007437 


kContainerTrashAliasType ^ 'trsh'; { type for trash folder aliases } 




007438 


kContainerHardDiskAliasType ^ 'hdsk'; { type for hard disk aliases } 




007439 


kContainerFloppyAliasType ^ 'flpy'; { type for floppy aliases } 




007440 


kContainerServerAliasType ^ 'srvr'; { type for server aliases } 




007441 


kApplicationAliasType ^ ' adrp ' ; { type for application aliases ) 




007442 


kContainerAliasType ^ 'drop'; { type for all other containers } 




007443 






007444 


{ type for Special folder aliases } 




007445 


kSystemFolderAliasType = 'fasy'; 




007446 


kAppleMenuFolderAliasType = 'faam'; 




007447 


kStartupFolderAliasType = 'fast'; 




007448 


kPrintMonitorDocsFolderAliasType ^ ' f apn ' ; 




007449 


kPref erencesFolderAliasType ^ 'fapf; 




007450 


kControlPanelFolderAliasType = 'fact'; 




007451 


kExtensionFolderAliasType = ' f aex ' ; 




007452 






007453 


{ type for AppleShare folder aliases } 




007454 


kExportedFolderAliasType = ' f aet ' ; 




007455 


kDropFolderAliasType = ' f adr ' ; 




007456 


kSharedFolderAliasType = 'fash'; 




007457 


kMountedFolderAliasType ^ 'famn'; 
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007458 
007459 

007460 {Finder Flags} 

007461 kIsOnDesk = 51; 

007462 kColor = $E; 
007463 

007464 {kColorReserved = $10 

007465 kRequlresSwitchLaunch = $20) 
007466 

007467 kIsShared = $40; 

007468 

007469 {kHasNoINITs = $80) 

007470 

007471 kHasBeenlnited = $100; 

007472 

007473 {kReserved = $200) 

007474 

007475 kHasCustomlcon = $400; 

007476 kIsStationary = $800; 

007477 kNameLocked = $1000; 

007478 kHasBundle = $2000; 

007479 kislnvislble = $4000; 

007480 kIsAllas = $8000; 
007481 

007482 

007483 

007484 {$ENDC) { UsingFinder ) 

007485 

007486 {$IFC NOT Uslnglncludes ) 

007487 END. 

007488 {$ENDC) 
007489 

007490 

007491 ### END OF FILE Finder. p 

007492 
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007493 

0074 94 ##################################################################### 

007495 ### FILE: FixMath.p 

0074 96 ##################################################################### 

007497 

007498 { 

007499 Created: Thursday, March 15, 1990 at 8:43 AM 

007500 FixMath.p 

007501 Pascal Interface to Fixed Point Math 
007502 

007503 Copyright Apple Computer, Inc. 1985-1990 

007504 All rights reserved 
007505 

007506 CHANGE LOG: 

007507 23 Oct 90 JPG Changed functions Frac2X, Fix2X, X2Fix, and X2Frac 

007508 to in-line trap calls for non-mc68881 mode 

007509 ) 
007510 
007511 

007512 {$IFC UNDEFINED Usinglncludes } 

007513 {$SETC Usinglncludes := 0} 

007514 {$ENDC} 
007515 

007516 {$IFC NOT Usinglncludes) 

007517 UNIT FixMath; 

007518 INTERFACE 

007519 {$ENDC) 
007520 

007521 {$IFC UNDEFINED UsingFixMath ) 

007522 {$SETC UsingFixMath := 1) 
007523 

007524 {$1+) 

007525 {$SETC FixMathlncludes := Usinglncludes) 

007526 {$SETC Usinglncludes := 1} 

007527 {$IFC UNDEFINED UsingTypes) 

007528 {$1 5$Shell (PInterfaces) Types. p) 

007529 {$ENDC) 

007530 {$SETC Usinglncludes := FixMathlncludes) 
007531 

007532 

007533 FUNCTION Fix2Frac(x: Fixed): Fract; 

007534 INLINE $A841; 

007535 FUNCTION Fix2Long{x: Fixed): LONGINT; 

007536 INLINE $A840; 

007537 FUNCTION FixATan2{x: LONGINT;y: LONGINT): Fixed; 

007538 INLINE $A818; 

007539 FUNCTION Long2Fix{x: LONGINT): Fixed; 

007540 INLINE $A83F; 

007541 FUNCTION Frac2Fix{x: Fract): Fixed; 

007542 INLINE $A842; 
007543 

007544 {$IFC OPTION (MC68881) } 
007545 

007546 FUNCTION Frac2X(x: Fract): Extended; 

007547 FUNCTION Fix2X(x: Fixed): Extended; 
.007548 FUNCTION X2Fix(x: Extended): Fixed; 
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007549 FUNCTION X2Frac(x: Extended): Fract; 

007550 

007551 {$ELSEC) 

007552 

007553 FUNCTION Frac2X(x: Fract): Extended; 

007554 INLINE $A845; 

007555 FUNCTION Fix2X(x: Fixed): Extended; 

007556 INLINE $A843; 

007557 FUNCTION X2Flx(x: Extended): Fixed; 

007558 INLINE $A844; 

007559 FUNCTION X2Frac(x: Extended): Fract; 

007560 INLINE $A846; 
007561 

007562 {$ENDC} 
007563 

007564 FUNCTION FracMul(x: Fract;y: Fract): Fract; 

007565 INLINE $A84A; 

007566 FUNCTION FixDiv(x: Fixed;y: Fixed): Fixed; 

007567 INLINE $A84D; 

007568 FUNCTION FracDiv(x: Fract;y: Fract): Fract; 

007569 INLINE $A84B; 

007570 FUNCTION FracSqrt{x: Fract): Fract; 

007571 INLINE $A849; 

007572 FUNCTION FracSin(x: Fixed): Fract; 

007573 INLINE $A848; 

007574 FUNCTION FracCos(x: Fixed): Fract; 

007575 INLINE $A847; 
007576 

007577 {$ENDC) { UsingFixMath } 
007578 

007579 {$IFC NOT Usinglncludes ) 

007580 END. 

007581 {$ENDC} 
007582 

007583 

007584 ### END OF FILE FixMath.p 

007585 
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007586 






007587 


##################################################################### 




007588 


### FILE: Folders. p 




007589 


##################################################################### 




007590 






007591 


{ 




007592 


Created: Sunday, January 6, 1991 at 10:43 PM 




007593 


Folders .p 




007594 


Pascal Interface to the Macintosh Libraries 




007595 






007596 


Copyright Apple Computer, Inc. 1989-90 




007597 


All rights reserved 




007598 


) 




007599 






007600 






007601 


{$IFC UNDEFINED Usinglncludes } 




007602 


{$SETC Usinglncludes := 0} 




007603 


{$ENDC} 




007604 






007605 


{$IFC NOT Usinglncludes) 




007606 


UNIT Folders; 




007607 


INTERFACE 




007608 


{$ENDC) 




007609 






007610 


{$IFC UNDEFINED UsingFolders ) 




007611 


{$SETC UsingFolders := 1) 




007612 






007613 


{$1+) 




007614 


{$SETC Folderslncludes := Usinglncludes) 




007615 


{$SETC Usinglncludes := 1} 




007616 


{$IFC UNDEFINED UsingTypes) 




007617 


{$1 $$Shell (PInterfaces) Types. p) 




007618 


{$ENDC) 




007619 


{$IFC UNDEFINED UsingFiles) 




007620 


{$1 $$Shell(PInterfaces)Files.p) 




007621 


{$ENDC) 




007622 


{$SETC Usinglncludes := Folderslncludes) 




007623 






007624 


CONST 




007625 


kOnSystemDisk = $8000; 




007626 






007627 


kCreateFolder = TRUE; 




007628 


kDontCreateFolder = FALSE; 




007629 






007630 


kSysteraFolderType ^ 'macs'; {the system folder) 




007631 


kDesktopFolderType = 'desk'; {the desktop folder; objects in this folder show on the desk top.) 




007632 


kTrashFolderType ^ 'trsh'; {the trash folder; objects in this folder show up in the trash) 




007633 


kWhereToEmptyTrashFolderlype ^ ' empt ' ; {the "empty trash" folder; Finder starts empty from here down) 




007634 






007635 


kPrintMonitorDocsFolderlype ^ ' prnt ' ; { Print Monitor documents ) 




007636 






007637 


kStartupFolderType = 'strt'; {Finder objects (applications, documents, DAs, aliases, to...) to open at startup 


go here) 


007638 


kAppleMenuFolderlype = ' amnu ' ; {Finder objects to put into the Apple menu go here) 




007639 


kControlPanelFolderlype = 'Ctrl'; {Control Panels go here (may contain INITs)) 




007640 


kExtensionFolderlype ^ 'extn'; {Finder extensions go here) 




007641 
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007542 kPref erencesFolderType — 'pref'; {preferences for applications go here} 

007543 kTemporaryFolderType - 'temp'; {temporary files go here (deleted periodically/ but don't rely on it . ) } 
007544 

007545 FUNCTION FindFolder (vRefNum: INTEGER; folderType : OSType; createFolder : BOOLEAN; 

007546 VAR f oundVRef Num: INTEGER;VAR foundDirlD: LONGINT) : OSErr; 

007547 {$IFC SystemSevenOrLater } 

007548 INLINE $7000,$A823; 

007549 {$ENDC} 
007550 

007551 

007552 {$ENDC) { UsingFolders } 

007553 

007554 {$IFC NOT Usinglncludes ) 

007555 END. 

007556 {$ENDC} 
007557 

007558 

007559 ### END OF FILE Folders. p 

007560 
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007661 






007662 


##################################################################### 




007663 


### FILE: Fonts. p 




007664 


##################################################################### 




007665 






007666 


{ 




007667 


Created: Monday, January 28, 1991 at 4:48 PM 




007668 


Fonts .p 




007669 


Pascal Interface to the Macintosh Libraries 




007670 






007671 


Copyright Apple Computer, Inc. 1985-1990 




007672 


All rights reserved 




007673 


) 




007674 






007675 






007676 


{$IFC UNDEFINED Usinglncludes } 




007677 


{$SETC Usinglncludes := 0} 




007678 


{$ENDC} 




007679 






007680 


{$IFC NOT Usinglncludes} 




007681 


UNIT Fonts; 




007682 


INTERFACE 




007683 


{$ENDC) 




007684 






007685 


{$IFC UNDEFINED UsingFonts} 




007686 


{$SETC UsingFonts := 1) 




007687 






007688 


{$1+) 




007689 


{$SETC Fontslncludes := Usinglncludes} 




007690 


{$SETC Usinglncludes := 1} 




007691 


{$IFC UNDEFINED UsingTypes} 




007692 


{$1 $$Shell (PInterfaces) Types. p} 




007693 


{$ENDC} 




007694 


{$IFC UNDEFINED UsingQuickdraw} 




007695 


{ $1 $$ Shell (PInterfaces) Quickdraw.p} 




007696 


{$ENDC} 




007697 


{$SETC Usinglncludes := Fontslncludes} 




007698 






007699 


CONST 




007700 


systemFont ^ 0; 




007701 


applFont ^ 1; 




007702 


newYork ^ 2; 




007703 


geneva = 3 






007704 


monaco = 4 






007705 


Venice = 5 






007706 


london = 6 






007707 


athens = 7 






007708 


sanFran ^ 8 ; 




007709 


toronto ^ 9; 




007710 


Cairo = 11; 




007711 


losAngeles = 12; 




007712 


times = 2 0; 




007713 


helvetica = 21; 




007714 


courier ^ 22; 




007715 


symbol = 23; 




007716 


mobile = 2 


4; 
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007717 


coramandMark ^ 17; 






007718 


checkMark =18; 






007719 


diamondMark = 19; 






007720 


appleMark = 20; 






007721 


propFont = 36864; 






007722 


prpFntH = 36865; 






007723 


prpFntW = 36866; 






007724 


prpFntHW = 36867; 






007725 


fixedFont = 45056; 






007726 


fxdFntH = 45057; 






007727 


fxdFntW = 45058; 






007728 


fxdFntHW = 45059; 






007729 


fontWid = 44208; 






007730 








007731 


TYPE 






007732 


FMInput = PACKED RECORD 






007733 


family: INTEGER; 






007734 


size: INTEGER; 






007735 


face: Style; 






007736 


needBits: BOOLEAN; 






007737 


device: INTEGER; 






007738 


nuraer: Point; 






007739 


denom: Point; 






007740 


END; 






007741 








007742 


FMOutPtr = ^FMOutput; 






007743 


FMOutput = PACKED RECORD 






007744 


errNum: INTEGER; 






007745 


fontHandle: Handle; 






007746 


bold: Byte; 






007747 


italic: Byte; 






007748 


ulOffset: Byte; 






007749 


ulShadow: Byte; 






007750 


ulThick: Byte; 






007751 


shadow: Byte; 






007752 


extra: SignedByte; 






007753 


ascent: Byte; 






007754 


descent : Byte; 






007755 


widMax: Byte; 






007756 


leading: SignedByte; 






007757 


unused: Byte; 






007758 


nuraer: Point; 






007759 


denom: Point; 






007760 


END; 






007761 








007762 


FontRec = RECORD 






007763 


fontlype: INTEGER; 


{font type) 




007764 


firstChar: INTEGER; 


{ASCII code of first character} 




007765 


lastChar: INTEGER; 


{ASCII code of last character} 




007766 


widMax: INTEGER; 


{maximum character width} 




007767 


kernMax: INTEGER; 


{negative of maximum character kern} 




007768 


nDescent: INTEGER; 


{negative of descent) 




007769 


fRectWidth: INTEGER; 


{width of font rectangle) 




007770 


fRectHeight: INTEGER; 


{height of font rectangle) 




007771 


owTLoc: INTEGER; 


{offset to offset/width table) 




007772 


ascent: INTEGER; 


{ascent ) 
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007773 




descent: INTEGER; 


{descent } 




007774 




leading: INTEGER; 


{ leading} 




007775 




rowWords: INTEGER; 


{row width of bit image / 2 } 




007776 




END; 






007777 










007778 


FMetricRec = RECORD 






007779 




ascent: Fixed; 


{base line to top} 




007780 




descent : Fixed; 


{base line to bottom} 




007781 




leading: Fixed; 


{leading between lines} 




007782 




widMax: Fixed; 


{maximum cliaracter width} 




007783 




wTabHandle: Handle; 


{handle to font width table} 




007784 




END; 






007785 










007786 


Wl 


dEntry = RECORD 






007787 




widStyle: INTEGER; 


{style entry applies to} 




007788 




END; 






007789 










007790 


Wi 


dTable = RECORD 






007791 




numWidths: INTEGER; 


{number of entries - 1} 




007792 




END; 






007793 










007794 


As 


scEntry = RECORD 






007795 




fontSize: INTEGER; 






007796 




fontStyle: INTEGER; 






007797 




font ID: INTEGER; 


{font resource ID} 




007798 




END; 






007799 










007800 


Fo 


ntAssoc = RECORD 






007801 




numAssoc: INTEGER; 


{number of entries - 1} 




007802 




END; 






007803 










007804 


St 


yleTable = RECORD 






007805 




fontClass: INTEGER; 






007806 




offset: LONGINT; 






007807 




reserved: LONGINT; 






007808 




indexes: ARRAY [0..47] OF Sign 


edByte; 




007809 




END; 






007810 










007811 


NameTable = RECORD 






007812 




stringCount: INTEGER; 






007813 




baseFontName: Str255; 






007814 




END; 






007815 










007816 


KernPair = RECORD 






007817 




kernFirst: CHAR; 


{1st character of kerned pair} 




007818 




kernSecond: CHAR; 


{2nd character of kerned pair} 




007819 




kernWidth: INTEGER; 


{kerning in Ipt fixed format} 




007820 




END; 






007821 










007822 


Ke 


rnEntry = RECORD 






007823 




kernLength: INTEGER; 


{length of this entry} 




007824 




kernStyle: INTEGER; 


{style the entry applies to} 




007825 




END; 






007826 










007827 


Ke 


rnTable = RECORD 






007828 




numKerns : INTEGER; 


{number of kerning entries} 
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007829 


END; 












007830 














007831 


WidthTable = PACKED RECORD 












007832 


tabData: ARRAY [1..256] OF 


Fixed 




{character widths} 




007833 


tabFont: Handle; 








{font record used to build table} 




007834 


sExtra: LONGINT; 








{space extra used for table} 




007835 


style: LONGINT; 








{extra due to style} 




007836 


fID: INTEGER; 








{font family ID} 




007837 


fSize: INTEGER; 








{font size request} 




007838 


face: INTEGER; 








{style (face) request} 




007839 


device: INTEGER; 








{device requested} 




007840 


inNumer: Point; 








{scale factors requested} 




007841 


inDenom: Point; 








{scale factors requested} 




007842 


aFID: INTEGER; 








{actual font family ID for table} 




007843 


fHand: Handle; 








{family record used to build up table} 




007844 


usedFam: BOOLEAN; 








{used fixed point family widths} 




007845 


aFace: Byte; 








{actual face produced} 




007846 


vOutput : INTEGER; 








{vertical scale output value} 




007847 


hOutput : INTEGER; 








{horizontal scale output value} 




007848 


vFactor: INTEGER; 








{vertical scale output value} 




007849 


hFactor: INTEGER; 








{horizontal scale output value} 




007850 


aSize: INTEGER; 








{actual size of actual font used} 




007851 


tabSize: INTEGER; 








{total size of table} 




007852 


END; 












007853 














007854 


FamRec = RECORD 












007855 


ffFlags: INTEGER; 








{flags for family} 




007856 


ffFamID: INTEGER; 








{family ID number} 




007857 


ffFirstChar: INTEGER; 








{ASCII code of 1st character} 




007858 


ffLastChar: INTEGER; 








{ASCII code of last character} 




007859 


ffAscent: INTEGER; 








{maximum ascent for Ipt font} 




007860 


ffDescent: INTEGER; 








{maximum descent for Ipt font} 




007861 


ff Leading: INTEGER; 








{maximum leading for Ipt font} 




007862 


ffWidMax: INTEGER; 








{maximum widMax for Ipt font} 




007863 


ffWTabOff: LONGINT; 








{offset to width table) 




007864 


ffKernOff: LONGINT; 








{offset to kerning table) 




007865 


ffStylOff: LONGINT; 








{offset to style mapping table) 




007866 


ffProperty: ARRAY [1.. 


9] OF INTEGER; 


{style property info) 




007867 


fflntl: ARRAY [1..2] OF INTEGER; 




{for international use) 




007868 


ff Version: INTEGER; 








{version number) 




007869 


END; 












007870 














007871 














007872 


PROCEDURE InitFonts; 












007873 


INLINE $A8FE; 












007874 


PROCEDURE GetFontName (fami 


lylD 


INTEGER; VAR name: Str255); 




007875 


INLINE $A8FF; 












007876 


PROCEDURE GetFNum{name: St 


r255. 


VAR f 


amily 


ID: INTEGER); 




007877 


INLINE $A900; 












007878 


FUNCTION RealFont (fontNum: 


INTEGER; size: 


INTEGER) : BOOLEAN; 




007879 


INLINE $A902; 












007880 


PROCEDURE SetFontLock (lockFlag 


BOOLEAN) ; 






007881 


INLINE $A903; 












007882 


FUNCTION FMSwapFont (inRec: 


FMInput) : 


FMOutPtr; 




007883 


INLINE $A901; 












007884 


PROCEDURE SetFScaleDisable 


(f scaleDis 


able: 


BOOLEAN) ; 
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007885 INLINE $A834; 

007886 PROCEDURE FontMetrics (theMetrlcs : FMetricRec) ; 

007887 INLINE $A835; 

007888 PROCEDURE SetFractEnable ( f ractEnable : BOOLEAN); 

007889 FUNCTION IsOutline (numer : Point; denom: Point): BOOLEAN; 

007890 INLINE $7000,$A854; 

007891 PROCEDURE SetOutlinePref erred (outiinePref erred : BOOLEAN); 

007892 INLINE $7001,$A854; 

007893 FUNCTION GetOutlinePref erred : BOOLEAN; 

007894 INLINE $7009,$A854; 

007895 FUNCTION OutlineMetrics (byteCount : INTEGER; textPtr : UNIV Ptr;numer: Point; 

007896 denom: Point; VAR yMax : INTEGER; VAR yMin: INTEGER; awArray : FixedPtr; IsbArray : FixedPtr; 

007897 boundsArray: RectPtr) : OSErr; 

007898 INLINE $7008,$A854; 

007899 PROCEDURE SetPreserveGlyph (preserveGlyph : BOOLEAN); 

007900 INLINE $700A, $A854; 

007901 FUNCTION GetPreserveGiyph : BOOLEAN; 

007902 INLINE $700B,$A854; 

007903 FUNCTION FlushFonts: OSErr; 

007904 INLINE $700C,$A854; 
007905 

007906 

007907 {$ENDC) { UsingFonts ) 

007908 

007909 {$IFC NOT Usinglncludes ) 

007910 END. 

007911 {$ENDC} 
007912 

007913 

007914 ### END OF FILE Fonts. p 

007915 
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007916 






007917 


##################################################################### 




007918 


### FILE: GestaltEqu.p 




007919 


##################################################################### 




007920 






007921 






007922 


{ 




007923 


Created: Wednesday, December 4, 1991 at 12:31 PM 




007924 


GestaltEqu.p 




007925 


Pascal Interface to the Macintosh Libraries 




007926 






007927 


Copyright Apple Computer, Inc. 1988-1991 




007928 


All rights reserved 




007929 


) 




007930 






007931 






007932 


{$IFC UNDEFINED Usinglncludes } 




007933 


{$SETC Usinglncludes := 0} 




007934 


{$ENDC) 




007935 






007936 


{$IFC NOT Usinglncludes) 




007937 


UNIT GestaltEqu; 




007938 


INTERFACE 




007939 


{$ENDC} 




007940 






007941 


{$IFC UNDEFINED UsingGestaltEqu ) 




007942 


{$SETC UsingGestaltEqu := 1) 




007943 






007944 


{$!+) 




007945 


{$SETC GestaltEquIncludes := Usinglncludes} 




007946 


{$SETC Usinglncludes := 1} 




007947 


{$IFC UNDEFINED UsingTypes) 




007948 


{$1 5$Shell (PInterfaces) Types. p) 




007949 


{$ENDC) 




007950 


{$SETC Usinglncludes := GestaltEquIncludes) 




007951 






007952 


CONST 




007953 






007954 


j*********************** 




007955 


* Gestalt error codes 




007956 


*********************** } 




007957 


gestaltUnknownErr = -5550; { value returned if Gestalt doesn't know the answer ) 




007958 


gestaltUndef SelectorErr ^ -5551; { undefined selector was passed to Gestalt ) 




007959 


gestaltDupSelectorErr ^ -5552; { tried to add an entry that already existed ) 




007960 


gestaltLocationErr = -5553; { gestalt function ptr wasn't in sysheap ) 




007961 






007962 


j************************* 




007963 


* Environment Selectors 




007964 


************************* 1 




007965 


gestaltVersion = 'vers'; { gestalt version ) 




007966 


gestaltAddressingModeAttr ^ ' addr ' ; { addressing mode attributes ) 




007967 


gestalt32BitAddressing = 0; { using 32-bit addressing mode ) 




007968 


gestalt32BitSysZone ^ 1; { 32-bit compatible system zone ) 




007969 


gestalt32BitCapable = 2; { Machine is 32-bit capable ) 




007970 


gestaltAliasMgrAttr ^ 'alls'; { Alias Mgr Attributes ) 




007971 


qestaltAliasMqrPresent = 0; { True if the Alias Mqr is present ) 
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007972 


gestaltAliasMgrSupportsRemoteAppletalk = 1; 


True if the Alias Mgr knows about Remote Appletalk } 




007973 


gestaltAppleTalkVersion = 'atlk'; 


appletalk version ) 




007974 


gestaltAUXVersion ^ 'a/ux'; 


a/ux version, if present } 




007975 


gestaltConnMgrAttr = ' conn ' ; 


connection mgr attributes } 




007976 


gestaltConnMgrPresent = 0; 






007977 


gestaltConnMgrCMSearchFix = 1; 


Fix to CMAddSearch? ) 




007978 


gestaltConnMgrErrorString ^ 2; 


has CMGetErrorString } 




007979 


gestaltConnMgrMultiAsyncIO = 3; 


CMNewIOPB, CMDisposelOPB, CMPBRead, CMPBWrite, CMPBIOKill ) 




007980 


gestaltCRMAttr = ' crm ' ; 


comm resource mgr attributes } 




007981 


gestaltCRMPresent = 0; 






007982 


gestaltCRMPersistentFix = 1; 


fix for persistent tools } 




007983 


gestaltCRMToolRsrcCalls = 2; 


has CRMGetToolResource/ReleaseToolResource } 




007984 


gestaltCTBVersion = 'ctbv'; 


CommToolbox version } 




007985 


gestaltDBAccessMgrAttr = 'dbac'; 


Database Access Mgr attributes } 




007986 


gestaltDBAccessMgrPresent ^ 0; 


True if Database Access Mgr present } 




007987 


gestaltDITLExtAttr = 'ditl'; 


AppenDITL, etc. calls from CTB } 




007988 


gestaltDITLExtPresent = 0; 


True if calls are present } 




007989 


gestaltEasyAccessAttr ^ 'easy'; 


Easy Access attributes } 




007990 


gestaltEasyAccessOf f ^ 0; 


if Easy Access present, but off (no icon) } 




007991 


gestaltEasyAccessOn ^ 1; 


if Easy Access "On" } 




007992 


gestaltEasyAccessSticky = 2; 


if Easy Access "Sticky" } 




007993 


gestaltEasyAccessLocked = 3; 


if Easy Access "Locked" } 




007994 


gestaltEditionMgrAttr ^ 'edtn'; 


Edition Mgr attributes } 




007995 


gestaltEditionMgrPresent ^ 0; 


True if Edition Mgr present } 




007996 


gestaltAppleEventsAttr = ' evnt ' ; 


Apple Events attributes } 




007997 


gestaltAppleEventsPresent = 0; 


True if Apple Events present ) 




007998 


gestaltFindFolderAttr = 'fold'; 


Folder Mgr attributes ) 




007999 


gestaltFlndFolderPresent = 0; 


True if Folder Mgr present } 




008000 


gestaltFontMgrAttr = 'font'; 


Font Mgr attributes ) 




008001 


gestaltOutlineFonts ^ 0; 


True if Outline Fonts supported } 




008002 


gestaltFPUType = ' f pu '; 


fpu type ) 




008003 


gestaltNoFPU = 0; 


no FPU } 




008004 


gestalt68881 = 1; 


68881 FPU ) 




008005 


gestalt68882 = 2; 


68882 FPU ) 




008006 


gestalt68040FPU = 3; 


68040 built-in FPU } 




008007 


gestaltFSAttr = ' f s 


file system attributes } 




008008 


gestaltFullExtFSDlspatching = 0; 


has really cool new HFSDispatch dispatcher } 




008009 


gestaltHasFSSpecCalls = 1; 


has FSSpec calls ) 




008010 


gestaltHasFileSystemManager ^ 2; 


has a file system manager ) 




008011 


gestaltFXfrMgrAttr = 'fxfr'; 


file transfer manager attributes } 




008012 


gestaltFXfrMgrPresent = 0; 






008013 


gestaltFXfrMgrMultiFile = 1; 


supports FTSend and FTReceive ) 




008014 


gestaltFXf rMgrErrorString = 2; 


supports FTGetErrorString ) 




008015 


gestaltHardwareAttr ^ ' hdwr ' ; 


hardware attributes } 




008016 


gestaltHasVIAl = 0; 


VIAl exists ) 




008017 


gestaltHasVIA2 = 1; 


VIA2 exists ) 




008018 


gestaltHasASC = 3; 


Apple Sound Chip exists } 




008019 


gestaltHasSCC = 4; 


sec exists } 




008020 


gestaltHasSCSI = 7; 


SCSI exists ) 




008021 


gestaltHasSoftPowerOf f = 19; 


Capable of software power off } 




008022 


gestaltHasSCSI961 = 21; 


53C96 SCSI controller on internal bus ) 




008023 


gestaltHasSCSI962 = 22; 


53C96 SCSI controller on external bus ) 




008024 


gestaltHasUnlversalROM = 24; 


Do we have a Universal ROM? } 




008025 


gestaltHelpMgrAttr = 'help'; 


Help Mgr Attributes ) 




008026 


gestaltHelpMgrPresent ^ 0; 


true if help mgr is present } 




008027 


gestaltKeyboardType ^ ' kbd '; 


keyboard type ) 
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008028 
008029 
008030 
008031 
008032 
008033 
008034 
008035 
008036 
008037 
008038 
008039 
008040 
008041 
008042 
008043 
008044 
008045 
008046 
008047 
008048 
008049 
008050 
008051 
008052 
008053 
008054 
008055 
008056 
008057 
008058 
008059 
008060 
008061 
008062 
008063 
008064 
008065 
008066 
008067 
008068 
008069 
008070 
008071 
008072 
008073 
008074 
008075 
008076 
008077 
008078 
008079 
008080 
008081 
008082 
008083 



gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 



ItMacKbd = 1; 
ItMacAndPad = 2; 
ItMacPlusKbd = 3; 
ItExtADBKbd = 4; 
ItStdADBKbd = 5; 
ItPrtblADBKbd = 6; 
ItPrtbllSOKbd = 7; 
ItStdlSOADBKbd = 8; 
ItExtlSOADBKbd = 9; 
ItADBKbdll = 10; 
ItADBISOKbdll = 11; 
ItPwrBookADBKbd = 12; 
ItPwrBooklSOADBKbd = 13; 
ItLowMemorySize ^ 'Imem'; 
ItLogicalRAMSize = 'Iram'; 
ItMiscAttr ^ 'misc'; 
ItScrollingThrottle = 0; 
ItSquareMenuBar ^ 2; 
ItMMUType = 'mmu '; 
ItNoMMU = 0; 
ItAMU = 1; 
lt68851 = 2; 
lt68030MMU = 3; 
lt68040MMU = 4; 
ItStdNBPAttr = 'nlup'; 
ItStdNBPPresent = 0; 
ItNotif icationMgrAttr = ' nmgr ' 
ItNotif icationPresent = 0; 
ItNuBusConnectors = 'site'; 
ItOSAttr = 'OS 
ItSysZoneGrowable = 0; 
ItLaunchCanReturn = 1; 
ItLaunchFullFileSpec = 2; 
ItLaunchControl ^ 3; 
ItTempMemSupport = 4; 
ItRealTempMemory = 5; 
ItTempMemTracked = 6; 
ItlPCSupport = 7; 
ItSysDebuggerSupport = 8; 
ItOSTable = 'ostt ' ; 
ItToolboxTable = ' tbtt ' ; 
ItExtToolboxTable = 'xttt'; 
ItLogicalPageSize — 'pgsz'; 
ItPowerMgrAttr ^ 'powr'; 
ItPMgrExists = 0; 
ItPMgrCPUIdle = 1; 
ItPMgrSCC = 2; 
ItPMgrSound = 3; 
ItPPCToolboxAttr = 'ppc '; 



size of low memory area } 

logical ram size } 

miscellaneous attributes } 

true if scrolling throttle on } 

true if menu bar is square } 

mmu type ) 

no MMU } 

address management unit } 

68851 PMMU } 

68030 built-in MMU } 

68040 built-in MMU } 

standard nbp attributes } 

notification manager attributes } 

notification manager exists } 

bitmap of NuBus connectors } 

o/s attributes } 

system heap is growable } 

can return from launch } 

can launch from full file spec } 

launch control support available } 

temp memory support } 

temp memory handles are real } 

temporary memory handles are tracked 

IPC support is present } 

system debugger support is present } 

OS trap table base ) 

OS trap table base ) 
Extended Toolbox trap table base } 
logical page size ) 
power manager attributes } 



{ PPC toolbox attributes } 



PPC will return the combination of following bit fields. 

e.g. gestaltPPCSupportsRealTime +gestaltPPCSupportsIncoming + gestaltPPCSupportsOutGoing 

indicates PPC is cuurently is only supports real time delivery 

and both incoming and outgoing network sessions are allowed. 

By default local real time delivery is supported as long as PPCInit has been called.) 
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008084 
008085 
008086 
008087 
008088 
008089 
008090 
008091 
008092 
008093 
008094 
008095 
008096 
008097 
008098 
008099 
008100 
008101 
008102 
008103 
008104 
008105 
008106 
008107 
008108 
008109 
008110 
008111 
008112 
008113 
008114 
008115 
008116 
008117 
008118 
008119 
008120 
008121 
008122 
008123 
008124 
008125 
008126 
008127 
008128 
008129 
008130 
008131 
008132 
008133 
008134 
008135 
008136 
008137 
008138 
008139 



gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 
gesta 



ItPPCToolboxPresent = $0000; 
ItPPCSupportsRealTime = $1000 
ItPPCSupportsIncoming = $0001 
ItPPCSupportsOutGoing = $0002 
ItProcessorType ^ 'proc'; 



lt68000 
lt68010 
lt68020 
lt68030 
lt68040 



ItParityAttr = 'prty'; 
ItHasParityCapability = 0; 
ItParityEnabled = 1; 
ItQuickdrawVersion — ' qd '; 
ItOrlginalQD = $000; 
ItSBltQD = $100; 
lt32BitQD = $200; 
lt32BitQDll = $210; 
lt32BitQD12 = $220; 
lt32BitQD13 = $230; 
ItQuickdrawFeatures - 'qdrw' 
ItHasColor = 0; 
ItHasDeepGWorlds = 1; 
ItHasDirectPlxMaps = 2; 
ItHasGrayishTextOr = 3; 
ItPhysicalRAMSize = 'ram '; 
ItPopupAttr = 'pop!'; 
ItPopupPresent ^ 0; 
ItResourceMgrAttr = 'rsrc'; 
ItPartialRsrcs = 0; 
It ScriptMgrVersion — 'scri'; 
ItScriptCount = ' scr# ' ; 
ItSerialAttr = ' ser '; 
ItHasGPIaToDCDa = 0; 
ItHasGPIaToRTxCa = 1; 
ItHasGPIbToDCDb = 2; 
ItSoundAttr = ' snd '; 
It StereoCapability — 0; 
ItStereoMixing ^ 1; 
ItSoundlOMgrPresent = 3; 
ItBuiltlnSoundlnput ^ 
1 t Ha sSoundlnput Device 
ItStandardFlleAttr = 
ltStandardFile58 = 0; 
ItTextEdltVersion = 'te 



4; 

= 5; 
stdf ' 



ItTEl 
ltTE2 
ltTE3 
ltTE4 
ltTE5 



= 1 

= 2 

= 3 

= 4 

= 5 



ItTermMgrAttr = 'term'; 
ItTermMgrPresent = 0; 
ItTermMgrErrorString = 2; 
ItTimeMgrVersion ^ ' tragr ' ; 
ItStandardTimeMgr = 1; 



{ PPG Toolbox is present Requires PPCInit to be called } 

{ PPC Supports real-time delivery } 

{ PPC will deny incoming network requests } 

{ PPC will deny outgoing network requests } 

{ processor type } 



parity attributes } 

has ability to check parity } 

parity checking enabled } 

quickdraw version } 

original 1-bit QD ) 

8-bit color QD } 

32-bit color QD ) 

32-bit color QDvl . 1 } 

32-bit color QDvl . 2 } 

32-bit color QDvl . 3 } 

quickdraw features } 

color quickdraw present } 

GWorlds can be deeper than 1-bit ) 

PixMaps can be direct (16 or 32 bit) } 

supports text mode grayishTextOr } 

physical RAM size ) 

popup cdef attributes } 

Resource Mgr attributes } 

True if partial resources exist } 

Script Manager version number <08/05/89 pke> } 

number of active script systems <08/05/89 pke> } 

Serial attributes ) 

GPIa connected to DCDa} 

GPIa connected to RTxCa clock input} 

GPIb connected to DCDb } 

sound attributes } 

sound hardware has stereo capability ) 

stereo mixing on external speaker ) 

The Sound I/O Manager is present } 

built-in Sound Input hardware is present } 

Sound Input device available } 

Standard File attributes } 

True if selectors 5-8 (StandardPutFile-CustomGetFile) are supported } 

TextEdit version number <08/05/89 pke> ) 

TextEdit in MacIIci ROM <8Aug8 9smb> ) 

TextEdit with 6.0.4 Script Systems on MacIIci (Script bug fixes for MacIIci) <8Aug89smb> 

TextEdit with 6.0.4 Script Systems all but MacIIci <8Aug89smb> } 

TextEdit in System 7.0 } 

TextWidthHook available in TextEdit ) 

terminal mgr attributes } 



time mgr version } 

standard time mqr is present ) 
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008140 
008141 
008142 
008143 
008144 
008145 
008146 
008147 
008148 
008149 
008150 
008151 
008152 
008153 
008154 
008155 
008156 
008157 
008158 
008159 
008160 
008161 
008162 
008163 
008164 
008165 
008166 
008167 
008168 
008169 
008170 
008171 
008172 
008173 
008174 
008175 
008176 
008177 
008178 
008179 
008180 
008181 
008182 
008183 
008184 
008185 
008186 
008187 
008188 
008189 



gestaltReviseclTimeMgr ^ 2; 
gestaltExtendedTimeMgr = 3; 
gestaltVMAttr = 'vm '; 
gestaltVMPresent = 0; 



* Info-only selectors 

gestaltMachineType — 'raach'; 
kMachineNameStrlD = -16395; 
gestaltClassic — 1; 
gestaltMacXL = 2; 
gestaltMac512KE = 3; 
gestaltMacPlus = 4; 
gestaltMacSE = 5; 
gestaltMacII = 6; 
gestaltMacIIx = 7; 
gestaltMacIIcx = 8; 
gestaltMacSE030 = 9; 
gestaltPortable = 10; 
gestaltMacIIci = 11; 
gestaltMacIIfx = 13; 
gestaltMacClassic ^ 17; 
gestaltMacIIsi = 18; 
gestaltMacLC = 19; 
gestaltQuadra900 = 20; 
gestaltPowerBookl70 = 21; 
gestaltQuadra700 = 22; 
gestaltClasslcII = 23; 
gestaltPowerBooklOO = 24; 
gestaltPowerBookl40 = 25; 
gestaltMachinelcon = 'mien'; 
gestaltROMSize = ' rom '; 
gestaltROMVersion ^ ' romv ' ; 
gestaltSystemVersion - 'sysv' 



{ revised time mgr is present } 
{ extended time mgr is present } 
{ virtual memory attributes ) 
{ true if virtual memory is present 



{ machine type } 



machine icon ) 
rom size } 
rom version } 
system version} 



FUNCTION Gestalt (selector: OSType;VAR response: LONGINT) : OSErr; 

FUNCTION NewGestalt (selector : OSType; gestaltFunction : ProcPtr) : OSErr; 

FUNCTION ReplaceGestalt (selector : OSType; gestaltFunction: ProcPtr; VAR oldGestaltFunction: ProcPtr): OSErr; 



{$ENDC) { UsingGestaltEqu } 



{$IFC NOT Usinglncludes) 
END. 
{$ENDC} 



### END OF FILE GestaltEqu.p 
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008190 






008191 


##################################################################### 




008192 


### FILE: GrafSD.p 




008193 


##################################################################### 




008194 






008195 


{ 




008196 


Created: Monday, January 7, 1991 at 6:00 AM 




008197 


Graf 3D. p 




008198 


Pascal Interface to the Macintosh Libraries 




008199 






008200 


Copyright Apple Computer, Inc. 1985-1990 




008201 


All rights reserved 




008202 


) 




008203 






008204 






008205 


{$IFC UNDEFINED Usinglncludes } 




008206 


{$SETC Usinglncludes := 0} 




008207 


{$ENDC} 




008208 






008209 


{$IFC NOT Usinglncludes} 




008210 


UNIT Graf3D; 




008211 


INTERFACE 




008212 


{$ENDC) 




008213 






008214 


{$IFC UNDEFINED UsingGraf3D) 




008215 


{$SETC UsingGraf3D := 1) 




008216 






008217 


{$1+) 




008218 


{$SETC Graf3DIncludes := Usinglncludes} 




008219 


{$SETC Usinglncludes := 1} 




008220 


{$IFC UNDEFINED UsingQuickdraw) 




008221 


{$1 $$ Shell (P Interfaces) Quickdraw.p) 




008222 


{$ENDC) 




008223 


{$SETC Usinglncludes := Graf 3DIncludes ) 




008224 






008225 


CONST 




008226 


radConst = 3754936; 




008227 






008228 


TYPE 




008229 


Point 3D = RECORD 




008230 


x: Fixed; 




008231 


y: Fixed; 




008232 


z : Fixed; 




008233 


END; 




008234 






008235 


Point2D = RECORD 




008236 


x: Fixed; 




008237 


y: Fixed; 




008238 


END; 




008239 






008240 


XfMatrix = ARRAY [0..3, 0..3] OF Fixed; 




008241 






008242 


Port3DPtr = ^Port3D; 




008243 


Port3DHandle = ^Port3DPtr; 




008244 


Port3D = RECORD 




008245 


grPort: GrafPtr; 


J 
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008246 


viewRect : Rect; 




008247 


xLeft 


Fixed; 




008248 


yTop: 


Fixed; 




008249 


xRight: Fixed; 




008250 


yBottora: Fixed; 




008251 


pen: Point3D; 




008252 


penPrirae: Point3D; 




008253 


eye: PointSD; 




008254 


hSize 


Fixed; 




008255 


vSize 


Fixed; 




008256 


hCenter: Fixed; 




008257 


vCenter: Fixed; 




008258 


xCotan: Fixed; 




008259 


yCotan: Fixed; 




008260 


ident 


BOOLEAN; 




008261 


xForm 


XfMatrix; 




008262 


END; 






008263 








008264 








008265 


PROCEDURE 


InitGrf 3d(port : Port3DHandle) ; 




008266 


PROCEDURE 


OpenSDPort (port : Port3DPtr); 




008267 


PROCEDURE 


SetPort3D (port : PortSDPtr); 




008268 


PROCEDURE 


GetPort3D (VAR port : PortSDPtr) ; 




008269 


PROCEDURE 


MoveTo2D(x: Fixed; y 


Fixed) ; 




008270 


PROCEDURE 


MoveTo3D(x: Fixed; y 


Fixed; z : Fixed) ; 




008271 


PROCEDURE 


LineTo2D(x: Fixed; y 


Fixed) ; 




008272 


PROCEDURE 


Move2D(dx: Fixed; dy 


Fixed) ; 




008273 


PROCEDURE 


Move3D(dx: Fixed; dy 


Fixed; dz : Fixed) ; 




008274 


PROCEDURE 


Line2D(dx: Fixed; dy 


Fixed) ; 




008275 


PROCEDURE 


Line3D(dx: Fixed; dy 


Fixed; dz : Fixed) ; 




008276 


PROCEDURE 


Viewport (r: Rect); 




008277 


PROCEDURE 


LookAt(left; Fixed;top: Fixed;right; Fixed;bottom: Fixed); 




008278 


PROCEDURE 


ViewAngle (angle ; Fixed); 




008279 


PROCEDURE 


Identity; 




008280 


PROCEDURE 


Scale (xFactor : Fixed; yFactor : Fixed; zFactor ; Fixed); 




008281 


PROCEDURE 


Translate (dx : Fixed; dy: Fixed; dz: Fixed); 




008282 


PROCEDURE 


Pitch (xAngle: Fixed); 




008283 


PROCEDURE 


Yaw(yAngle: Fixed); 




008284 


PROCEDURE 


Roll(zAngle: Fixed); 




008285 


PROCEDURE 


Skew(zAngle: Fixed); 




008286 


PROCEDURE 


Transform (src: Point3D;VAR dst : Point3D); 




008287 


FUNCTION Clip3D(srcl: Point 3D; src2 : Point3D;VAR dstl: Point; VAR dst2 : Point): INTEGER; 




008288 


PROCEDURE 


SetPt3D (VAR pt3D: Point3D;x: Fixed;y: Fixed; z : Fixed); 




008289 


PROCEDURE 


SetPt2D (VAR pt2D: Point2D;x: Fixed;y: Fixed); 




008290 


PROCEDURE 


LineTo3D(x: Fixed;y: Fixed; z : Fixed); 




008291 








008292 








008293 


{$ENDC) 


( UsingGraf3D } 




008294 








008295 


{$IFC NOT 


Usinglncludes } 




008296 


END. 






008297 


{$ENDC} 






008298 








008299 








008300 


### END OF FILE Graf3D.p 




008301 











' N 
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008302 


008303 


008304 


008305 


008306 


008307 


008308 


008309 


008310 


008311 


008312 


008313 


008314 


008315 


008316 


008317 


008318 


008319 


008320 


008321 


008322 


008323 


008324 


008325 


008326 


008327 


008328 


008329 


008330 


008331 


008332 


008333 


008334 


008335 


008336 


008337 


008338 


008339 


008340 


008341 


008342 


008343 


008344 


008345 


008346 


008347 


008348 


008349 


008350 


008351 


008352 


008353 


008354 


008355 


008356 


008357 



##################################################################### 

### FILE: HyperXCmd.p 

##################################################################### 



HyperXCmd.p 

Definition file for HyperCard XCMDs and XFCNs in Pascal. 



Copyright Apple Computer, Inc. 1987-1991 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 
{$ENDC) 

{$IFC NOT Usinglncludes) 

UNIT HyperXCmd; 

INTERFACE 
{$ENDC} 

{$IFC UNDEFINED UsingHyperXCmd) 
{$SETC UsingHyperXCmd := 1} 

($1+) 

{$SETC HyperXCmdIncludes := Usinglncludes} 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingTypes) 

{$1 $$Shell (PInterfaces) Types. p) 

{$ENDC) 

{$IFC UNDEFINED UsingEvents) 

{$1 $$ Shell (PInterfaces) Event s.p) 

{$ENDC) 

{$IFC UNDEFINED UsingTextEdit } 

{$1 5$ Shell (PInterfaces) TextEdit. p) 

{$ENDC) 

{$IFC UNDEFINED UsingMenus) 

{$1 $$Shell (Plnterfaces)Menus.p) 

{$ENDC) 

{$IFC UNDEFINED UsingStandardFile } 

{$1 $$Shell (PInterfaces) StandardFile.p) 

{$ENDC} 

{$SETC Usinglncludes := HyperXCmdIncludes} 

CONST 

{ result codes } 
xresSucc — 0; 
xresFail = 1; 
xresNotlrap - 2; 



{ XCMDBlock constants for event .what .. . } 



xOpenEvt = 1000 

xCloseEvt = 1001 

xGiveUpEditEvt = 1002 



{ the first event after you are created } 
{ your window is being forced close (Quit?) 
{ you are losing Edit. . . } 
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008358 


xGiveUpSoundEvt 


= 1003 


{ someone else is requesting HyperCard's sound channel ) 




008359 


xHldePalettesEvt 


= 1004 


{ someone called HideHCPalettes ) 




008360 


xShowPalettesEvt 


= 1005 


{ someone called ShowHCPalettes } 




008361 


xEditUndo 


1100; 


{ Edit — Undo } 




008362 


xEditCut 


1102; 


{ Edit — Cut ) 




008363 


xEditCopy 


1103; 


{ Edit — Copy } 




008364 


xEditPaste 


= 1104 


{ Edit — Paste ) 




008365 


xEditClear 


= 1105 


{ Edit — Clear ) 




008366 


xSendEvt 


1200; 


{ script has sent you a message (text) } 




008367 


xSetPropEvt 


= 1201 


{ set a window property } 




008368 


xGetPropEvt 


= 1202 


{ get a window property } 




008369 


xCursorWithin 


= 1300 


{ cursor is within the window } 




008370 


xMenuEvt ^ 


1400; 


{ user has selected an item in your menu } 




008371 


xMBarClickedEvt 


= 1401 


{ a menu is about to be shown — update if needed } 




008372 










008373 


xShowWatchlnfoEvt = 1501 


{ for variable and message watchers } 




008374 


xScriptErrorEvt 


= 1502 


{ place the insertion point } 




008375 


xDebugErrorEvt 


= 1503 


{ user clicked "Debug" at a complaint } 




008376 


xDebugStepEvt 


= 1504 


{ hilite the line } 




008377 


xDebugTraceEvt 


= 1505 


{ same as step but tracing } 




008378 


xDebugFinishedEvt = 1506 


{ script ended } 




008379 










008380 


paletteProc 


= 2048 


{ Windoid with grow box ) 




008381 


palNoGrowProc 


= 2052 


{ standard Windoid defproc ) 




008382 


palZoomProc 


= 2056 


{ Windoid with zoom and grow } 




008383 


pal ZoomNo Grow 


= 2060 


{ Windoid with zoom and no grow } 




008384 


hasZoom ^ 


8; 






008385 


hasTallTBar 


2 






008386 


toggleHilite 


1 






008387 










008388 


raaxCachedChecks 


= 16; 


{ maximum number of checkpoints in a script ) 




008389 










008390 


{ paramCount is 


set to tl 


lese constants when first calling special XThings } 




008391 


xMessageWatcherlD = -2; 






008392 


xVari able Watcher 


ID 


-3; 




008393 


xScriptEditorlD 


= -4; 






008394 


xDebuggerlD 


= -5; 






008395 










008396 


{ XTalkObjectPtr 


'■ . ob jecti 


<ind values } 




008397 


stackObj = 1 










008398 


bkgndObj = 2 










008399 


cardObj = 3 










008400 


fieldObj = 4 










008401 


buttonObj = 5 










008402 










008403 


{ selectors for 


ShowHCAl 


srt's dialogs (shown as buttonID rbuttonText ) ) 




008404 


errorDlgID 


= 1 




{ 1:0K (default) } 




008405 


conf irmDlglD 


= 2 




{ 1:0K (default) and 2: Cancel ) 




008406 


conf irmDelDlgID 


= 3 




{ l:Cancel (default) and 2:Delete ) 




008407 


yesNoCancelDlgID 


= 4 




{ l:Yes (default), 2:Cancel, and 3:No } 




008408 










008409 










008410 


TYPE 








008411 


XCmdPtr = "XCmdBlock; 






008412 


XCmdBlock = RECORD 






008413 


paramCoi 


ant 


: INTI 


:gei 


\; { If ^ -1 then new use for XWindoids } 
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008414 


params: ARRAY [ 1 . . 1 6 ] OF Handle; 




008415 


returnValue : Handle; 




008416 


passFlag: BOOLEAN; 




008417 






008418 


entryPoint: ProcPtr; { to call back to HyperCard } 




008419 


request: INTEGER; 




008420 


result: INTEGER; 




008421 


InArgs: ARRAY [ 1 . . 8 ] OF Longint; 




008422 


outArgs: ARRAY [ 1 . . 4 ] OF Longint; 




008423 


END; 




008424 






008425 


XWEventlnfoPtr = ^XWEventlnf o; 




008426 


XWEventlnfo = RECORD 




008427 


event : EventRecord; 




008428 


eventWindow : WindowPtr; 




008429 


eventParams: ARRAY[1..9] OF Longint; 




008430 


eventResult: Handle; 




008431 


END; 




008432 






008433 


XTalkObjectPtr = ^XTalkOb ject; 




008434 


XTalkObject = RECORD 




008435 


objectKind: INTEGER; { stack, bkgnd, card, field, or button ) 




008436 


stackNum: Longint; { reference number of the source stack } 




008437 


bkgndID; Longint; 




008438 


cardID: Longint; 




008439 


buttonID: Longint; 




008440 


fieldID: Longint; 




008441 


END; 




008442 






008443 


CheckPtHandle = "CheckPtPtr; 




008444 


CheckPtPtr = ''CheckPts; 




008445 


CheckPts = RECORD 




008446 


checks: ARRAY [ 1 . .maxCachedChecks] OF INTEGER; 




008447 


END; 




008448 






008449 






008450 


(**** HyperTalk Utilities ****) 




008451 


FUNCTION EvalExpr (paramPtr: XCmdPtr; expr : Str255): Handle; 




008452 


PROCEDURE SendCardMessage (paramPtr : XCmdPtr; msg: Str255); 




008453 


PROCEDURE SendHCMessage (paramPtr : XCmdPtr; msg: Str255); 




008454 


PROCEDURE RunHandler (paramPtr: XCmdPtr; handler: Handle); 




008455 






008456 


(**** Memory Utilities ****) 




008457 


FUNCTION GetGlobal (paramPtr : XCmdPtr; globName : Str255) : Handle; 




008458 


PROCEDURE SetGlobal (paramPtr : XCmdPtr; globName: Str255; globValue : Handle); 




008459 


PROCEDURE ZeroBytes (paramPtr: XCmdPtr; dstPtr: Ptr; longCount : Longint); 




008460 






008461 


(**** String Utilities ****) 




008462 


PROCEDURE ScanToReturn (paramPtr: XCmdPtr; VAR scanPtr: Ptr); 




008463 


PROCEDURE ScanToZero (paramPtr: XCmdPtr; VAR scanPtr: Ptr); 




008464 


FUNCTION StringEqual (paramPtr: XCmdPtr; strl,str2: Str255): BOOLEAN; 




008465 


FUNCTION StringLength (paramPtr: XCmdPtr; strPtr: Ptr): Longint; 




008466 


FUNCTION StringMatch (paramPtr: XCmdPtr; pattern: Str255; target: Ptr): Ptr; 




008467 


PROCEDURE ZeroTermHandle (paramPtr: XCmdPtr; hndl : Handle); 




008468 






008469 


(**** String Conversions ****) 


J 



9/2/99 10:00 AM 



David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL 



Page 168 



008470 
008471 
008472 
008473 
008474 
008475 
008476 
008477 
008478 
008479 
008480 
008481 
008482 
008483 
008484 
008485 
008486 
008487 
008488 
008489 
008490 
008491 
008492 
008493 
008494 
008495 
008496 
008497 
008498 
008499 
008500 
008501 
008502 
008503 
008504 
008505 
008506 
008507 
008508 
008509 
008510 
008511 
008512 
008513 
008514 
008515 
008516 
008517 
008518 
008519 
008520 
008521 
008522 
008523 
008524 
008525 



PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

FUNCTION 

PROCEDURE 

PROCEDURE 

PROCEDURE 

FUNCTION 

FUNCTION 

FUNCTION 

FUNCTION 

PROCEDURE 

PROCEDURE 

PROCEDURE 

(**** Fie 
FUNCTION 
FUNCTION 
FUNCTION 
PROCEDURE 
PROCEDURE 
PROCEDURE 
FUNCTION 

PROCEDURE 



BoolToStr (paramPtr: XCmdPtr, 
ExtToStr (paramPtr: XCmdPtr; 
LongToStr (paramPtr : XCmdPtr, 
NumToHex (paramPtr : XCmdPtr; 
NumToStr (paramPtr : XCmdPtr; 
PasToZero (paramPtr : XCmdPtr, 
PolntToStr (paramPtr : XCmdPt: 
RectToStr (paramPtr : XCmdPtr, 
ReturnToPas (paramPtr : XCmdPI 
StrToBool (paramPtr: XCmdPtr, 
StrToExt (paramPtr: XCmdPtr; 
StrToLong (paramPtr : XCmdPtr, 
StrToNum (paramPtr : XCmdPtr; 
StrToPolnt (paramPtr : XCmdPt: 
StrToRect (paramPtr : XCmdPtr, 
ZeroToPas (paramPtr : XCmdPtr, 



bool: BOOLEAN; VAR str: Str255); 



1U.1IL- j_ji^u^iivj.'::::^jijw^ v r:i.iv j u J- - » 

posNum: LongInt; VAR str: Str255), 
,,,„. T„„„T„^. „n^^;^„. TMTirr-c-D . vAR Str: Str255), 



num: ExtendedSO; VAR str: Str255); 

tr 
num: LongInt; nDigits : INTEGER 
num: LongInt; VAR str: Str255); 

str: Str255) : Handle; 
-; pt: Point; VAR str: Str255); 

ret: Rect; VAR str: Str255); 
.r; zeroStr: Ptr; VAR pasStr: Str255) 

str: Str255) : BOOLEAN; 
str: Str255) : ExtendedSO; 

str: Str255) : LongInt; 
str: Str255) : LongInt; 
-; str: Str255; VAR pt : Point); 
Str255; VAR ret: Rect); 

VAR pasStr: Str255) ; 



str : 

zeroStr: Ptr; 



Id Utilities ****) 

GetFieldBylD (paramPtr: XCmdPtr; eardFieldFlag : BOOLEAN; fieldID: INTEGER): Handle; 
GetFieldByName (paramPtr : XCmdPtr; eardFieldFlag: BOOLEAN; fieldName: Str255): Handle; 
GetFieldByNum (paramPtr: XCmdPtr; eardFieldFlag: BOOLEAN; fieldNum: INTEGER) : Handle; 
SetFieldBylD (paramPtr: XCmdPtr; eardFieldFlag: BOOLEAN; fieldID: INTEGER; fieldVal: Handle); 
SetFieldByName (paramPtr: XCmdPtr; eardFieldFlag: BOOLEAN; fieldName: Str255; fieldVal: Handle) 
SetFieldByNum (paramPtr : XCmdPtr; eardFieldFlag: BOOLEAN; fieldNum: INTEGER; fieldVal: Handle); 
GetFieldTE (paramPtr: XCmdPtr; eardFieldFlag: BOOLEAN; fieldID, fieldNum: INTEGER; 

f ieldNamePtr : StringPtr) : TEHandle; 
SetFieldTE (paramPtr: XCmdPtr; eardFieldFlag: BOOLEAN; fieldID, fieldNum: INTEGER; 

fieldNamePtr: StringPtr; fieldTE: TEHandle); 



(**** Miseellaneous Utilities ****) 

PROCEDURE BeginXSound (paramPtr : XCmdPtr; window: WindowPtr); 
PROCEDURE EndXSound (paramPtr: XCmdPtr); 
FUNCTION GetFilePath (paramPtr: XCmdPtr; fileName: Str255; numTypes: INTEGER; typeList: SFTypeList; 

askUser: BOOLEAN; VAR fileType: OSType; VAR f ullName : Str255): BOOLEAN; 
PROCEDURE GetXResInfo (paramPtr: XCmdPtr; VAR resFile: INTEGER; VAR resID: INTEGER; 

VAR rType : ResType; VAR name: Str255); 
PROCEDURE Notify (paramPtr: XCmdPtr); 

PROCEDURE SendHCEvent (paramPtr: XCmdPtr; event: EventReeord) ; 
PROCEDURE SendWindowMessage (paramPtr : XCmdPtr; windPtr: WindowPtr; 

windowName: Str255; msg: Str255); 
FUNCTION FrontDoeWindow (paramPtr: XCmdPtr): WindowPtr; 

FUNCTION StaekNameToNum (paramPtr: XCmdPtr; staekName: Str255): LongInt; 
FUNCTION ShowHCAlert (paramPtr: XCMDPtr; dlglD: INTEGER; promptStr: Str255): INTEGER; 

(**** Creating and Disposing XWindoids ****) 
FUNCTION NewXWindow (paramPtr: XCmdPtr; boundsReet : Rect; title: Str255; visible: BOOLEAN; 

proelD: INTEGER; color: BOOLEAN; floating: BOOLEAN): WindowPtr; 
FUNCTION GetNewXWindow (paramPtr : XCmdPtr; templateType : ResType; templatelD: INTEGER; 

color: BOOLEAN; floating: BOOLEAN) : WindowPtr; 
PROCEDURE CloseXWindow (paramPtr: XCmdPtr; window: WindowPtr); 

(**** XWindoid Utilities ****) 
PROCEDURE HideHCPalettes (paramPtr: XCmdPtr); 
PROCEDURE ShowHCPalettes (paramPtr: XCmdPtr); 

PROCEDURE RegisterXWMenu (paramPtr : XCmdPtr; window: WindowPtr; menu: MenuHandle; registering: BOOLEAN); 
PROCEDURE SetXWIdleTime (paramPtr : XCmdPtr; window: WindowPtr; interval: LongInt); 
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008526 
008527 
008528 
008529 
008530 
008531 
008532 
008533 
008534 
008535 
008536 
008537 
008538 
008539 
008540 
008541 
008542 
008543 
008544 
008545 
008546 
008547 
008548 
008549 
008550 
008551 
008552 
008553 
008554 
008555 
008556 
008557 
008558 
008559 
008560 
008561 
008562 
008563 
008564 
008565 
008566 
008567 
008568 
008569 



PROCEDURE XWHasInterruptCode (paramPtr: XCmdPtr; window: WindowPtr; haveCode : BOOLEAN); 

PROCEDURE XWAlwaysMoveHigh (paramPtr: XCmdPtr; window: WindowPtr; moveHigh: BOOLEAN); 

PROCEDURE XWAllowReEntrancy (paramPtr : XCmdPtr; window: WindowPtr; allowSysEvts : BOOLEAN; allowHCEvts: BOOLEAN); 

(**** Text Editing Utilities ****) 

PROCEDURE BeginXWEdit (paramPtr: XCmdPtr; window: WindowPtr); 
PROCEDURE EndXWEdit (paramPtr: XCmdPtr; window: WindowPtr); 
FUNCTION HCWordBreakProc (paramPtr: XCmdPtr): ProcPtr; 
PROCEDURE PrintTEHandle (paramPtr: XCmdPtr; hTE : TEHandle; header: StringPtr) ; 



(* 



Script Editor support 



*) 



FUNCTION GetCheckPoints (paramPtr: XCmdPtr): CheckPtHandle; 

PROCEDURE SetCheckPoints (paramPtr: XCmdPtr; checkLines : CheckPtHandle); 

PROCEDURE FormatScript (paramPtr: XCmdPtr; scriptHndl: Handle; 

VAR insertionPoint : Longint; quickFormat : BOOLEAN); 
PROCEDURE SaveXWScript (paramPtr: XCmdPtr; scriptHndl: Handle); 

PROCEDURE GetObjectName (paramPtr : XCmdPtr; object: XTalkOb jectPtr; VAR objName: Str255); 
PROCEDURE GetObjectScript (paramPtr: XCmdPtr; object: XTalkOb jectPtr; VAR scriptHndl: Handle); 
PROCEDURE SetObjectScript (paramPtr: XCmdPtr; object: XTalkOb jectPtr; scriptHndl: Handle); 

(**** Debugging Tools support ****) 
PROCEDURE AbortScript (paramPtr: XCmdPtr); 
PROCEDURE GoScript (paramPtr: XCmdPtr); 

PROCEDURE StepScript (paramPtr: XCmdPtr; steplnto: BOOLEAN); 
PROCEDURE CountHandlers (paramPtr : XCmdPtr; VAR handlerCount : INTEGER); 
PROCEDURE GetHandlerlnfo (paramPtr: XCmdPtr; handlerNum: INTEGER; VAR handlerName : Str255; 

VAR objectName: Str255; VAR varCount : INTEGER); 
PROCEDURE GetVarlnfo (paramPtr: XCmdPtr; handlerNum: INTEGER; varNum: INTEGER; 

VAR varName: Str255; VAR isGlobal: BOOLEAN; VAR varValue: Str255; 

varHndl : Handle); 
PROCEDURE SetVarValue (paramPtr: XCmdPtr; handlerNum: INTEGER; varNum: INTEGER; 

varHndl: Handle); 
FUNCTION GetStackCrawl (paramPtr : XCmdPtr): Handle; 
PROCEDURE TraceScript (paramPtr: XCmdPtr; tracelnto: BOOLEAN); 



{$ENDC) 



{ UsingHyperXCmd } 



{$IFC NOT Usinglncludes) 

END. 
{$ENDC} 

### END OF FILE HyperXCmd.p 



' N 
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008570 


008571 


008572 


008573 


008574 


008575 


008576 


008577 


008578 


008579 


008580 


008581 


008582 


008583 


008584 


008585 


008586 


008587 


008588 


008589 


008590 


008591 


008592 


008593 


008594 


008595 


008596 


008597 


008598 


008599 


008600 


008601 


008602 


008603 


008604 


008605 


008606 


008607 


008608 


008609 


008610 


008611 


008612 


008613 


008614 


008615 


008616 


008617 


008618 


008619 


008620 


008621 


008622 


008623 


008624 


008625 



##################################################################### 

### FILE: Icons. p 

##################################################################### 



Created: Tuesday, September 10, 1991 at 2:03 PM 
Icons . p 
Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 1990-1991 
All rights reserved 



} 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes :- 0} 
{$ENDC} 

{$IFC NOT Usinglncludes} 
UNIT Icons; 
INTERFACE 

{SENDC} 

{SIFC UNDEFINED Usinglcons} 
{$SETC Usinglcons :- 1} 



CONST 

{ The following are icons for which there are both icon suites and SICNs . 

ge ne r i cDocument I conRe source ^ -4 00 ; 
generi cSt at loner y I conRe source ^ -3 98 5 ; 
genericEdit lonF lie I conRe source ^ -3 98 9; 
genericApp 11 cat ion I conRe source ^ -3996; 
generi cDeskAccessoryl conRe source ^ -3 9 91; 

generi cFolder I conRe source ^ -3999 ; 
privateFolder I conRe source ^ -3 9 94 ; 

f loppylconResource = -3998; 
trashlconResource ^ -3993; 

{ The following are icons for which there are SICNs only . } 

desktop I conRe source ^ -3 9 92; 

openFolder I conRe source ^ -3 9 97 ; 

generi cHardDi ski conResource ^ -3 995; 

generi cFileServerl conRe source ^ -3 972; 

generi cSuit case I conResource ^ -3 970; 

genericMoverObject I conRe source ^ -396 9; 

{ The following are icons for which there are icon suites only . } 
generic? references I conRe source ^ -3 971; 
genericQueryDocument I conRe source ^ -1650 6; 
genericExtensionlconResource ^ -16415 ; 
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008626 
008627 
008628 
008629 
008630 
008631 
008632 
008633 
008634 
008635 
008636 
008637 
008638 
008639 
008640 
008641 
008642 
008643 
008644 
008645 
008646 
008647 
008648 
008649 
008650 
008651 
008652 
008653 
008654 
008655 
008656 
008657 
008658 
008659 
008660 



systemFolderlconResource ^ -3983; 
appleMenuFolderlconResource ^ -3982; 
startupFolderlconResource - -3981; 
ownedFolderlconResource — -3980; 
dropFolderlconResource — -397 9; 
sharedFolderlconResource - -3978; 
mountedFolderlconResource - -3977; 
controlPanelFolderlconResource — -3976; 
printMonitorFolderlconResource = -3975; 
preferencesFolderlconResource ^ -3974; 
extensionsFolderlconResource ^ -3973; 



fullTrashlconRe source 



-3984; 



largelBitMask = 


'ICN# 


large4BitData = 


'icl4 


largeSBitData = 


'icl8 


smalllBitMask = 


'ics# 


small4BitData = 


' ics4 


smallSBitData = 


'ics8 


minilBitMask = 


icm# ' 


mini4BitData = 


icra4 ' 


miniSBitData ^ 


icraS ' 



{$ENDC) { Usinglcons } 

{$IFC NOT Uslnglncludes) 

END. 
{$ENDC} 



### END OF FILE Icons. p 
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008661 
008662 
008663 
008664 
008665 
008666 
008667 
008668 
008669 
008670 
008671 
008672 
008673 
008674 
008675 
008676 
008677 
008678 
008679 
008680 
008681 
008682 
008683 
008684 
008685 
008686 
008687 
008688 
008689 
008690 
008691 
008692 
008693 
008694 
008695 
008696 
008697 
008698 
008699 
008700 
008701 
008702 
008703 
008704 
008705 
008706 
008707 
008708 
008709 
008710 
008711 
008712 
008713 
008714 
008715 
008716 



##############################################################1 
### FILE: IntEnv.p 
##############################################################1 



Created: Wednesday, June 27, 1990 at 6:42 PM 
IntEnv . p 
Pascal Interface to the Macintosh Libraries 

Copyright Apple Computer, Inc. 1989-1991 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 

{$ENDC} 

{$IFC NOT Usinglncludes} 

UNIT IntEnv; 

INTERFACE 
{$ENDC) 

{$IFC UNDEFINED UsinglntEnv) 
{$SETC UsinglntEnv := 1) 

{$1+) 

{$SETC IntEnvIncludes := Usinglncludes} 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingPasLiblntf ) 

{$1 $$ Shell (P Interfaces) PasLiblntf .p) 

{$ENDC) 

{$SETC Usinglncludes := IntEnvIncludes) 

CONST 

{ CMD words for lEfaccessO, from <fcntl.h> } 

F_OPEN = $6400; { ( { ' d ' <<8 ) | 00 ) , d => "directory" ops ) 
F_DELETE = $6401; 
F_RENAME = $64 02; 

F_GTABINFO = $6500; { ( { ' e ' <<8 ) | 00 ) , e => "editor" ops } 

F_STABINFO = $6501; 

F_GFONTINFO = $6502; 

F_SFONTINFO = $6503; 

F_GPRINTREC = $650 4; 

F_SPRINTREC = $6505; 

F_GSELINFO = $6506; 

F_SSELINFO = $6507; 

F_GWININFO = $6508; 

F_SWININFO = $6509; 

F_GSCROLLINFO = $6510; 

F_SSCROLLINFO = $6511; 



###### 
###### 
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008717 
008718 
008719 
008720 
008721 
008722 
008723 
008724 
008725 
008726 
008727 
008728 
008729 
008730 
008731 
008732 
008733 
008734 
008735 
008736 
008737 
008738 
008739 
008740 
008741 
008742 
008743 
008744 
008745 
008746 
008747 
008748 
008749 
008750 
008751 
008752 
008753 
008754 
008755 
008756 
008757 
008758 
008759 
008760 
008761 
008762 
008763 
008764 
008765 
008766 
008767 
008768 
008769 
008770 
008771 
008772 



{ Open modes for IEopen{), from <fcntl.h> } 

0_RDONLY = $0000; 
0_WRONLY = $0001; 
0_RDWR = $0002; 
0_APPEND = $0008; 
0_RSRC = $0010; 
0_CREAT = $0100; 
0_TRUNC = $0200; 
0_EXCL = $0400; 

{ lOCtl parameters } 

FIOINTERACTIVE = $6602; { ( ( ' f ' <<8 ) | 02 ) , f => "open file" ops ) 
FIOBUFSIZE = $6603; 
FIOFNAME = $6604; 
FIOREFNUM = $6605; 
FIOSETEOF = $6606; 

TYPE 

lEString = STRING; 

lEStringPtr = ^lEString; 

lEStringVec = ARRAY [0..8191] OF lEStrlngPtr; 

lEStringVecPtr = ^lEStringVec; 

{$PUSH) 

{$J+) { EXPORTed unit globals ) 

VAR 

ArgC: LONGINT; 

ArgV: lEStrlngVecPtr; 

_EnvP : lEStringVecPtr; 

Diagnostic: TEXT; 
{$POP) 

FUNCTION lEStandAlone: BOOLEAN; 

FUNCTION IEgetenv{envName: STRING; VAR envValue : UNIV lEString): BOOLEAN; 

FUNCTION lEf access (fName: STRING; opCode : LONGINT; 
arg: UNIV LONGINT) : LONGINT; 

PROCEDURE IEopen(VAR f var : UNIV PASCALFILE; fName: STRING; mode: LONGINT), 

FUNCTION IEioctl(VAR f var : UNIV PASCALFILE; request: LONGINT; 
arg: UNIV LONGINT) : LONGINT; 

FUNCTION IElseek(VAR f var : UNIV PASCALFILE; offset: LONGINT; 
whence: LONGINT): LONGINT; 

PROCEDURE lEatexit (exitProc: UNIV LONGINT); 
C; 

PROCEDURE lEexit (status : LONGINT); 
C; 



' N 
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008773 

008774 PROCEDURE IE_exit { status : LONGINT) ; 

008775 C; 
008776 

008777 {$ENDC) { UsinglntEnv } 
008778 

008779 {$IFC NOT Uslnglncludes ) 

008780 END. 

008781 {$ENDC} 
008782 

008783 

008784 ### END OF FILE IntEnv.p 

008785 
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008786 






008787 


##################################################################### 




008788 


### FILE: Language. p 




008789 


##################################################################### 




008790 






008791 






008792 


{ 




008793 


Created: Sunday, September 15, 1991 at 11:20 PM 




008794 


Language -p 




008795 


Pascal Interface to the Macintosh Libraries 




008796 






008797 


Copyright Apple Computer, Inc. 1986-1991 




008798 


All rights reserved 




008799 


) 




008800 






008801 






008802 


{$IFC UNDEFINED Usinglncludes } 




008803 


{$SETC Usinglncludes := 0} 




008804 


{$ENDC} 




008805 






008806 


{$IFC NOT Usinglncludes) 




008807 


UNIT Language; 




008808 


INTERFACE 




008809 


{$ENDC} 




008810 






008811 


{$IFC UNDEFINED UsingLanguage } 




008812 


{$SETC UsingLanguage := 1} 




008813 






008814 






008815 


CONST 




008816 






008817 


{ Language Codes } 




008818 


langEnglish ^0; { smRoraan script } 




008819 


langFrench ^1; { smRoman script } 




008820 


langGerman ^2; { smRoman script } 




008821 


langltalian ^ 3; { smRoman script } 




008822 


langDutch ^4; { smRoman script } 




008823 


langSwedish ^ 5; { smRoman script } 




008824 


langSpanish ^ 6; { smRoman script } 




008825 


langDanish ^7; { smRoman script } 




008826 


langPortuguese ^8; { smRoman script } 




008827 


langNorwegian ^9; { smRoman script } 




008828 


langHebrew = 10; { smHebrew script } 




008829 


langjapanese ^ 11; { smjapanese script } 




008830 


langArabic = 12; { smArabic script ) 




008831 


langFinnish ^ 13; { smRoman script } 




008832 


langGreek ^14; { smGreek script } 




008833 


langlcelandic ^ 15; { extended Roman script } 




008834 


langMaltese = 16; { extended Roman script ) 




008835 


langTurkish ^ 17; { extended Roman script ) 




008836 


langCroatian ^ 18; { Serbo-Croatian in extended Roman script } 




008837 


langTradChinese ^ 19; { Chinese in traditional characters } 




008838 


langUrdu = 20; { smArabic script ) 




008839 


langHindi ^21; { smDevanagari script } 




008840 


langThai = 22; { smThai script ) 




008841 


langKorean = 23; { smKorean script } 
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008842 


008843 


008844 


008845 


008846 


008847 


008848 


008849 


008850 


008851 


008852 


008853 


008854 


008855 


008856 


008857 


008858 


008859 


008860 


008861 


008862 


008863 


008864 


008865 


008866 


008867 


008868 


008869 


008870 


008871 


008872 


008873 


008874 


008875 


008876 


008877 


008878 


008879 


008880 


008881 


008882 


008883 


008884 


008885 


008886 


008887 


008888 


008889 


008890 


008891 


008892 


008893 


008894 


008895 


008896 


008897 



0; 



langLithuanian ^ 24; 
langPolish = 25; 
langHungarian = 26; 
langEstonian = 27; 
langLettish - 28; 
langLatvian ^ 28; 
langLapponian = 29; 
langLappish ^ 29; 
langFaeroese ^ 30 ; 
langFarsi = 31; 
langPersian ^ 31; 
langRussian ^ 32; 
langSimpChinese ^ 33; 
langFlemish ^ 34; 
langlrish = 35; 
langAlbanian = 36; 
langRomanian = 37; 
langCzech = 38; 
langSlovak = 39; 
langSlovenian = 4 
langYiddish - 41; 
langSerbian ^ 42; 
langMacedonian = 
langBulgarian = 4 
langUkrainian = 4 
langByelorussian 
langUzbek - 47; 
langKazakh - 48; 
langAzerbai jani ^ 
langAzerbai janAr 
langArmenian ^ 51 
langGeorgian ^ 52 
langMoldavian = 5 
langKirghiz ^ 54; 
langTajiki = 55; 
langTurkmen ^ 56; 
langMongolian ^ 5 
langMongolianCyr 
langPashto = 59; 
langKurdish ^ 60; 
langKashmiri = 61; 
langSindhi = 62; 
langTibetan ^ 63; 
langNepali = 64; 
langSanskrit ^ 65; 
langMarathi ^ 66; 
langBengali ^ 67; 
langAssamese ^ 68; 
langGu jarati ^ 69; 
langPunjabi ^ 70; 
langOriya ^ 71; 
langMalayalam = 72; 
langKannada ^ 73; 
langTamil - 74; 
langTelugu = 75; 
langS inhale se ^ 7 6; 



- 4e 



49; 
■- 50; 



7; 
- 58 



smEast Eur Roman script } 

smEastEurRoman script } 

smEast Eur Roman script ) 

smEastEurRoman script ) 

smEastEurRoman script } 

Synonym for langLettish } 

extended Roman script ) 

Synonym for langLapponian ) 

smRoman script } 

smArabic script } 

Synonym for langFarsi ) 

smCyrillic script ) 

Chinese in simplified characters } 

smRoman script } 

smRoman script } 

smRoman script } 

smEastEurRoman script } 

smEastEurRoman script ) 

smEastEurRoman script ) 

smEastEurRoman script ) 

smHebrew script } 

Serbo-Croatian in smCyrillic script } 

smCyrillic script } 

smCyrillic script } 

smCyrillic script } 

smCyrillic script } 

smCyrillic script } 

smCyrillic script } 

Azerbai jani in smCyrillic script (USSR) } 

Azerbai jani in smArabic script (Iran) } 

smArraenian script } 

smGeorgian script } 

smCyrillic script } 

smCyrillic script } 

smCyrillic script } 

smCyrillic script } 

Mongolian in smMongolian script } 

Mongolian in smCyrillic script } 

smArabic script } 

smArabic script } 

smArabic script } 

smExtArabic script } 

smTibetan script ) 

smDe van agar i script } 

smDevanagari script } 

smDevanagari script } 

smBengali script } 

smBengali script ) 

smGu jarati script } 

smGurmukhi script } 

smOriya script } 

smMalayalam script } 

smKannada script ) 

smTamil script } 

smTelugu script } 

smS inhale se script } 
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008898 


langBurmese ^ 77; 




008899 


langKhmer = 78; 




008900 


langLao ^ 79; 




008901 


langVietnamese = 80; 




008902 


langlndonesian = 81; 




008903 


langTagalog = 82; 




008904 


langMalayRoman = 83; 




008905 


langMalayArablc = 84; 




008906 


langAmharic ^ 85; 




008907 


langTigrinya ^ 86; 




008908 


langGalla = 87; 




008909 


langOromo = 87; 




008910 


langSomall = 88; 




008911 


langSwahili = 89; 




008912 


langRuanda = 90; 




008913 


langRundi = 91; 




008914 


langChewa = 92; 




008915 


langMalagasy ^ 93; 




008916 


langEsperanto ^ 94; 




008917 


langWelsh = 12 8; 




008918 


langBasque = 129; 




008919 


langCatalan = 130; 




008920 


langLatin ^ 131; 




008921 


langQuechua ^ 132; 




008922 


langGuarani ^ 133; 




008923 


langAymara = 134; 




008924 


langTatar = 135; 




008925 


langUighur = 136; 




008926 


langDzongkha = 137; 




008927 


langJavaneseRom = 138; 




008928 


langSundaneseRom ^ 139; 




008929 






008930 


{ Obsolete names, kept for 


ba 


008931 


langPortugese = 8; 




008932 


langMalta ^ 16; 




008933 


langYugoslavian ^ 18; 




008934 


langChinese = 19; 




008935 






008936 






008937 


{$ENDC) { UslngLanguage ) 




008938 






008939 


{$IFC NOT Uslnglncludes) 




008940 


END. 




008941 


{$ENDC} 




008942 






008943 






008944 


### END OF FILE Language. p 




008945 







smB u rme se script } 

smKhmer script } 

smLaotian script ) 

smVietnamese script } 

smRoraan script } 

smRoraan script } 

Malay in smRoman script } 

Malay in smArabic script } 

smEthiopic script ) 

smEthiopic script } 

smEthiopic script } 

Synonym for langGalla } 

smRoraan script 

smRoman script 

smRoman script 

smRoman script 

smRoman script 

smRoman script 

extended Roman script } 

smRoman script 

smRoman script 

smRoman script 

smRoman script 

smRoman script 

smRoman script 

smRoraan script 

smCyrillic script } 

smArabic script } 

( lang of Bhutan) smTibetan script } 

Javanese in smRoraan script } 

Sundanese in smRoman script } 

ckward compatibility } 
old misspelled version, kept for compatibility } 
old misspelled version, kept for compatibility } 
(use langCroatian, langSerbian, etc. ) ) 
(use langTradChinese or langSimpChinese) } 
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008946 






008947 


##################################################################### 




008948 


### FILE: Lists. p 




008949 


##################################################################### 




008950 






008951 


{ 




008952 


Created: Monday, January 1, 1991 at 5:54 AM 




008953 


Lists -p 




008954 


Pascal Interface to the Macintosh Libraries 




008955 






008956 


Copyright Apple Computer, Inc. 1985-1990 




008957 


All rights reserved 




008958 


) 




008959 






008960 






008961 


{$IFC UNDEFINED Usinglncludes } 




008962 


{$SETC Usinglncludes := 0} 




008963 


{$ENDC} 




008964 






008965 


{$IFC NOT Usinglncludes} 




008966 


UNIT Lists; 




008967 


INTERFACE 




008968 


{$ENDC) 




008969 






008970 


{$IFC UNDEFINED UsingLists} 




008971 


{$SETC UsingLists := 1) 




008972 






008973 


{$1+) 




008974 


{$SETC Listslncludes := Usinglncludes} 




008975 


{$SETC Usinglncludes := 1} 




008976 


{$IFC UNDEFINED UsingTypes} 




008977 


{$1 $$Shell (PInterfaces) Types. p} 




008978 


{$ENDC} 




008979 


{$IFC UNDEFINED UsingControls } 




008980 


{$1 $$Shell (Plnterfaces)Controls.p} 




008981 


{$ENDC} 




008982 


{$IFC UNDEFINED UsingMemory} 




008983 


{$1 $$ Shell (PInterfaces ) Memory .p} 




008984 


{$ENDC} 




008985 


{$SETC Usinglncludes := Listslncludes} 




008986 






008987 


CONST 




008988 


IDoVAutoscroll = 2; 




008989 


IDoHAutoscroll = 1; 




008990 


lOnlyOne = -12 8; 




008991 


lExtendDrag = 64; 




008992 


INoDisjoint = 32; 




008993 


INoExtend = 16; 




008994 


INoRect = 8; 




008995 


lUseSense = 4; 




008996 


INoNilHilite = 2; 




008997 


llnitMsg = 0; 




008998 


IDrawMsg = 1; 




008999 


IHiliteMsg = 2; 




009000 


ICloseMsg = 3; 




009001 




y 
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009002 
009003 
009004 
009005 
009006 
009007 
009008 
009009 
009010 
009011 
009012 
009013 
009014 
009015 
009016 
009017 
009018 
009019 
009020 
009021 
009022 
009023 
009024 
009025 
009026 
009027 
009028 
009029 
009030 
009031 
009032 
009033 
009034 
009035 
009036 
009037 
009038 
009039 
009040 
009041 
009042 
009043 
009044 
009045 
009046 
009047 
009048 
009049 
009050 
009051 
009052 
009053 
009054 
009055 
009056 
009057 



TYPE 

Cell = Point; 

DataPtr = ''DataArray; 
DataHandle = -^DataPtr; 

DataArray = PACKED ARRAY [0.. 32000] OF CHAR; 

ListPtr = '■ListRec; 
ListHandle = -^ListPtr; 
ListRec = RECORD 

rView; Rect; 

port: GrafPtr; 

indent: Point; 

cellSize: Point; 

visible : 

vScroil: 

hScroil: 

selFlags 

lAct ive : 



Rect; 

ControlHandle; 

ControlHandle; 
SignedByte; 

BOOLEAN; 
IReserved: SignedByte; 
listFlags: SignedByte; 
clikTime: LONGINT; 
clikLoc: Point; 
mouseLoc : Point; 
IClikLoop: ProcPtr; 
lastClick: Cell; 
refCon: LONGINT; 
listDefProc: Handle; 
userHandle : Handle; 
dataBounds: Rect; 
cells: DataHandle; 
maxindex: INTEGER; 
cellArray: ARRAY [1 
END; 



1] OF INTEGER; 



FUNCTION LNew(rView: Rect ; dataBounds : Rect;cSize: Point ; theProc : INTEGER; 

theWindow: WindowPtr; drawit : BOOLEAN; hasGrow: BOOLEAN; scrollHoriz : BOOLEAN; 

scrollVert: BOOLEAN): ListHandle; 

INLINE $3F3C, $0044, $A9E7; 
PROCEDURE LDispose (IHandle : ListHandle); 

INLINE $3F3C, $0028, $A9E7; 
FUNCTION LAddColumn (count : INTEGER; colNum: INTEGER; IHandle : ListHandle): INTEGER; 

INLINE $3F3C, $0004, $A9E7; 
FUNCTION LAddRow (count : INTEGER; rowNum: INTEGER; IHandle : ListHandle): INTEGER; 

INLINE $3F3C, $0008, $A9E7; 
PROCEDURE LDelColumn (count : INTEGER; colNum: INTEGER; IHandle : ListHandle); 

INLINE $3F3C, $0020, $A9E7; 
PROCEDURE LDelRow (count: INTEGER; rowNum : INTEGER; IHandle : ListHandle); 

INLINE $3F3C, $0024, $A9E7; 
FUNCTION LGetSelect (next : BOOLEAN; VAR theCell: Cell; IHandle : ListHandle): BOOLEAN; 

INLINE $3F3C, $003C, $A9E7; 
FUNCTION LLastClick (IHandle: ListHandle): Cell; 

INLINE $3F3C, $0040, $A9E7; 
FUNCTION LNextCell (hNext : BOOLEAN; vNext : BOOLEAN; VAR theCell: Cell; IHandle : ListHandle) 



BOOLEAN; 
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009058 INLINE $3F3C, $0048, $A9E7; 

009059 FUNCTION LSearch (dataPtr : Ptr;dataLen: INTEGER; searchProc : ProcPtr;VAR theCell: Cell; 

009060 IHandle: ListHandle) : BOOLEAN; 

009061 INLINE $3F3C, $0054 , $A9E7 ; 

009062 PROCEDURE LSlze (llstWldth : INTEGER; llstHelght : INTEGER; IHandle : ListHandle); 

009063 INLINE $3F3C, $0060, $A9E7; 

009064 PROCEDURE LDoDraw (drawlt : BOOLEAN; IHandle : ListHandle); 

009065 INLINE $3F3C, $002C, $A9E7; 

009066 PROCEDURE LScroll (dCols : INTEGER; dRows : INTEGER; IHandle : ListHandle); 

009067 INLINE $3F3C, $0050, $A9E7; 

009068 PROCEDURE LAutoScroll (IHandle : ListHandle); 

009069 INLINE $3F3C, $0010, $A9E7 ; 

009070 PROCEDURE LUpdate (theRgn : RgnHandle; IHandle : ListHandle); 

009071 INLINE $3F3C, $00 64 , $A9E7 ; 

009072 PROCEDURE LActlvate (act : BOOLEAN; IHandle : ListHandle); 

009073 INLINE $4267,$A9E7; 

009074 PROCEDURE LCellSlze (cSlze : Point ; IHandle : ListHandle); 

009075 INLINE $3F3C, $0014 , $A9E7 ; 

009076 FUNCTION LCllck(pt: Point ; modifiers : INTEGER; IHandle : ListHandle): BOOLEAN; 

009077 INLINE $3F3C, $0018 , $A9E7 ; 

009078 PROCEDURE LAddToCell (dataPtr : Ptr;dataLen: INTEGER; theCell : Cell; IHandle : ListHandle); 

009079 INLINE $3F3C, $000C, $A9E7 ; 

009080 PROCEDURE LClrCell (theCell : Cell; IHandle : ListHandle); 

009081 INLINE $3F3C, $001C, $A9E7 ; 

009082 PROCEDURE LGetCell (dataPtr : Ptr;VAR dataLen: INTEGER; theCell : Cell; IHandle : ListHandle), 

009083 INLINE $3F3C, $0038, $A9E7; 

009084 PROCEDURE LFind (VAR offset: INTEGER;VAR len: INTEGER; theCell : Cell; IHandle : ListHandle), 

009085 INLINE $3F3C, $0034, $A9E7; 

009086 PROCEDURE LRect (VAR cellRect : Rect; theCell : Cell; IHandle : ListHandle); 

009087 INLINE $3F3C, $004C, $A9E7; 

009088 PROCEDURE LSetCell (dataPtr : Ptr;dataLen: INTEGER; theCell : Cell; IHandle : ListHandle); 

009089 INLINE $3F3C, $0058, $A9E7; 

009090 PROCEDURE LSetSelect (setit : BOOLEAN; theCell : Cell; IHandle : ListHandle); 

009091 INLINE $3F3C, $005C, $A9E7 ; 

009092 PROCEDURE LDraw (theCell : Cell ; IHandle : ListHandle); 

009093 INLINE $3F3C, $0030, $A9E7; 
009094 

009095 

009096 {$ENDC) { UslngLlsts } 

009097 

009098 {$IFC NOT Uslnglncludes) 

009099 END. 

009100 {$ENDC} 
009101 

009102 

009103 ### END OF FILE Lists. p 

009104 



' N 
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009105 

009106 ##################################################################### 

009107 ### FILE: MacPrint.p 

009108 ##################################################################### 
009109 

009110 { 

009111 File: MacPrint.p 
009112 

009113 As of MPW 3.0, interface files were reorganized to more closely 

009114 match "Inside Macintosh" reference books and be more consistant 

009115 from language to language. 
009116 

009117 Interfaces for the non-ROM based Print Manager are now found in Printing. p. 

009118 This file, which includes Printing. p, is provided for compatibility 

009119 with old sources. 
009120 

009121 Pascal Interface to the Macintosh Libraries 

009122 Copyright Apple Computer, Inc. 1988 

009123 All Rights Reserved 

009124 ) 
009125 

009126 {$IFC UNDEFINED Usinglncludes } 

009127 {$SETC Usinglncludes := 0} 

009128 {$ENDC) 
009129 

009130 {$IFC NOT Usinglncludes) 

009131 UNIT MacPrint; 

009132 INTERFACE 

009133 {$ENDC) 
009134 

009135 {$IFC UNDEFINED UsingMacPrint } 

009136 {$SETC UsingMacPrint := 1} 
009137 

009138 {$1+) 

009139 {$SETC MacPrint Includes := Usinglncludes) 

009140 {$SETC Usinglncludes := 1} 

009141 {$IFC UNDEFINED UsingPrinting } 

009142 {$1 5$Shell (PInterfaces) Printing. p} 

009143 {$ENDC) 

009144 {$SETC Usinglncludes := MacPrintlncludes ) 
009145 

009146 {$ENDC) { UsingMacPrint ) 
009147 

009148 {$IFC NOT Usinglncludes) 

009149 END. 

009150 {$ENDC} 
009151 

009152 

009153 ### END OF FILE MacPrint.p 

009154 
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009155 

009156 ##################################################################### 

009157 ### FILE: Memory. p 

009158 ##################################################################### 
009159 

009160 { 

009161 Created: Sunday, January 6, 1991 at 10:47 PM 

009162 Memory. p 

009163 Pascal Interface to the Macintosh Libraries 
009164 

009165 Copyright Apple Computer, Inc. 1985-1990 

009166 All rights reserved 

009167 ) 
009168 
009169 

009170 {$IFC UNDEFINED Usinglncludes } 

009171 {$SETC Usinglncludes := 0} 

009172 {$ENDC} 
009173 

009174 {$IFC NOT Usinglncludes) 

009175 UNIT Memory; 

009176 INTERFACE 

009177 {$ENDC) 
009178 

009179 {$IFC UNDEFINED UsingMemory) 

009180 {$SETC UsingMemory := 1) 
009181 

009182 {$1+) 

009183 {$SETC Memorylncludes := Usinglncludes} 

009184 {$SETC Usinglncludes := 1} 

009185 {$IFC UNDEFINED UsingTypes) 

009186 {$1 $$Shell (PInterfaces) Types. p) 

009187 {$ENDC) 

009188 {$SETC Usinglncludes := Memorylncludes) 
009189 

009190 CONST 

009191 maxSize = $800000; {Max data block size is 8 megabytes) 

009192 defaultPhysicalEntryCount = 8; 
009193 

009194 { values returned from the GetPageState function } 

009195 kPagelnMemory = 0; 

009196 kPageOnDisk = 1; 

009197 kNotPaged = 2; 
009198 

009199 TYPE 

009200 Size = LONGINT; { size of a block in bytes ) 
009201 

009202 THz = ^Zone; 

009203 Zone = RECORD 

009204 bkLim: Ptr; 

009205 purgePtr: Ptr; 

009206 hFstFree: Ptr; 

009207 zcbFree: LONGINT; 

009208 gzProc: ProcPtr; 

009209 moreMast: INTEGER; 
.009210 flags: INTEGER; 
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009211 
009212 
009213 
009214 
009215 
009216 
009217 
009218 
009219 
009220 
009221 
009222 
009223 
009224 
009225 
009226 
009227 
009228 
009229 
009230 
009231 
009232 
009233 
009234 
009235 
009236 
009237 
009238 
009239 
009240 
009241 
009242 
009243 
009244 
009245 
009246 
009247 
009248 
009249 
009250 
009251 
009252 
009253 
009254 
009255 
009256 
009257 
009258 
009259 
009260 
009261 
009262 
009263 
009264 
009265 
009266 



cntRel : 

maxRel : 

cntNRel : 

maxNRel : 

cntEmpty 

cntHandl 

minCBFre 

purgePro 

sparePtr 

allocPtr 

heapData 

END; 



INTEGER; 
INTEGER; 
INTEGER; 
INTEGER; 
: INTEGER; 
es: INTEGER; 
e: LONGINT; 
c; ProcPtr; 
Ptr; 
Ptr; 
INTEGER; 



MemoryBlock = RECORD 
address : Ptr; 
count: LONGINT; 
END; 

LogicalToPhysicalTable = RECORD 
logical: MemoryBlock; 

physical: ARRAY [ . .def aultPhysicalEntryCount - 1] OF MemoryBlock; 
END; 



PageState = INTEGER; 
StatusReglsterContents = INTEGER; 

FUNCTION GetApplLlmit : Ptr; 

INLINE $2EB8,$0130; 
FUNCTION GetZone: THz; 

INLINE $A11A, $2E88; 
FUNCTION SystemZone: THz; 

INLINE $2EB8,$02A6; 
FUNCTION AppllcZone: THz; 

INLINE $2EB8,$02AA; 
FUNCTION ApplicatlonZone: THz; 

INLINE $2EB8,$02AA; 
FUNCTION NewHandle (byteCount : Size): Handle; 
FUNCTION NewHandleSys (byteCount : Size): Handle; 
FUNCTION NewHandleClear (byteCount : Size): Handle; 
FUNCTION NewHandleSysClear (byteCount : Size): Handle; 
FUNCTION HandleZone (h: Handle): THz; 
FUNCTION RecoverHandle (p: Ptr): Handle; 
FUNCTION NewPtr (byteCount : Size): Ptr; 
FUNCTION NewPtrSys (byteCount : Size): Ptr; 
FUNCTION NewPtrClear (byteCount: Size): Ptr; 
FUNCTION NewPtrSysClear (byteCount : Size): Ptr; 
FUNCTION PtrZone(p: Ptr): THz; 
FUNCTION GZSaveHnd: Handle; 

INLINE $2EB8,$0328; 
FUNCTION TopMem: Ptr; 

INLINE $2EB8,$0108; 
FUNCTION MaxBlock: LONGINT; 
FUNCTION MaxBlockSys: LONGINT; 
FUNCTION StackSpace: LONGINT; 
FUNCTION NewEmptyHandle : Handle; 
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009267 FUNCTION NewEmptyHandleSys : Handle; 

009268 PROCEDURE HLock(h: Handle); 

009269 INLINE $205F,$A029; 

009270 PROCEDURE HUnlock{h: Handle); 

009271 INLINE $205F,$A02A; 

009272 PROCEDURE HPurge(h: Handle); 

009273 INLINE $205F,$A049; 

009274 PROCEDURE HNoPurge(h: Handle); 

009275 INLINE $205F,$A04A; 

009276 PROCEDURE HLockHi{h: Handle); 

009277 INLINE $205F, $A0 64 , $A02 9; 

009278 FUNCTION StripAddress (theAddress : UNIV Ptr) : Ptr; 

009279 {$IFC SystemSixOrLater } 

009280 INLINE $201F, $A055, $2E80 ; 

009281 {$ENDC) 

009282 FUNCTION Translate24To32 (addr24 : UNIV Ptr): Ptr; 

009283 INLINE $201F, $A091, $2E80; 

009284 FUNCTION TempNewHandle (logicalSlze: Size;VAR resultCode: OSErr) : Handle; 

009285 INLINE $3F3C, $001D, $A88F; 

009286 FUNCTION TempMaxMem(VAR grow: Size) : Size; 

009287 INLINE $3F3C, $0015, $A88F; 

009288 FUNCTION TempFreeMem: LONGINT; 

009289 INLINE $3F3C, $0018, $A88F; 
009290 

009291 { Temporary Memory routines renamed, but obsolete, in System 7.0 and later. } 

009292 PROCEDURE TempHLock(h: Handle;VAR resultCode: OSErr); 

009293 INLINE $3F3C, $001E, $A8 8F; 

009294 PROCEDURE TempHUnlock (h : Handle;VAR resultCode: OSErr); 

009295 INLINE $3F3C, $001F, $A8 8F; 

009296 PROCEDURE TempDisposeHandle (h : Handle;VAR resultCode: OSErr); 

009297 INLINE $3F3C, $0020, $A88F; 

009298 FUNCTION TempTopMem: Ptr; 

009299 INLINE $3F3C, $0016, $A88F; 
009300 

009301 { Temporary Memory routines as they were known before System 7.0. } 

009302 FUNCTION MFMaxMem{VAR grow: Size) : Size; 

009303 INLINE $3F3C, $0015, $A8 8F; 

009304 FUNCTION MFFreeMem: LONGINT; 

009305 INLINE $3F3C, $0018, $A88F; 

009306 FUNCTION MFTempNewHandle (loglcalSize: Size;VAR resultCode: OSErr): Handle; 

009307 INLINE $3F3C, $001D, $A88F; 

009308 PROCEDURE MFTempHLock (h : Handle;VAR resultCode: OSErr); 

009309 INLINE $3F3C, $001E, $A88F; 

009310 PROCEDURE MFTempHUnlock (h : Handle;VAR resultCode: OSErr); 

009311 INLINE $3F3C, $a01F, $A8 8F; 

009312 PROCEDURE MFTempDisposHandle (h : Handle;VAR resultCode: OSErr); 

009313 INLINE $3F3C, $0020, $A88F; 

009314 FUNCTION MFTopMem: Ptr; 

009315 INLINE $3F3C, $0016, $A88F; 

009316 PROCEDURE InltApplZone; 

009317 INLINE $A02C; 

009318 PROCEDURE InltZone (pgrowZone : ProcPtr; cmoreMasters : INTEGER; limitPtr: UNIV Ptr; 

009319 startPtr: UNIV Ptr); 

009320 PROCEDURE SetZone (hz : THz); 

009321 INLINE $205F,$A01B; 

.009322 FUNCTION CompactMem (cbNeeded: Size) : Size; 
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009323 FUNCTION CompactMemSys (cbNeeded : Size): Size; 

009324 PROCEDURE PurgeMem (cbNeeded : Size) ; 

009325 INLINE $201F,$A04D; 

009326 PROCEDURE PurgeMemSys { cbNeeded : Size); 

009327 INLINE $201F,$A44D; 

009328 FUNCTION FreeMem: LONGINT; 

009329 INLINE $A01C, $2E80; 

009330 FUNCTION FreeMemSys : LONGINT; 

009331 INLINE $A41C,$2E80; 

009332 PROCEDURE ResrvMem (cbNeeded : Size); 

009333 INLINE $201F,$A040; 

009334 PROCEDURE ReserveMem (cbNeeded: Size); 

009335 INLINE $201F,$A040; 

009336 PROCEDURE ReserveMemSys (cbNeeded : Size); 

009337 INLINE $201F,$A440; 

009338 FUNCTION MaxMem(VAR grow: Size) : Size; 

009339 FUNCTION MaxMemSys (VAR grow: Size): Size; 

009340 PROCEDURE SetGrowZone (growZone : ProcPtr) ; 

009341 INLINE $205F,$A04B; 

009342 PROCEDURE SetApplLimit ( zoneLimit : UNIV Ptr); 

009343 INLINE $205F,$A02D; 

009344 PROCEDURE MoveHHi{h: Handle); 

009345 INLINE $205F,$A064; 

009346 PROCEDURE DisposPtr(p: Ptr); 

009347 INLINE $205F,$A01F; 

009348 PROCEDURE DisposePtr (p : Ptr); 

009349 INLINE $205F,$A01F; 

009350 FUNCTION GetPtrSize (p : Ptr): Size; 

009351 PROCEDURE SetPtrSize (p : Ptr;newSize: Size); 

009352 PROCEDURE DisposHandle (h : Handle); 

009353 INLINE $205F,$A023; 

009354 PROCEDURE DisposeHandle (h : Handle); 

009355 INLINE $205F,$A023; 

009356 FUNCTION GetHandleSize (h : Handle): Size; 

009357 PROCEDURE SetHandleSize (h : Handle; newSize : Size); 

009358 PROCEDURE EmptyHandle (h : Handle); 

009359 INLINE $205F,$A02B; 

009360 PROCEDURE ReallocHandle (h : Handle; byteCount : Size); 

009361 PROCEDURE ReallocateHandle (h : Handle;byteCount : Size); 

009362 PROCEDURE HSetRBit(h: Handle); 

009363 INLINE $205F,$A067; 

009364 PROCEDURE HClrRBit(h: Handle); 

009365 INLINE $205F,$A068; 

009366 PROCEDURE MoreMasters; 

009367 INLINE $A036; 

009368 PROCEDURE BlockMove (srcPtr : UNIV Ptr;destPtr: UNIV Ptr; byteCount : Size); 

009369 FUNCTION MemError: OSErr; 

009370 INLINE $3EB8,$0220; 

009371 PROCEDURE PurgeSpace (VAR total: LONGINT; VAR contig: LONGINT); 

009372 FUNCTION HGetState(h: Handle): SignedByte; 

009373 PROCEDURE HSetState(h: Handle; flags : SignedByte); 

009374 PROCEDURE SetApplBase { startPtr : UNIV Ptr); 

009375 INLINE $205F,$A057; 

009376 PROCEDURE MaxApplZone; 

009377 INLINE $A063; 

009378 FUNCTION HoldMemory (address : UNIV Ptr; count : LONGINT): OSErr; 
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009379 FUNCTION UnholdMemory (address : UNIV Ptr;count: LONGINT): OSErr; 

009380 FUNCTION LockMemory (address : UNIV Ptr; count : LONGINT): OSErr; 

009381 FUNCTION LockMemoryContiguous (address : UNIV Ptr; count: LONGINT): OSErr; 

009382 FUNCTION UnlockMemory (address : UNIV Ptr; count: LONGINT): OSErr; 

009383 FUNCTION GetPhysical (VAR addresses: LogicalToPhyslcalTable; VAR physicalEntryCount : LONGINT): OSErr; 

009384 FUNCTION DeferUserFn (userFunction: ProcPtr; argument : UNIV Ptr): OSErr; 

009385 FUNCTION DebuggerGetMax: LONGINT; 

009386 INLINE $7000 , $A08D, $2E80 ; 

009387 PROCEDURE DebuggerEnter; 

009388 INLINE $70ai,$A08D; 

009389 PROCEDURE DebuggerExit; 

009390 INLINE $70a2,$A08D; 

009391 PROCEDURE DebuggerPoll; 

009392 INLINE $7003,$A08D; 

009393 FUNCTION GetPageState (address : UNIV Ptr): PageState; 

009394 INLINE $205F, $7004 , $A08D, $3E80; 

009395 FUNCTION PageFaultFatal : BOOLEAN; 

009396 INLINE $7005 , $A08D, $1E80 ; 

009397 FUNCTION DebuggerLockMemory (address : UNIV Ptr; count : LONGINT): OSErr; 

009398 FUNCTION DebuggerUnlockMemory (address : UNIV Ptr;count: LONGINT): OSErr; 

009399 FUNCTION EnterSupervlsorMode: StatusRegisterContents; 

009400 INLINE $7008, $A08D, $3E80; 
009401 

009402 

009403 {$ENDC) { UsingMemory } 

009404 

009405 {$IFC NOT Usinglncludes} 

009406 END. 

009407 {$ENDC} 
009408 

009409 

009410 ### END OF FILE Memory. p 

009411 
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009412 

009413 ##################################################################### 

009414 ### FILE: MemTypes.p 

009415 ##################################################################### 
009416 

009417 { 

009418 File: MemTypes.p 
009419 

009420 As of MPW 3.0, interface files were reorganized to more closely 

009421 match "Inside Macintosh" reference books and be more consistant 

009422 from language to language. 
009423 

009424 Interfaces for the basic type definitions are now found in Types. p. 

009425 This file, which includes Types. p, is provided for compatibility 

009426 with old sources. 
009427 

009428 Pascal Interface to the Macintosh Libraries 

009429 Copyright Apple Computer, Inc. 1988 

009430 All Rights Reserved 

009431 ) 
009432 

009433 {$IFC UNDEFINED Usinglncludes } 

009434 {$SETC Usinglncludes := 0} 

009435 {$ENDC) 
009436 

009437 {$IFC NOT Usinglncludes) 

009438 UNIT MemTypes; 

009439 INTERFACE 

009440 {$ENDC) 
009441 

009442 {$IFC UNDEFINED UsingMemTypes } 

009443 {$SETC UsingMemTypes := 1} 
009444 

009445 {$1+) 

009446 {$SETC MemTypesIncludes := Usinglncludes) 

009447 {$SETC Usinglncludes := 1} 

009448 {$IFC UNDEFINED UsingTypes) 

009449 {$1 $$Shell (PInterfaces) Types. p) 

009450 {$ENDC) 

009451 {$SETC Usinglncludes := MemTypesIncludes) 
009452 

009453 {$ENDC} { UsingMemTypes ) 
009454 

009455 {$IFC NOT Usinglncludes) 

009456 END. 

009457 {$ENDC} 
009458 

009459 

009460 ### END OF FILE MemTypes.p 

009461 
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009462 
009463 
009464 
009465 
009466 
009467 
009468 
009469 
009470 
009471 
009472 
009473 
009474 
009475 
009476 
009477 
009478 
009479 
009480 
009481 
009482 
009483 
009484 
009485 
009486 
009487 
009488 
009489 
009490 
009491 
009492 
009493 
009494 
009495 
009496 
009497 
009498 
009499 
009500 
009501 
009502 
009503 
009504 
009505 
009506 
009507 
009508 
009509 
009510 
009511 
009512 
009513 
009514 
009515 
009516 
009517 



##################################################################### 
### FILE: Menus. p 
##################################################################### 



Created: Sunday, January 6, 1991 at 10:48 PM 
Menus . p 
Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 

{$ENDC} 

{$IFC NOT Usinglncludes} 

UNIT Menus; 

INTERFACE 
{$ENDC) 

{$IFC UNDEFINED UsingMenus} 
{$SETC UsingMenus := 1) 

{$1+) 

{$SETC Menuslncludes := Usinglncludes} 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingQuickdraw} 

{$1 $$ Shell (P Interfaces) Quickdraw.p} 

{$ENDC} 

{$SETC Usinglncludes := Menuslncludes} 

CONST 
noMark = 0; 

{ menu defProc messages } 
mDrawMsg ^ 0; 
mChooseMsg — 1; 
mSizeMsg ^ 2; 
mDrawItemMsg ^ 4; 
mCalcItemMsg ^ 5; 
textMenuProc ^ 0; 
hMenuCmd = 27; 
hierMenu ^ -1; 
mPopUpMsg ^ 3; 
mctAllItems = -98; 
mctLastlDIndic = -99; 

TYPE 

MenuPtr = ''Menulnfo; 
MenuHandle = •^MenuPtr; 
Menulnfo = RECORD 

menuID: INTEGER; 



1985-199C 



{mark symbol for Markltem} 



{itemCmd ^^ OxOOlB ^^> hierarchical menu} 
{a hierarchical menu - for InsertMenu call} 
{menu defProc messages - place yourself} 
{search for all Items for the given ID} 
{last color table entry has this in ID field} 
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009518 
009519 
009520 
009521 
009522 
009523 
009524 
009525 
009526 
009527 
009528 
009529 
009530 
009531 
009532 
009533 
009534 
009535 
009536 
009537 
009538 
009539 
009540 
009541 
009542 
009543 
009544 
009545 
009546 
009547 
009548 
009549 
009550 
009551 
009552 
009553 
009554 
009555 
009556 
009557 
009558 
009559 
009560 
009561 
009562 
009563 
009564 
009565 
009566 
009567 
009568 
009569 
009570 
009571 
009572 
009573 



menuWidth: INTEGER; 
menuHeight: INTEGER; 
menuProc: Handle; 
enableFlags: LONGINT; 
menuData: Str255; 
END; 

MCEntryPtr = ^MCEntry; 
MCEntry = RECORD 

met ID: INTEGER; 

mctltem: INTEGER; 

mctRGBl: RGBColor; 

met RGB 2 : RGBColor; 

mctRGB3: RGBColor; 

mctRGB4 : RGBColor; 

mctReserved: INTEGER; 

END; 



{} 

MCTablePtr = ^MCTable; 
MCTableHandle = ^MCTablePtr; 

MCTable = ARRAY [0..0] OF MCEntry; 

MenuCRsrcPtr = ^MenuCRsrc; 
MenuCRsrcHandle = ''MenuCRsrcPtr; 
MenuCRsrc = RECORD 

numEntries: INTEGER; 

mcEntryRecs: MCTable; 

END; 



{menu ID. ID ^ is the menu bar} 

{menu Item. Item ^ is a title) 

{usage depends on ID and Item} 

{usage depends on ID and Item} 

{usage depends on ID and Item} 

{usage depends on ID and Item} 
{reserved for internal use} 



{ the entries themselves } 



{number of entries} 

{ARRAY [1. .numEntries] of MCEntry} 



PROCEDURE InitMenus; 

INLINE $A930; 
FUNCTION NewMenu (menuID: INTEGER; menuTitle : Str255): MenuHandle; 

INLINE $A931; 
FUNCTION GetMenu (resourcelD: INTEGER): MenuHandle; 

INLINE $A9BF; 
PROCEDURE DisposeMenu (theMenu: MenuHandle); 

INLINE $A932; 
PROCEDURE AppendMenu (menu: MenuHandle; data : Str255); 

INLINE $A933; 
PROCEDURE AddResMenu (theMenu: MenuHandle; thelype : ResType) ; 

INLINE $A94D; 
PROCEDURE InsertResMenu (theMenu: MenuHandle; thelype : ResType; afterltem: INTEGER), 

INLINE $A951; 
PROCEDURE InsertMenu (theMenu: MenuHandle; beforelD : INTEGER); 

INLINE $A935; 
PROCEDURE DrawMenuBar; 

INLINE $A937; 
PROCEDURE InvalMenuBar; 

INLINE $A81D; 
PROCEDURE DeleteMenu (menuID: INTEGER); 

INLINE $A936; 
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009574 PROCEDURE ClearMenuBar; 

009575 INLINE $A934; 

009576 FUNCTION GetNewMBar (menuBarlD : INTEGER): Handle; 

009577 INLINE $A9C0; 

009578 FUNCTION GetMenuBar: Handle; 

009579 INLINE $A93B; 

009580 PROCEDURE SetMenuBar (menuList : Handle); 

009581 INLINE $A93C; 

009582 PROCEDURE InsMenuItem (theMenu : MenuHandle; itemStrlng : Str255; afterltem: INTEGER); 

009583 INLINE $A826; 

009584 PROCEDURE DelMenuItem (theMenu : MenuHandle; item: INTEGER); 

009585 INLINE $A952; 

009586 FUNCTION MenuKey(ch: CHAR): LONGINT; 

009587 INLINE $A93E; 

009588 PROCEDURE HiliteMenu (menuID : INTEGER); 

009589 INLINE $A938; 

009590 PROCEDURE Setltem (theMenu : MenuHandle; item: INTEGER; itemStrlng: Str255); 

009591 INLINE $A947; 

009592 PROCEDURE Get Item (theMenu : MenuHandle; item: INTEGER; VAR ItemStrlng: Str255); 

009593 INLINE $A946; 

009594 PROCEDURE Disableltem (theMenu : MenuHandle; item: INTEGER); 

009595 INLINE $A93A; 

009596 PROCEDURE Enableltem (theMenu : MenuHandle; item: INTEGER); 

009597 INLINE $A939; 

009598 PROCEDURE Checkltem (theMenu : MenuHandle; item: INTEGER; checked: BOOLEAN); 

009599 INLINE $A945; 

009600 PROCEDURE SetltemMark (theMenu: MenuHandle; item: INTEGER; markChar : CHAR); 

009601 INLINE $A944; 

009602 PROCEDURE Get ItemMark (theMenu : MenuHandle; item: INTEGER; VAR markChar: CHAR); 

009603 INLINE $A943; 

009604 PROCEDURE Set Itemlcon (theMenu : MenuHandle; item: INTEGER; iconlndex: Byte); 

009605 INLINE $A940; 

009606 PROCEDURE Getltemlcon (theMenu : MenuHandle; item: INTEGER;VAR iconlndex: Byte); 

009607 INLINE $A93F; 

009608 PROCEDURE SetltemStyle (theMenu : MenuHandle; item: INTEGER; chStyle : Style); 

009609 INLINE $A942; 

009610 PROCEDURE Get ItemStyle (theMenu : MenuHandle; item: INTEGER; VAR chStyle: Style); 

009611 PROCEDURE CalcMenuSize (theMenu : MenuHandle); 

009612 INLINE $A948; 

009613 FUNCTION CountMItems (theMenu : MenuHandle): INTEGER; 

009614 INLINE $A950; 

009615 FUNCTION GetMHandle (menuID : INTEGER): MenuHandle; 

009616 INLINE $A949; 

009617 PROCEDURE FlashMenuBar (menuID : INTEGER); 

009618 INLINE $A94C; 

009619 PROCEDURE SetMenuFlash (count : INTEGER); 

009620 INLINE $A94A; 

009621 FUNCTION MenuSelect (startPt : Point): LONGINT; 

009622 INLINE $A93D; 

009623 PROCEDURE InitProcMenu (resID : INTEGER); 

009624 INLINE $A808; 

009625 PROCEDURE Get ItemCmd (theMenu : MenuHandle; item: INTEGER;VAR cmdChar: CHAR); 

009626 INLINE $A84E; 

009627 PROCEDURE Set ItemCmd (theMenu : MenuHandle; item: INTEGER; cmdChar : CHAR); 

009628 INLINE $A84F; 

009629 FUNCTION PopUpMenuSelect (menu : MenuHandle; top : INTEGER; left : INTEGER;popUpItem: INTEGER): LONGINT; 
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009630 INLINE $A80B; 

009631 FUNCTION MenuChoice: LONGINT; 

009632 INLINE $AA66; 

009633 PROCEDURE DelMCEntries (menuID : INTEGER; menultem: INTEGER); 

009634 INLINE $AA60; 

009635 FUNCTION GetMCInfo: MCTableHandle; 

009636 INLINE $AA61; 

009637 PROCEDURE SetMCInf o (menuCTbl : MCTableHandle); 

009638 INLINE $AA62; 

009639 PROCEDURE DispMCInfo (menuCTbl : MCTableHandle); 

009640 INLINE $AA63; 

009641 FUNCTION GetMCEntry (menuID : INTEGER; menultem : INTEGER): MCEntryPtr; 

009642 INLINE $AA64; 

009643 PROCEDURE SetMCEntries (numEntries : INTEGER; menuCEntrles : MCTablePtr) ; 

009644 INLINE $AA65; 
009645 

009646 

009647 {$ENDC) { UsingMenus ) 

009648 

009649 {$IFC NOT Uslnglncludes) 

009650 END. 

009651 {$ENDC} 
009652 

009653 

009654 ### END OF FILE Menus. p 

009655 
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009656 
009657 
009658 
009659 
009660 
009661 
009662 
009663 
009664 
009665 
009666 
009667 
009668 
009669 
009670 
009671 
009672 
009673 
009674 
009675 
009676 
009677 
009678 
009679 
009680 
009681 
009682 
009683 
009684 
009685 
009686 
009687 
009688 
009689 
009690 
009691 
009692 
009693 
009694 
009695 
009696 
009697 
009698 
009699 
009700 
009701 
009702 
009703 
009704 
009705 
009706 
009707 
009708 
009709 
009710 
009711 



##################################################################### 
### FILE: MIDI.p 
##################################################################### 



Created: Tuesday, November 26, 1991 at 3:28 PM 
MIDI.p 
Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 1988-1991 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 
{$ENDC) 

{$IFC NOT Usinglncludes) 

UNIT MIDI; 

INTERFACE 
{$ENDC} 

{$IFC UNDEFINED UsingMIDI} 
{$SETC UsingMIDI := 1} 

($1+) 

{$SETC MIDIIncludes := Usinglncludes) 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingTypes} 

{$1 $$Shell (Plnterfaces)Types.p) 

{$ENDC} 

{$SETC Usinglncludes := MIDIIncludes) 



CONST 

midiloolNum = 4; 
midiMaxNameLen = 31; 

{ Time formats ) 
midiFormatMSec = 0; 
midiFormatBeats ^ 1; 
midiFormat24fpsBit = 
midiFormat25f psBit 
midiFormatSOfpsDBit 
midiFormat30fpsBit 
midiFormat24fpsQF = 
midiFormat25f psQF - 
midiFormatSOfpsDQF 
midiFormat30fpsQF ^ 
midilnternalSync - 
midiExternalSync - 



= 2; 
= 3; 

= 4; 
= 5; 
6; 

7; 



{tool number of MIDI Manager for SndDispVersion call) 
{maximum number of characters in port and client names} 



{milliseconds} 

{beats} 

{ 24 frames/sec . ) 

{25 frames/sec. ) 

{30 frames/sec. drop-frame} 

{ 30 frames/sec . ) 

{24 frames/sec. longint format ) 

{25 frames/sec. longint format ) 

{30 frames/sec. drop-frame longint format } 

{30 frames/sec. longint format ) 

{internal sync} 

{external sync} 



{ Port types) 
midiPortlypelime ^ 0; 



{time port} 
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009712 mldiPortTypelnput = 1; {input port) 

009713 mldiPortTypeOutput = 2; {output port) 

009714 midiPortTypeTimelnv ^ 3; {invisible time port) 
009715 

009716 { OffsetTimes ) 

009717 midiGetEverything = $7FFFFFFF; {get all packets, regardless of time stamps) 

009718 midlGetNothing = $80000000; {get no packets, regardless of time stamps} 

009719 midlGetCurrent = $00000000; {get current packets only} 
009720 

009721 { MIDI data and messages are passed in MIDIPacket records (see below) . 

009722 The first byte of every MIDIPacket contains a set of flags 
009723 

009724 bits 0-1 00 = new MIDIPacket, not continued 

009725 01 = begining of continued MIDIPacket 

009726 10 = end of continued MIDIPacket 

009727 11 = continuation 

009728 bits 2-3 reserved 
009729 

009730 bits 4-6 000 = packet contains MIDI data 

009731 

009732 001 ^ packet contains MIDI Manager message 

009733 

009734 bit 7 = MIDIPacket has valid stamp 

009735 1 ^ stamp with current clock } 

009736 midiContMask = $03; 

009737 midlNoCont = $00; 

009738 midiStartCont = $01; 

009739 midlMidCont = $03; 

009740 midlEndCont = $02; 

009741 midlTypeMask = $70; 

009742 midlMsglype = $00; 

009743 midlMgrlype = $10; 

009744 midilimeStampMask = $80; 

009745 midiTimeStampCurrent = $80; 

009746 midlTimeStampValid = $00; 
009747 

009748 { MIDI Manager MIDIPacket command words (the first word in the data field 

009749 for midlMgrlype messages) } 

009750 midiOverfiowErr = $0001; 

009751 midiSCCErr = $0002; 

009752 midiPacketErr = $0003; 

009753 midlMaxErr = $00FF; {all command words less than this value are error indicators} 
009754 

009755 { Valid results to be returned by readHooks ) 

009756 midlKeepPacket = 0; 

009757 midlMorePacket = 1; 

009758 midlNoMorePacket = 2; 
009759 

009760 { Errors: } 

009761 midlNoClientErr = -250; {no client with that ID found} 

009762 midlNoPortErr = -251; {no port with that ID found) 

009763 midilooManyPortsErr ^ -252; {too many ports already installed in the system) 

009764 midilooManyConsErr = -253; {too many connections made) 

009765 midiVConnectErr ^ -254; {pending virtual connection created) 

009766 midiVConnectMade - -255; {pending virtual connection resolved) 
.009767 midiVConnectRmvd - -256; {pending virtual connection removed) 
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009768 


midlNoConErr = -257; 




{no connection exists between specified ports} 




009769 


mldiWriteErr = -258; 




{MIDIWritePacket couldn't write to all connected ports} 




009770 


midlNameLenErr = -259; 




{name supplied is longer than 31 characters} 




009771 


mldlDupIDErr = -260; 




{duplicate client ID} 




009772 


midilnvalidCmdErr = -261 


; 


{command not supported for port type} 




009773 










009774 


{ Driver calls: } 








009775 


midiOpenDriver = 1; 








009776 


midiCloseDriver ^ 2; 








009777 










009778 


TYPE 








009779 


MIDIPacketPtr = "MIDIPacket; 






009780 


MIDIPacket = PACKED RECORD 






009781 


flags: Byte; 








009782 


len: Byte; 








009783 


tStamp: LONGINT; 








009784 


data: PACKED ARRAY [0.. 


248] OF Byte; 




009785 


END; 








009786 










009787 


MIDIClklnfo = RECORD 








009788 


sync: INTEGER; 




{synchronization external/internal} 




009789 


curTime: LONGINT; 




{current value of port's clock} 




009790 


format: INTEGER; 




{time code format} 




009791 


END; 








009792 










009793 


MIDIIDRec = RECORD 








009794 


clientlD: OSType; 








009795 


portID: OSType; 








009796 


END; 








009797 










009798 


MIDIPortlnfoPtr = ''MIDIP 


ortinf o; 






009799 


MIDIPortlnfoHdl = ''MIDIP 


ortlnfoPtr; 






009800 


MIDIPortlnfo = RECORD 








009801 


portType: INTEGER; 




{type of port} 




009802 


timeBase: MIDIIDRec; 




{MIDIIDRec for time base) 




009803 


numConnects: INTEGER; 




{number of connections} 




009804 


cList: ARRAY [1. .1] OF 


MIDIIDRec; 


{-r or $R- permits access to [ 1 .. numConnects] of MIDIIDRec} 




009805 


END; 








009806 










009807 


MIDIPortParamsPtr = ^MIDIPortParams 






009808 


MIDIPortParams = RECORD 








009809 


portID: OSType; 




{ID of port, unique within client} 




009810 


portType: INTEGER; 




{Type of port - input, output, time, etc.} 




009811 


timeBase: INTEGER; 




{refnura of time base, if none} 




009812 


offsetTime: LONGINT; 




{offset for current time stamps} 




009813 


readHook: Ptr; 




{routine to call when input data is valid} 




009814 


refCon: LONGINT; 




{refcon for port (for client use) } 




009815 


initClock: MIDIClklnfo; 




{initial settings for a time base} 




009816 


name: Str255; 




{name of the port. This is a real live string, not a ptr.} 




009817 


END; 








009818 










009819 


MIDIIDListPtr = ^MIDIIDL 


ist; 






009820 


MIDIIDListHdl = "MIDIIDL 


istPtr; 






009821 


MIDIIDList = RECORD 








009822 


numlDs: INTEGER; 








009823 


list: ARRAY [1..1] OF OSType; 


{ -r or $R- permits access to [l..numIDs] of OSType ) 
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009824 


009825 


009826 


009827 


009828 


009829 


009830 


009831 


009832 


009833 


009834 


009835 


009836 


009837 


009838 


009839 


009840 


009841 


009842 


009843 


009844 


009845 


009846 


009847 


009848 


009849 


009850 


009851 


009852 


009853 


009854 


009855 


009856 


009857 


009858 


009859 


009860 


009861 


009862 


009863 


009864 


009865 


009866 


009867 


009868 


009869 


009870 


009871 


009872 


009873 


009874 


009875 


009876 


009877 


009878 


009879 



END; 



Prototype Declarations for readHook and timeProc 

FUNCTION myReadHook (myPacket: MIDIPacketPtr; myRefCon: LONGINT) : INTEGER; 
PROCEDURE myTimeProc (curTime: LONGINT; myRefCon: LONGINT); 
) 

FUNCTION SndDispVersion (toolnum: INTEGER): LONGINT; 

FUNCTION MIDISignIn (clientlD: OSType; ref Con : LONGINT; icon : Handle; name : Str255): OSErr; 

INLINE $2030, $0004 , midlToolNum, $A800; 
PROCEDURE MIDISignOut (clientlD: OSType); 

INLINE $2030, $0008,midiToolNum, $A800; 
FUNCTION MIDIGetClients : MIDIIDListHdl; 

INLINE $2030, $000C,mldiToolNum, $A800; 
PROCEDURE MIDIGetClientName (clientlD: OSType;VAR name: Str255); 

INLINE $2030, $0010 , midiToolNum, $A800; 
PROCEDURE MIDISetClientName (clientlD: OSType;name: Str255); 

INLINE $2030, $0014, midiToolNum, $A800; 
FUNCTION MIDIGetPorts (clientlD: OSType): MIDIIDListHdl; 

INLINE $2030, $0018, midiToolNum, $A800; 
FUNCTION MIDIAddPort (clientlD: OSType; Buf Size : INTEGER;VAR refnum: INTEGER; 

init: MIDIPortParamsPtr) : OSErr; 

INLINE $2030, $0010, midiToolNum, $A800; 
FUNCTION MIDIGetPortlnfo (clientlD: OSType; portID : OSType): MIDIPortInf oHdl; 

INLINE $2030, $0020 , midiToolNum, $A800; 
FUNCTION MIDIConnectData (srcClID: OSType; srcPort ID : OSType; dstClID : OSType; 

dstPortID: OSType) : OSErr; 

INLINE $2030, $0024, midiToolNum, $A800; 
FUNCTION MIDIUnConnectData (srcClID: OSType; srcPort ID : OSType; dstClID : OSType; 

dstPortID: OSType) : OSErr; 

INLINE $2030, $002 8 , midiToolNum, $A800; 
FUNCTION MIDIConnectTime (srcClID: OSType; srcPort ID : OSType; dstClID : OSType; 

dstPortID: OSType) : OSErr; 

INLINE $2030, $0020, midiToolNum, $A800; 
FUNCTION MIDIUnConnectTime (srcClID: OSType; srcPort ID : OSType; dstClID : OSType; 

dstPortID: OSType) : OSErr; 

INLINE $2030, $0030 , midiToolNum, $A800; 
PROCEDURE MIDIFlush (refnum: INTEGER); 

INLINE $203C, $0034, midiToolNum, $A800; 
FUNCTION MIDIGetReadHook (refnum: INTEGER): ProcPtr; 

INLINE $2030, $0038, midiToolNum, $A800; 
PROCEDURE MIDISetReadHook (refnum: INTEGER; hook : ProcPtr); 

INLINE $2030, $0030, midiToolNum, $A800; 
PROCEDURE MIDIGetPortName (clientlD: OSType; portID : OSType;VAR name: Str255); 

INLINE $2030, $0040 , midiToolNum, $A800; 
PROCEDURE MIDISetPortName (ClientlD: OSType; portID : OSType;name: Str255); 

INLINE $2030, $0044, midiToolNum, $A800; 
PROCEDURE MIDIWakeUp (refnum: INTEGER; time : LONGINT; period: LONGINT; timeProc : ProcPtr); 

INLINE $2030, $004 8 , midiToolNum, $A800; 
PROCEDURE MIDIRemovePort (refnum: INTEGER); 

INLINE $2030, $0040, midiToolNum, $A800; 
FUNCTION MIDIGetSync (refnum: INTEGER): INTEGER; 

INLINE $2030, $0050 , midiToolNum, $A800; 
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009880 PROCEDURE MIDISetSync (refnum: INTEGER; sync : INTEGER); 

009881 INLINE $203C, $0054,mldiToolNum, $A800; 

009882 FUNCTION MIDIGetCurTime (refnum: INTEGER): LONGINT; 

009883 INLINE $203C, $0058,midiToolNum, $A800; 

009884 PROCEDURE MIDISetCurTime (refnum: INTEGER; time : LONGINT); 

009885 INLINE $203C, $005C,mldiToolNum, $A800; 

009886 PROCEDURE MIDIStartTime (refnum: INTEGER); 

009887 INLINE $203C, $0060,mldiToolNum, $A800; 

009888 PROCEDURE MIDIStopTime (refnum: INTEGER); 

009889 INLINE $203C, $0064,midiToolNum, $A800; 

009890 PROCEDURE MIDIPoll (refnum: INTEGER; of fsetTime : LONGINT); 

009891 INLINE $203C, $0068 , mldlToolNum, $A800 ; 

009892 FUNCTION MIDIWritePacket (refnum: INTEGER; packet : MIDIPacketPtr) : OSErr; 

009893 INLINE $203C, S006C,midiToolNum, $A800; 

009894 FUNCTION MIDIWorldChanged{cllentID: OSType) : BOOLEAN; 

009895 INLINE $2a3C, $0070,midiToolNum, $A800; 

009896 FUNCTION MIDIGetOf fsetTime (refnum: INTEGER): LONGINT; 

009897 INLINE $203C, $0074,midiToolNum, $A800; 

009898 PROCEDURE MIDISetOf fsetTime (refnum: INTEGER; of fsetTime : LONGINT); 

009899 INLINE $203C, $0078,midiToolNum, $A800; 

009900 FUNCTION MIDIConvertTime (srcFormat: INTEGER; dstFormat : INTEGER; time : LONGINT): LONGINT; 

009901 INLINE $2030, $007C, midiToolNum, $A800 ; 

009902 FUNCTION MIDIGetRefCon (refnum: INTEGER): LONGINT; 

009903 INLINE $203C, $0080,midiToolNum, $A800; 

009904 PROCEDURE MIDISetRefCon (refnum: INTEGER; ref Con : LONGINT); 

009905 INLINE $203C, $0084,midiToolNum, $A800; 

009906 FUNCTION MIDIGetClRefCon (clientlD: OSType): LONGINT; 

009907 INLINE $203C, $0088,midiToolNum, $A800; 

009908 PROCEDURE MIDISetClRefCon (ClientlD: OSType; ref Con : LONGINT); 

009909 INLINE $203C, $008C,midiToolNum, $A800; 

009910 FUNCTION MIDIGetTCFormat (refnum: INTEGER): INTEGER; 

009911 INLINE $203C, $0090, midlToolNum, $A800 ; 

009912 PROCEDURE MIDISetTCFormat (refnum: INTEGER; format : INTEGER); 

009913 INLINE $203C, $00 94 , midlToolNum, $A800 ; 

009914 PROCEDURE MIDISetRunRate (refnum: INTEGER; rate : INTEGER; time : LONGINT); 

009915 INLINE $203C, $00 98 , midlToolNum, $A800 ; 

009916 FUNCTION MIDIGetClientlcon (clientlD: OSType): Handle; 

009917 INLINE $203C, $00 90, midlToolNum, $A800 ; 
009918 

009919 

009920 {$ENDC} { UsingMIDI } 

009921 

009922 {$IFC NOT Usinglncludes ) 

009923 END. 

009924 {$ENDC} 
009925 

009926 

009927 ### END OF FILE MIDI.p 

009928 
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009929 

009930 ##################################################################### 

009931 ### FILE: Notification .p 

009932 ##################################################################### 
009933 

009934 

009935 { 

009936 Created: Tuesday, September 10, 1991 at 2:10 PM 

009937 Notification. p 

009938 Pascal Interface to the Macintosh Libraries 
009939 

009940 Copyright Apple Computer, Inc. 1989-1991 

009941 All rights reserved 

009942 ) 
009943 
009944 

009945 {$IFC UNDEFINED Usinglncludes } 

009946 {$SETC Usinglncludes := 0} 

009947 {$ENDC} 
009948 

009949 {$IFC NOT Usinglncludes) 

009950 UNIT Notification; 

009951 INTERFACE 

009952 {$ENDC} 
009953 

009954 {$IFC UNDEFINED UsingNotif ication } 

009955 {$SETC UsingNotification := 1} 
009956 

009957 {$1+) 

009958 {$SETC Notificationlncludes := Usinglncludes) 

009959 {$SETC Usinglncludes := 1} 

009960 {$IFC UNDEFINED UsingTypes} 

009961 {$1 $$Shell (Plnterfaces)Types.p) 

009962 {$ENDC} 

009963 {$IFC UNDEFINED UsingOSUtils ) 

009964 {$1 $$Shell (Plnterfaces)OSUtils.p} 

009965 {$ENDC} 

009966 {$SETC Usinglncludes := Notificationlncludes) 
009967 

009968 CONST 

009969 nmType = 8; 
009970 

009971 TYPE 

009972 NMProcPtr = ProcPtr; 
009973 

009974 NMRecPtr = ^NMRec; 

009975 NMRec = RECORD 

009976 qLink: QElemPtr; {next queue entry} 

009977 qType: INTEGER; {queue type — ORD(nmType) = 8} 

009978 nmFlags: INTEGER; {reserved} 
00997 9 nmPrivate: LONGINT; {reserved} 

009980 nmReserved: INTEGER; {reserved} 

009981 nmMark: INTEGER; {item to mark in Apple menu) 

009982 nmlcon: Handle; {handle to small icon} 

009983 nraSound: Handle; {handle to sound record) 
.009984 nraStr: StrinqPtr; {string to appear in alert} 
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009985 
009986 
009987 
009988 
009989 
009990 
009991 
009992 
009993 
009994 
009995 
009996 
009997 
009998 
009999 
010000 
010001 
010002 
010003 
010004 



nmResp: NMProcPtr; 
nmRefCon: LONGINT; 
END; 



{pointer to response routine} 
{for application use} 



FUNCTION NMInstall (nmReqPtr: NMRecPtr) : OSErr; 

INLINE $205F, $A05E, $3E80; 
FUNCTION NMRemove (nitiReqPtr: NMRecPtr): OSErr; 

INLINE $205F, $A05F, $3E80; 



{$ENDC} { UsingNotification } 



{$IFC NOT Usinglncludes} 
END. 
{$ENDC} 



### END OF FILE Notification . p 
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010005 

010006 ##################################################################### 

010007 ### FILE: Objintf.p 

010008 ##################################################################### 
010009 

010010 { 

010011 File: Objintf.p 
010012 

010013 Pascal Interface to the Macintosh Libraries 

010014 Copyright Apple Computer, Inc. 1986 - 1988 

010015 All rights reserved. 

010016 ) 
010017 

010018 UNIT Objintf; 

010019 

010020 INTERFACE 

010021 

010022 TYPE 

010023 TObject = OBJECT 

010024 FUNCTION ShallowClone : TObject; 

010025 {Lowest level method for copying an object; should not be overridden 

010026 except in very unusual cases. Simply calls HandToHand to copy 

010027 the object data.) 

010028 FUNCTION Clone: TObject; 

010029 {Defaults to calling ShallowClone; can be overridden to copy objects 

010030 refered to by fields.} 

010031 PROCEDURE ShallowFree; 

010032 {Lowest level method for freeing an object; should not be overridden 

010033 except in very unusual cases. Simply calls DisposHandle to 

010034 free the object data.} 

010035 PROCEDURE Free; 

010036 {Defaults to calling ShallowFree; can be overridden to free objects 

010037 refered to by fields.} 
010 3 8 END ; 

010039 

010040 

010041 END. 

010042 

010043 ### END OF FILE Objintf.p 

010044 
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010045 

010046 ##################################################################### 

010047 ### FILE: OSEvents.p 

010048 ##################################################################### 
010049 

010050 { 

010051 Created: Sunday, January 6, 1991 at 10:51 PM 

010052 OSEvents.p 

010053 Pascal Interface to the Macintosh Libraries 
010054 

010055 Copyright Apple Computer, Inc. 1985-1990 

010056 All rights reserved 

010057 ) 
010058 
010059 

010060 {$IFC UNDEFINED Usinglncludes } 

010061 {$SETC Usinglncludes := 0} 

010062 {$ENDC} 
010063 

010064 {$IFC NOT Usinglncludes) 

010065 UNIT OSEvents; 
0100 6 6 INTERFACE 
010067 {$ENDC) 

010068 

010069 {$IFC UNDEFINED UsingOSEvent s } 

010070 {$SETC UsingOSEvents := 1} 
010071 

010072 {$1+) 

010073 {$SETC OSEventsIncludes := Usinglncludes) 

010074 {$SETC Usinglncludes := 1} 

010075 {$IFC UNDEFINED UsingTypes) 

010076 {$1 $$Shell (PInterfaces) Types. p) 

010077 {$ENDC) 

010078 {$IFC UNDEFINED UsingEvents) 

010079 {$1 $$Shell (Plnterfaces)Events.p) 

010080 {$ENDC} 

010081 {$IFC UNDEFINED UsingOSUtils ) 

010082 {$1 $$Shell (PInterfaces) OSUtils.p} 

010083 {$ENDC) 

010084 {$SETC Usinglncludes := OSEventsIncludes) 
010085 

010086 FUNCTION PostEvent (eventNum: INTEGER; eventMsg: LONGINT) : OSErr; 

010087 FUNCTION PPostEvent (eventCode: INTEGER; eventMsg: LONGINT;VAR qEl: EvQElPtr) : OSErr; 

010088 FUNCTION OSEventAvail (mask: INTEGER;VAR theEvent : EventRecord) : BOOLEAN; 

010089 FUNCTION GetOSEvent (mask: INTEGER; VAR theEvent: EventRecord): BOOLEAN; 

010090 PROCEDURE FlushEvent s (whichMask : INTEGER; stopMask : INTEGER); 

010091 INLINE $201F,$A032; 

010092 PROCEDURE SetEventMask (theMask : INTEGER); 

010093 INLINE $31DF,$0144; 

010094 FUNCTION GetEvQHdr: QHdrPtr; 

010095 INLINE $2EBC, $0000, $014A; 
010096 

010097 

010098 {$ENDC} { UsingOSEvents ) 
010099 

.010100 {$IFC NOT Usinglncludes) 
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010101 
010102 
010103 
010104 
010105 
010106 



END. 

{$ENDC} 



### END OF FILE OSEvents.p 
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010107 

010108 ##################################################################### 

010109 ### FILE: OSIntf.p 

010110 ##################################################################### 
010111 

010112 { 

010113 File: OSIntf.p 
010114 

010115 As of MPW 3.0, interface files were reorganized to more closely 

010116 match "Inside Macintosh" reference books and be more consistant 

010117 from language to language. 
010118 

010119 Interfaces for the Operating System calls are now found in the 

010120 files included below. This file is provided for compatibility 

010121 with old sources. 
010122 

010123 Pascal Interface to the Macintosh Libraries 

010124 Copyright Apple Computer, Inc. 1988 

010125 All Rights Reserved 

010126 ) 
010127 

010128 {$IFC UNDEFINED Usinglncludes } 

010129 {$SETC Usinglncludes := 0} 

010130 {$ENDC) 
010131 

010132 {$IFC NOT Usinglncludes) 

010133 UNIT OSIntf; 

010134 INTERFACE 

010135 {$ENDC) 
010136 

010137 {$IFC UNDEFINED UsingOSIntf) 

010138 {$SETC UsingOSIntf := 1) 
010139 

010140 {$1+) 

010141 {$SETC OSIntf Includes := Usinglncludes) 

010142 {$SETC Usinglncludes := 1) 

010143 {$IFC UNDEFINED UsingEvents) 

010144 {$1 5$Shell (PInterfaces) Events. p) 

010145 {$ENDC) 

010146 {$IFC UNDEFINED UsingOSUtils ) 

010147 {$1 5$Shell (PInterfaces)0SUtil3.p) 

010148 {$ENDC) 

010149 {$IFC UNDEFINED UsingFiles) 

010150 {$1 $$Shell (PInterfaces) Files. p) 

010151 {$ENDC) 

010152 {$IFC UNDEFINED UsingDevices ) 

010153 {$1 $$Shell (Plnterfaces)Devices.p) 

010154 {$ENDC) 

010155 {$IFC UNDEFINED UsingDeskBus ) 

010156 {$1 $$Shell (PInterfaces) DeskBus .p) 

010157 {$ENDC) 

010158 {$IFC UNDEFINED UsingDisklnit } 

010159 {$1 $$Shell (Plnterfaces)Disklnit .p) 

010160 {$ENDC) 

010161 {$IFC UNDEFINED UsingDisks) 
.010162 {$1 $$Shell (PInterfaces) Disks. p) 
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010163 {$ENDC) 

010164 {$IFC UNDEFINED UsingErrors) 

010165 {$1 5$Shell (Plnterfaces)Errors.p) 

010166 {$ENDC) 

010167 {$IFC UNDEFINED UsingMemory) 

010168 {$1 5$Shell (Plnterfaces)Memory .p) 

010169 {$ENDC) 

010170 {$IFC UNDEFINED UsingOSEvent s } 

010171 {$1 5$Shell (Plnterfaces)OSEvents .p} 

010172 {$ENDC) 

010173 {$IFC UNDEFINED UsingRetrace ) 

010174 {$1 5$Shell (PInterfaces) Retrace. p} 

010175 {$ENDC) 

010176 {$IFC UNDEFINED UsingSegLoad) 

010177 {$1 $$Shell (PInterfaces) SegLoad.p} 

010178 {$ENDC) 

010179 {$IFC UNDEFINED UsingSerlal) 

010180 {$1 5$Shell (PInterfaces) Serial. p) 

010181 {$ENDC) 

010182 {$IFC UNDEFINED UsingShutDown } 

010183 {$1 $$Shell (PInterfaces) ShutDown.p} 

010184 {$ENDC) 

010185 {$IFC UNDEFINED UsingSlots) 

010186 {$1 $$Shell (PInterfaces) Slots. p) 

010187 {$ENDC) 

010188 {$IFC UNDEFINED UsingSound) 

010189 {$1 $$Shell (PInterfaces) Sound. p) 

010190 {$ENDC) 

010191 {$IFC UNDEFINED UsingStart) 

010192 {$1 5$Shell (PInterfaces) Start .p) 

010193 {$ENDC) 

010194 {$IFC UNDEFINED UsingTimer) 

010195 {$1 5$Shell (PInterfaces) Timer. p) 

010196 {$ENDC) 

010197 {$SETC Usinglncludes := OSIntf Includes ) 
010198 

010199 {$ENDC) { UsingOSIntf } 
010200 

010201 {$IFC NOT Usinglncludes) 

010202 END. 

010203 {$ENDC} 
010204 

010205 

010206 ### END OF FILE OSIntf. p 

010207 



9/2/99 10:00 AM David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL Page 204 



010208 

01020 9 ##################################################################### 

010210 ### FILE: OSUtils.p 

010211 ##################################################################### 
010212 

010213 { 

010214 Created: Sunday, January 6, 1991 at 10:51 PM 

010215 OSUtils.p 

010216 Pascal Interface to the Macintosh Libraries 
010217 

010218 Copyright Apple Computer, Inc. 1985-1990 

010219 All rights reserved 

010220 ) 
010221 
010222 

010223 {$IFC UNDEFINED Usinglncludes } 

010224 {$SETC Usinglncludes := 0} 

010225 {$ENDC} 
010226 

010227 {$IFC NOT Usinglncludes) 

010228 UNIT OSUtils; 
01022 9 INTERFACE 
010230 {$ENDC) 

010231 

010232 {$IFC UNDEFINED UsingOSUtils ) 

010233 {$SETC UsingOSUtils := 1) 
010234 

010235 {$1+) 

010236 {$SETC OSUt ilslncludes := Usinglncludes) 

010237 {$SETC Usinglncludes := 1} 

010238 {$IFC UNDEFINED UsingTypes) 

010239 {$1 $$Shell (PInterfaces) Types. p) 

010240 {$ENDC) 

010241 {$SETC Usinglncludes := OSUtilsIncludes ) 
010242 

010243 CONST 

010244 useFree = 0; 

010245 useATalk = 1; 

010246 useAsync = 2; 

010247 useExtClk = 3; {Externally clocked) 

010248 useMIDI = 4 ; 
010249 

010250 {*** Environs Equates ***} 

010251 curSysEnvVers ^ 2; {Updated to equal latest SysEnvirons version) 
010252 

010253 { Machine Types ) 

010254 envMac = -1; 

010255 envXL = -2; 

010256 envMachUnknown = 0; 

010257 env512KE = 1; 

010258 envMacPlus = 2; 

010259 envSE = 3; 

010260 envMacII = 4; 

010261 envMacIIx = 5; 

010262 envMacIIcx = 6; 
.010263 envSE30 = 7; 
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010264 
010265 
010266 
010267 
010268 
010269 
010270 
010271 
010272 
010273 
010274 
010275 
010276 
010277 
010278 
010279 
010280 
010281 
010282 
010283 
010284 
010285 
010286 
010287 
010288 
010289 
010290 
010291 
010292 
010293 
010294 
010295 
010296 
010297 
010298 
010299 
010300 
010301 
010302 
010303 
010304 
010305 
010306 
010307 
010308 
010309 
010310 
010311 
010312 
010313 
010314 
010315 
010316 
010317 
010318 
010319 {QElemPtr 



envPortable — 8; 
envMacIIci — 9; 
envMacIIfx = 11; 

{ CPU types ) 
envCPUUnknown = ; 
env68000 = 1; 
env68010 = 2; 
env68020 = 3; 
env68030 = 4; 
env68040 = 5; 

{ Keyboard types } 
envUnknownKbd - 0; 
envMacKbd = 1; 
envMacAndPad = 2; 
envMacPlusKbd = 3; 
envAExtendKbd = 4; 
envStandADBKbd = 5 
envPrtblADBKbd = 6 
envPrtbllSOKbd = 7 
envStdlSOADBKbd = 
envExtlSOADBKbd = 
false32b = 0; 
true32b = 1 ; 



{ result types for RelString Call } 
sortsBefore — -1; 
sortsEqual — 0; 
sortsAfter — 1; 



{24 bit addressing error} 
{32 bit addressing error) 



{first string < second string} 
{first string - second string} 
{first string > second string} 



TYPE 

QTypes - (dummyType, vType, ioQType, drvQType, evType, f sQType, sIQType, dtQType) ; 



TrapType 



(OSTrap, ToolTrap) 



ParamBlkType ^ (IOParara,FileParam, VoluraeParam, CntrlParam, SlotDevParam, MultiDevParam, 
AccessParara, Ob jParam, CopyParam, WDParam, FIDParara, CSParara, ForeignPrivParam) ; 



SysPPtr = '■SysParmType; 
SysParmType = PACKED RECORD 



valid; 
aTalkA 
aTalkB 
conf ig 
portA: 
portB: 
alarm; 



Byte; 
Byte; 
Byte; 
Byte; 
INTEGER; 
INTEGER; 
LONGINT; 
font: INTEGER; 
kbdPrint: INTEGER; 
volClik: INTEGER; 
misc: INTEGER; 
END; 

^QElem; } 
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010320 
010321 
010322 
010323 
010324 
010325 
010326 
010327 
010328 
010329 
010330 
010331 
010332 
010333 
010334 
010335 
010336 
010337 
010338 
010339 
010340 
010341 
010342 
010343 
010344 
010345 
010346 
010347 
010348 
010349 
010350 
010351 
010352 
010353 
010354 
010355 
010356 
010357 
010358 
010359 
010360 
010361 
010362 
010363 
010364 
010365 
010366 
010367 
010368 
010369 
010370 
010371 
010372 
010373 
010374 
010375 



QElemPtr = ^QElem; 

FInfo = RECORD 

fdType: OSType; 
fdCreator: OSType; 
fdFlags: INTEGER; 
fdLocation: Point; 
fdFldr: INTEGER; 
END; 

VCB = RECORD 

qLink: QElemPtr; 
qType: INTEGER; 
vcbFlags: INTEGER; 
vcbSigWord: INTEGER; 
vcbCrDate: LONGINT; 
vcbLsMod: LONGINT; 
vcbAtrb: INTEGER; 
vcbNmFls: INTEGER; 
vcbVBMSt : INTEGER; 
vcbAllocPtr: INTEGER 
vcbNmAlBlks : INTEGER 
vcbAlBlkSiz: LONGINT 
vcbClpSiz: LONGINT; 
vcbAlBlSt: INTEGER; 
vcbNxtCNID: LONGINT; 
vcbFreeBks: INTEGER; 
vcbVN: Str27; 
vcbDrvNum: INTEGER; 
vcbDRefNum: INTEGER; 
vcbFSID: INTEGER; 
vcbVRefNum: INTEGER; 
vcbMAdr: Ptr; 
vcbBufAdr: Ptr; 
vcbMLen: INTEGER; 
vcbDirlndex: INTEGER; 
vcbDirBlk: INTEGER; 
vcbVolBkUp: LONGINT; 
vcbVSeqNum: INTEGER; 
vcbWrCnt : LONGINT; 
vcbXTClpSiz: LONGINT 
vcbCTClpSiz: LONGINT 
vcbNmRtDirs: INTEGER 
vcbFilCnt: LONGINT; 
vcbDirCnt: LONGINT; 
vcbFndrlnfo: ARRAY [1 
vcbVCSize: INTEGER; 
vcbVBMCSiz: INTEGER; 
vcbCtlCSlz: INTEGER; 
vcbXTAlBlks: INTEGER; 
vcbCTAlBlks: INTEGER; 
vcbXTRef: INTEGER; 
vcbCTRef: INTEGER; 
vcbCtlBuf: Ptr; 
vcbDirlDM: LONGINT; 



{the type of the file} 

{file's creator} 

{flags ex. hasbundle, invisible/ locked, etc. 

{file's location in folder} 

{folder containing file} 



.8] OF LONGINT; 
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010376 


vcbOffsM: INTEGER; 




010377 


END; 




010378 






010379 


DrvQElPtr = ^DrvQEl; 




010380 


DrvQEl = RECORD 




010381 


qLink: QElemPtr; 




010382 


qType: INTEGER; 




010383 


dQDrive: INTEGER; 




010384 


dQRefNum: INTEGER; 




010385 


dQFSID: INTEGER; 




010386 


dQDrvSz: INTEGER; 




010387 


dQDrvSz2: INTEGER; 




010388 


END; 




010389 






010390 


ParmBlkPtr = -^ParamBlockRec; 




010391 


ParamBlockRec = RECORD 




010392 


qLink: QElemPtr; 




010393 


qType: INTEGER; 




010394 


loTrap: INTEGER; 




010395 


ioCmdAddr: Ptr; 




010396 


ioCompletion : ProcPtr; 




010397 


loResult: OSErr; 




010398 


ioNamePtr: StringPtr; 




010399 


ioVRefNum: INTEGER; 




010400 


CASE ParamBlkType OF 




010401 


lOParam: 




010402 


(ioRefNum: INTEGER; 




010403 


ioVersNum: SignedByte; 




010404 


loPermssn: SignedByte; 




010405 


ioMisc: Ptr; 




010406 


ioBuffer: Ptr; 




010407 


ioReqCount: LONGINT; 




010408 


ioActCount: LONGINT; 




010409 


ioPosMode: INTEGER; 




010410 


ioPosOffset: LONGINT); 




010411 


FileParam: 




010412 


(ioFRefNum: INTEGER; 




010413 


ioFVersNum: SignedByte; 




010414 


fillerl: SignedByte; 




010415 


ioFDirlndex: INTEGER; 




010416 


ioFlAttrib: SignedByte; 




010417 


ioFlVersNum: SignedByte; 




010418 


ioFlFndrlnfo : FInfo; 




010419 


ioFlNum: LONGINT; 




010420 


ioFlStBlk: INTEGER; 




010421 


ioFlLgLen: LONGINT; 




010422 


ioFlPyLen: LONGINT; 




010423 


ioFlRStBlk: INTEGER; 




010424 


ioFlRLgLen: LONGINT; 




010425 


ioFlRPyLen: LONGINT; 




010426 


ioFlCrDat: LONGINT; 




010427 


i OF IMdD at : LONG I NT ) ; 




010428 


VolumeParam: 




010429 


(filler2: LONGINT; 




010430 


ioVolIndex: INTEGER; 




010431 


ioVCrDate: LONGINT; 
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010432 loVLsBkUp: LONGINT; 

010433 loVAtrb: INTEGER; 

010434 loVNmFls: INTEGER; 

010435 ioVDlrSt: INTEGER; 

010436 loVBlLn: INTEGER; 

010437 loVNmAlBlks : INTEGER; 

010438 loVAlBlkSiz: LONGINT; 

010439 ioVClpSiz: LONGINT; 

010440 ioAlBlSt: INTEGER; 

010441 loVNxtFNum: LONGINT; 

010442 loVFrBlk: INTEGER); 

010443 CntrlParam: 

010444 (ioCRefNum: INTEGER; 

010445 csCode: INTEGER; 

010446 csParam: ARRAY [0..10] OF INTEGER); 

010447 SlotDevParam: 

010448 (filler3: LONGINT; 

010449 ioMix: Ptr; 

010450 loFlags: INTEGER; 

010451 ioSlot: SignedByte; 

010452 ioID: SignedByte); 

010453 MultiDevParam: 

010454 (filler4: LONGINT; 

010455 loMMix: Ptr; 

010456 loMFlags: INTEGER; 

010457 ioSEBlkPtr: Ptr); 

010458 END; 
010459 

010460 EvQElPtr = ^EvQEl; 
0104 61 EvQEl = RECORD 

010462 qLink: QElemPtr; 

010463 qType: INTEGER; 

010464 evtQWhat: INTEGER; {this part is identical to the EventRecord as. 

010465 evtQMessage: LONGINT; {defined in Toollntf} 

010466 evtQWhen: LONGINT; 

010467 evtQWhere: Point; 

010468 evtQModifiers: INTEGER; 
010 4 6 9 END ; 

010470 

010471 VBLTask = RECORD 

010472 qLink: QElemPtr; 

010473 qType: INTEGER; 

010474 vblAddr: ProcPtr; 

010475 vblCount: INTEGER; 

010476 vblPhase: INTEGER; 
010 4 7 7 END ; 

010478 

010479 DeferredTask = RECORD 

010480 qLink: QElemPtr; {next queue entry} 

010481 qType: INTEGER; {queue type) 

010482 dtFlags: INTEGER; {reserved} 

010483 dtAddr: ProcPtr; {pointer to task) 

010484 dtParm: LONGINT; {optional parameter) 

010485 dtReserved: LONGINT; {reserved — should be 0} 

010486 END; 
010487 
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010488 QElem = RECORD 

010489 CASE QTypes OF 

010490 dtQType: 

010491 (dtQElem: Def erredTask) ; {deferred} 

010492 vType: 

010493 (vblQElem: VBLTask) ; {vertical blanking} 

010494 ioQType: 

010495 (ioQEiem: ParamBlockRec) ; {I/O parameter block} 

010496 drvQType: 

010497 (drvQElem: DrvQEl); {drive} 

010498 evType: 

010499 (evQElem: EvQEl) ; {event} 

010500 fsQType: 

010501 (vcbQElem: VCB); {volume control block} 

010502 END; 
010503 

010504 QHdrPtr = '■QHdr; 

010505 QHdr = RECORD 

010506 qFlags: INTEGER; 

010507 qHead: QElemPtr; 

010508 qTail: QElemPtr; 
010 5 9 END ; 

010510 

010511 DateTimeRec = RECORD 

010512 year: INTEGER; 

010513 month: INTEGER; 

010514 day: INTEGER; 

010515 hour: INTEGER; 

010516 minute: INTEGER; 

010517 second: INTEGER; 

010518 dayOfWeek: INTEGER; 
010 519 END ; 

010520 

010521 SysEnvRec = RECORD 

010522 environsVersion: INTEGER; 

010523 machlneType: INTEGER; 

010524 systemVersion: INTEGER; 

010525 processor: INTEGER; 

010526 hasFPU: BOOLEAN; 

010527 hasColorQD: BOOLEAN; 

010528 keyBoardType: INTEGER; 
01052 9 atDrvrVersNum: INTEGER; 
010530 sysVRefNum: INTEGER; 
010 5 31 END ; 

010532 
010533 

010534 FUNCTION GetSysPPtr: SysPPtr; 

010535 INLINE $2EBC, $0000, $01F8 ; 

010536 PROCEDURE SysBeep (duration : INTEGER); 

010537 INLINE $A9C8; 

010538 FUNCTION KeyTrans (transData : Ptr;keycode: INTEGER;VAR state: LONGINT) : LONGINT; 

010539 INLINE $A9C3; 

010540 FUNCTION DTInstall (dtTaskPt r : QElemPtr): OSErr; 

010541 FUNCTION GetMMUMode : SignedByte; 

010542 PROCEDURE SwapMMUMode { VAR mode : SignedByte); 

010543 FUNCTION SysEnvirons (versionRequested: INTEGER; VAR theWorld: SysEnvRec): OSErr; 



' N 
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010544 FUNCTION ReadDateTime (VAR time: LONGINT) : OSErr; 

010545 PROCEDURE GetDateTime (VAR sees: LONGINT); 

010546 FUNCTION SetDateTime (time: LONGINT): OSErr; 

010547 PROCEDURE SetTime{d: DateTimeRec) ; 

010548 PROCEDURE GetTime (VAR d: DateTimeRec); 

010549 PROCEDURE Date2Secs(d: DateTimeRec; VAR sees: LONGINT); 

010550 PROCEDURE Secs2Date (sees : LONGINT; VAR d: DateTimeRec); 

010551 PROCEDURE Delay (numTicks : LONGINT; VAR f inalTicks : LONGINT); 

010552 FUNCTION GetTrapAddress (trapNum : INTEGER): LONGINT; 

010553 PROCEDURE SetTrapAddress (trapAddr : LONGINT; trapNum: INTEGER); 

010554 FUNCTION NGetTrapAddress (trapNum: INTEGER; tTyp : TrapType) : LONGINT; 

010555 PROCEDURE NSetTrapAddress (trapAddr : LONGINT; trapNum: INTEGER; tTyp : TrapType); 

010556 FUNCTION GetOSTrapAddress (trapNum: INTEGER): LONGINT; 

010557 PROCEDURE SetOSTrapAddress (trapAddr : LONGINT; trapNum: INTEGER); 

010558 FUNCTION GetToolTrapAddress (trapNum : INTEGER): LONGINT; 

010559 PROCEDURE SetToolTrapAddress (trapAddr: LONGINT; trapNum: INTEGER); 

010560 FUNCTION GetToolboxTrapAddress (trapNum: INTEGER): LONGINT; 

010561 PROCEDURE SetToolboxTrapAddress (trapAddr : LONGINT; trapNum: INTEGER); 

010562 FUNCTION WriteParam: OSErr; 

010563 FUNCTION EqualString (strl: Str255;str2: Str255; caseSens : BOOLEAN; diacSens : BOOLEAN): BOOLEAN; 

010564 PROCEDURE UprString (VAR theString: Str255 ; diacSens : BOOLEAN); 

010565 PROCEDURE Enqueue (qElement : QElemPtr; qHeader : QHdrPtr) ; 

010566 FUNCTION Dequeue (qElement : QElemPtr; qHeader : QHdrPtr): OSErr; 

010567 FUNCTION SetCurrentA5 : LONGINT; 

010568 INLINE $2E8D, $2A7 8 , $0 904 ; 

010569 FUNCTION SetA5(newA5: LONGINT): LONGINT; 

010570 INLINE $2F4D, $0004 , $2A5F; 

010571 PROCEDURE Environs (VAR rem: INTEGER;VAR machine: INTEGER); 

010572 FUNCTION RelString ( strl : Str255;str2: Str255 ; caseSens : BOOLEAN; diacSens : BOOLEAN): INTEGER; 

010573 FUNCTION HandToHand (VAR theHndl : Handle): OSErr; 

010574 FUNCTION PtrToXHand ( srcPtr : Ptr;dstHndl: Handle;size: LONGINT): OSErr; 

010575 FUNCTION PtrToHand ( srcPtr : Ptr;VAR dstHndl : Handle;size: LONGINT): OSErr; 

010576 FUNCTION HandAndHand (handl : Handle; hand2 : Handle): OSErr; 

010577 FUNCTION PtrAndHand (ptrl : Ptr;hand2: Handle;size: LONGINT): OSErr; 

010578 FUNCTION InitUtil: OSErr; 

010579 INLINE $A03F,$3E80; 

010580 FUNCTION SwapInstructionCache ( cacheEnable : BOOLEAN): BOOLEAN; 

010581 PROCEDURE FlushlnstructionCache; 

010582 FUNCTION SwapDataCache (cacheEnable : BOOLEAN): BOOLEAN; 

010583 PROCEDURE FlushDataCache; 
010584 

010585 

010586 {$ENDC) { UsingOSUtils ) 

010587 

010588 {$IFC NOT Usinglncludes) 

010589 END. 

010590 {$ENDC} 
010591 

010592 

010593 ### END OF FILE OSUtils.p 

010594 
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010595 
010596 
010597 
010598 
010599 
010600 
010601 
010602 
010603 
010604 
010605 
010606 
010607 
010608 
010609 
010610 
010611 
010612 
010613 
010614 
010615 
010616 
010617 
010618 
010619 
010620 
010621 
010622 
010623 
010624 
010625 
010626 
010627 
010628 
010629 
010630 
010631 
010632 
010633 
010634 
010635 
010636 
010637 
010638 
010639 
010640 
010641 
010642 
010643 
010644 
010645 
010646 
010647 
010648 
010649 
010650 



##################################################################### 
### FILE: Packages. p 
##################################################################### 



Created: Sunday, September 15, 1991 at 11:56 PM 
Packages -p 
Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 1985-1991 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 
{$ENDC) 

{$IFC NOT Usinglncludes) 

UNIT Packages; 

INTERFACE 
{$ENDC} 

{$IFC UNDEFINED UsingPackages } 
{$SETC UsingPackages := 1} 

{$!+) 

{SSETC Packageslncludes :^ Usinglncludes} 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingTypes) 

{$1 $$Shell (Plnterfaces)Types.p) 

{$ENDC) 

{$IFC UNDEFINED UsingStandardFile } 

{$1 $$ Shell (P Interfaces) StandardFile .p) 

{$ENDC) 

{$IFC UNDEFINED UsingScript) 

{$1 $$ Shell (P Interfaces) Script. p) 

{$ENDC) 

{SSETC Usinglncludes :^ Packageslncludes) 



CONST 

listMgr = 0; 
dsklnit = 2; 
stdFiie = 3; 
fiPoint = 4; 
trFunc — 5; 
intUtil = 6; 
bdConv = 7; 
editionMgr = 11; 
currSymLead ^ 16; 
currNegSym = 32; 
currTrailingZ ^ 64; 
currLeadingZ - 128; 
zeroCycle - 1; 



{list manager} 
{Disk Initializaton ) 
{Standard File) 
{Floating-Point Arithmetic) 
{Transcendental Functions) 
{International Utilities) 
{Binary/Decimal Conversion) 
{Edition Manager) 



{0:00 AM/PM format) 
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010651 


longDay ^ 0; 


{day of the month} 




010652 


longWeek ^ 1; 


{day of the week) 




010653 


longMonth ^ 2; 


{month of the year} 




010654 


longYear ^ 3; 


{year} 




010655 


supDay = 1; 


{suppress day of month} 




010656 


supWeek ^ 2; 


{suppress day of week} 




010657 


supMonth ^ 4; 


{suppress month) 




010658 


supYear ^ 8; 


{suppress year) 




010659 


dayLdingZ = 32; 






010660 


mntLdingZ ^ 64; 






010661 


century ^ 128; 






010662 


secLeadingZ ^ 32; 






010663 


minLeadingZ ^ 64; 






010664 


hrLeadingZ = 128; 






010665 








010666 


{ Date Orders ) 






010667 


mdy ^ 








010668 


dmy ^ 1 








010669 


ymd = 2 








010670 


myd ^ 3 








010671 


dyra ^ 4 








010672 


ydra ^ 5 








010673 








010674 








010675 


{ Regional version codes } 






010676 


verUS = 0; 






010677 


verFrance ^ 1; 






010678 


verBritain = 2; 






010679 


verGerraany = 3; 






010680 


verltaiy = 4; 






010681 


verNetheriands = 5; 






010682 


verFrBelgiumLux ^ 6; 


{ French for Belgium & Luxembourg } 




010683 


verSweden = 7; 






010684 


verSpain = 8; 






010685 


verDenmark = 9; 






010686 


verPortugai ^ 10; 






010687 


verFrCanada ^ 11; 






010688 


verNorway = 12; 






010689 


verlsrael ^ 13; 






010690 


ver Japan ^ 14; 






010691 


verAustraiia = 15; 






010692 


verArabic = 16; 


{ synonym for verArabia ) 




010693 


verFiniand = 17; 






010694 


verFrSwiss = 18; 


{ French Swiss ) 




010695 


verGrSwiss = 19; 


{ German Swiss ) 




010696 


verGreece = 20; 






010697 


verlceiand = 21; 






010698 


verMalta = 22; 






010699 


verCyprus = 23; 






010700 


verTurkey = 24; 






010701 


verYugoCroatian ^ 25; 


{ Croatian system for Yugoslavia } 




010702 


verlndiaHindi ^ 33; 


{ Hindi system for India } 




010703 


verPakistan ^ 34; 






010704 


verLithuania = 41; 






010705 


verPoiand = 42; 






010706 


verHung 


ary = 43; 
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010707 


verEstonia = 44; 












010708 


verLatvia ^ 45; 












010709 


verLapland = 46; 












010710 


verFaeroelsl ^ 47; 












010711 


verlran ^ 48; 












010712 


verRussia = 4 9; 












010713 


verlreland = 50; 








{ English-language version for Ireland } 




010714 


verKorea = 51; 












010715 


verChina = 52; 












010716 


verTaiwan ^ 53; 












010717 


verThailand = 54; 












010718 


minCountry = verUS; 












010719 


maxCountry = verThailand; 










010720 














010721 


{Obsolete region code 


names. 


kept 


for backward compatibility) 




010722 


verBelgiumLux = 6; 








{ (use verFrBelgiumLux instead, less ambiguous) ) 




010723 


verArabia = 16; 












010724 


verYugoslavia ^ 25; 








{ {use verYugoCroatian instead, less ambiguous) ) 




010725 


verlndia ^ 33; 








{ {use verlndiaHindi instead, less ambiguous) } 




010726 














010727 


{ Special script code 


values 


for I 


nternational Utilities } 




010728 


iuSystemScript = -1; 








{ system script ) 




010729 


iuCurrentScript ^ -2; 








{ current script (for font of grafPort) ) 




010730 














010731 


{ Special language code values 


for 


International Utilities } 




010732 


iuSystemCurLang ^ -2; 








{ current {itlbLang) lang for system script ) 




010733 


iuSystemDef Lang ^ -3; 








{ default {table) lang for system script } 




010734 


iuCurrentCurLang ^ -4 








{ current {itlbLang) lang for current script } 




010735 


iuCurrentDef Lang = -5 








{ default lang for current script } 




010736 


iuScriptCurLang ^ -6; 








{ current {itlbLang) lang for specified script ) 




010737 


iuScriptDef Lang ^ -7; 








{ default language for a specified script } 




010738 














010739 


{ Table selectors for 


GetltlTable 


} 




010740 


iuWordSelectTable = 








{ get word select break table from 'itl2' } 




010741 


iuWordWrapTable = 1; 








{ get word wrap break table from 'itl2' } 




010742 


iuNumberPartsTable = 2; 






{ get default number parts table from ' itl4 ' } 




010743 


iuUnTokenTable = 3; 








{ get unToken table from 'itl4' ) 




010744 


iuWhiteSpaceList = 4; 








{ get white space list from 'itl4' } 




010745 














010746 


TYPE 












010747 


DateForm = (shortDate 


longDate 


abb 


revDate) ; 




010748 














010749 














010750 


IntlOPtr = ^IntlORec; 












010751 


IntlOHndl = "IntlOPtr 












010752 


IntlOReC = PACKED RECORD 










010753 


decimalPt: CHAR; 








(decimal point character) 




010754 


thousSep: CHAR; 








(thousands separator character} 




010755 


listSep: CHAR; 








(list separator character} 




010756 


currSyml: CHAR; 








(currency symbol) 




010757 


currSym2 : CHAR; 












010758 


currSym3: CHAR; 












010759 


currFrat : Byte; 








(currency format flags} 




010760 


dateOrder: Byte; 








(order of short date elements; mdy, dmy, etc.} 




010761 


shrtDateFmt : Byte; 








(format flags for each short date element} 




010762 


dateSep: CHAR; 








(date separator character} 
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010763 
010764 
010765 
010766 
010767 
010768 
010769 
010770 
010771 
010772 
010773 
010774 
010775 
010776 
010777 
010778 
010779 
010780 
010781 
010782 
010783 
010784 
010785 
010786 
010787 
010788 
010789 
010790 
010791 
010792 
010793 
010794 
010795 
010796 
010797 
010798 
010799 
010800 
010801 
010802 
010803 
010804 
010805 
010806 
010807 
010808 
010809 
010810 
010811 
010812 
010813 
010814 
010815 
010816 
010817 
010818 



.4] OF CHAR; 
4] OF CHAR; 



timeCycle: Byte; 
timeFrat : Byte; 
mornStr: PACKED ARRAY [1. 
eveStr: PACKED ARRAY [1.. 
timeSep: CHAR; 
timelSuff: CHAR; 
time2Suff: CHAR; 
time3Suff: CHAR; 
time4Suff: CHAR; 
time5Suff: CHAR; 
time6Suff: CHAR; 
time7Suff: CHAR; 
timeSSuff: CHAR; 
metricSys: Byte; 
intlOVers: INTEGER; 
END; 



IntllPtr = ^IntllRec; 
IntllHndl = ^IntllPtr; 
IntllReC = PACKED RECORD 

days: ARRAY [1..7] OF StrlS; 

months: ARRAY [1..12] OF Strl5; 

suppressDay: Byte; 

IngDateFmt: Byte; 

dayLeadingO : Byte; 

abbrLen: Byte; 

stO: PACKED ARRAY 

stl: PACKED ARRAY 

St 2: PACKED ARRAY 

St 3: PACKED ARRAY 

St 4: PACKED ARRAY 

intllVers: INTEGER; 

localRtn: ARRAY [C 

END; 



[1. 


4] 


OF CHAR 




[1. 


4] 


OF CHAR 




[1. 


4] 


OF CHAR 




[1. 


4] 


OF CHAR 




[1. 


4] 


OF CHAR 




..0 


OF INTEGEI 


I; 



{specifies time cycle: 0..23, 1..12, or 0..11} 

{ format flags for each time element } 

{ trailing string for AM if 12-hour cycle} 

{ trailing string for PM if 12-hour cycle} 

{time separator character} 

{ trailing string for AM if 24-hour cycle} 



{trailing string for PM if 24-hour cycle} 



{255 if metric, if inches etc.} 

{region code {hi byte) and version (lo byte) } 



{day names} 

{month names } 

{255 for no day, or flags to suppress any element } 

{ order of long date elements } 

{2 55 for leading in day number } 

{ length for abbreviating names } 

{separator strings for long date format} 



{region code {hi byte) and version (lo byte)} 
{ now a flag for opt extension } 



PROCEDURE InitPack (packID: INTEGER); 

INLINE $A9E5; 
PROCEDURE InitAllPacks; 

INLINE $A9E6; 

FUNCTION lUGetlntl (thelD: INTEGER): Handle; 

INLINE $3F3C, S0006, $A9ED; 
PROCEDURE lUSetlntl (refNum: INTEGER; thelD : INTEGER; intlHandle : Handle); 

INLINE $3F3C, S0008, $A9ED; 
PROCEDURE IUDateString(dateTime: LONGINT; longFlag: DateForra;VAR result: Str255); 

INLINE $4267,$A9ED; 
PROCEDURE lUDatePString (datelirae: LONGINT; longFlag: DateForm; VAR result: Str255; 

intlHandle: Handle) ; 

INLINE $3F3C, SOOOE, $A9ED; 
PROCEDURE IUTimeString(dateTime: LONGINT; wantSeconds : BOOLEAN;VAR result: Str255); 

INLINE $3F3C, $0002, $A9ED; 
PROCEDURE IUTimePString(dateTime: LONGINT; wantSeconds : BOOLEAN;VAR result: Str255; 

intlHandle: Handle) ; 

INLINE $3F3C, SOOIO, $A9ED; 
FUNCTION lUMetric: BOOLEAN; 



' N 
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010819 INLINE $3F3C, $0004 , 5A9ED; 
010820 

010821 FUNCTION lUMagString (aPtr : Ptr;bPtr: Ptr;aLen: INTEGER; bLen : INTEGER): INTEGER; 

010822 INLINE $3F3C, $000A, $A9ED; 

010823 FUNCTION IUMagIDString(aPtr: Ptr;bPtr: Ptr;aLen: INTEGER; bLen : INTEGER): INTEGER; 

010824 INLINE $3F3C, $000C, $A9ED; 

010825 FUNCTION IUCompString(aStr: Str255;bStr: Str255) : INTEGER; 

010826 FUNCTION lUEqualString (aStr : Str255;bStr: Str255): INTEGER; 
010827 

010828 PROCEDURE StringToNum (theString : Str255;VAR theNum: LONGINT) ; 

010829 PROCEDURE NumToString (theNum: LONGINT; VAR theString: Str255) ; 
010830 

010831 PROCEDURE lULDateStrlng (VAR dateTime: LongDateTime; longFlag: DateForm; VAR result: Str255; 

010832 intlHandle: Handle); 

010833 INLINE $3F3C, $0014 , $A9ED; 

010834 PROCEDURE lULTimeStrlng (VAR dateTime : LongDateTime; wantSeconds : BOOLEAN; 

010835 VAR result: Str255; intlHandle : Handle); 

010836 INLINE $3F3C, $001 6, $A9ED; 

010837 PROCEDURE lUClearCache; 

010838 INLINE $3F3C, $0018, $A9ED; 

010839 FUNCTION IUMagPString(aPtr: Ptr;bPtr: Ptr;aLen: INTEGER;bLen : INTEGER; itl2Handle : Handle): INTEGER; 

010840 INLINE $3F3C, $001A, $A9ED; 

010841 FUNCTION IUMagIDPString(aPtr : Ptr;bPtr: Ptr;aLen: INTEGER; bLen : INTEGER; 

010842 itl2Handle: Handle): INTEGER; 

010843 INLINE $3F3C, $001C, $A9ED; 

010844 FUNCTION lUCompPString (aStr : Str255;bStr: Str255 ; itl2Handle : Handle): INTEGER; 

010845 FUNCTION lUEqualPString (aStr : Str255;bStr: Str255 ; itl2Handle : Handle): INTEGER; 

010846 FUNCTION lUScriptOrder (scriptl : ScriptCode; script2 : ScriptCode): INTEGER; 

010847 INLINE $3F3C, $001E, $A9ED; 

010848 FUNCTION lULangOrder (languagel : LangCode; language2 : LangCode) : INTEGER; 

010849 INLINE $3F3C, $0020, $A9ED; 

010850 FUNCTION lUTextOrder (aPtr : Ptr;bPtr: Ptr;aLen: INTEGER; bLen : INTEGER; aScript : ScriptCode; 

010851 bScript : ScriptCode; aLang : LangCode; bLang: LangCode): INTEGER; 

010852 INLINE $3F3C, $0022 , $A9ED; 

010853 FUNCTION lUStringOrder (aStr : Str255;bStr: Str255 ; aScript : ScriptCode; bScript : ScriptCode; 

010854 aLang: LangCode; bLang: LangCode) : INTEGER; 

010855 PROCEDURE lUGetltiTabie (script : ScriptCode; tableCode : INTEGER; VAR itlHandie: Handle; 

010856 VAR offset: LONGINT; VAR length: LONGINT); 

010857 INLINE $3F3C, $0024, $A9ED; 
010858 

010859 

010860 {$ENDC) { UsingPackages ) 

010861 

010862 {$IFC NOT Usinglncludes ) 

010863 END. 

010864 {$ENDC} 
010865 

010866 

010867 ### END OF FILE Packages. p 

010868 
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010869 

01087 ##################################################################### 

010871 ### FILE: Packlntf.p 

010872 ##################################################################### 
010873 

010874 { 

010875 File: Packlntf.p 
010876 

010877 As of MPW 3.0, interface files were reorganized to more closely 

010878 match "Inside Macintosh" reference books and be more consistant 
01087 9 from language to language. 

010880 

010881 Interfaces for the Package Manager are now found in Packages. p. 

010882 This file, which includes Packages. p, is provided for compatibility 

010883 with old sources. 
010884 

010885 Pascal Interface to the Macintosh Libraries 

010886 Copyright Apple Computer, Inc. 1988 

010887 All Rights Reserved 

010888 ) 
010889 

010890 {$IFC UNDEFINED Usinglncludes } 

010891 {$SETC Usinglncludes := 0} 

010892 {$ENDC) 
010893 

010894 {$IFC NOT Usinglncludes) 

010895 UNIT Packlntf; 

010896 INTERFACE 

010897 {$ENDC) 
010898 

010899 {$IFC UNDEFINED UsingPackInt f } 

010900 {$SETC UsingPacklntf := 1} 
010901 

010902 {$1+) 

010903 {$SETC Packlntflncludes := Usinglncludes) 

010904 {$SETC Usinglncludes := 1} 

010905 {$IFC UNDEFINED UsingPackages } 

010906 {$1 5$Shell (PInterfaces) Packages .p} 

010907 {$ENDC) 

010908 {$SETC Usinglncludes := Packlntflncludes) 
010909 

010910 {$ENDC} { UsingPacklntf ) 
010911 

010912 {$IFC NOT Usinglncludes) 

010913 END. 

010914 {$ENDC} 
010915 

010916 

010917 ### END OF FILE Packlntf.p 

010918 
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010919 

010 92 ##################################################################### 

010921 ### FILE: PaletteMgr.p 

010 922 ##################################################################### 

010923 

010924 { 

010925 File: PaletteMgr.p 
010926 

010927 As of MPW 3.0, interface files were reorganized to more closely 

010928 match "Inside Macintosh" reference books and be more consistant 

010929 from language to language. 
010930 

010931 Interfaces for the Palette Manager are now found in Palettes. p. 

010932 This file, which includes Palettes. p, is provided for compatibility 

010933 with old sources. 
010934 

010935 Pascal Interface to the Macintosh Libraries 

010936 Copyright Apple Computer, Inc. 1988 

010937 All Rights Reserved 

010938 ) 
010939 

010940 {$IFC UNDEFINED Usinglncludes } 

010941 {$SETC Usinglncludes := 0} 

010942 {$ENDC) 
010943 

010944 {$IFC NOT Usinglncludes) 

010945 UNIT PaletteMgr; 

010946 INTERFACE 

010947 {$ENDC) 
010948 

010949 {$IFC UNDEFINED UsingPaletteMgr ) 

010950 {$SETC UsingPaletteMgr := 1) 
010951 

010952 {$1+) 

010953 {$SETC PaletteMgrlncludes := Usinglncludes) 

010954 {$SETC Usinglncludes := 1) 

010955 {$IFC UNDEFINED UsingPalettes ) 

010956 {$1 5$Shell (PInterfaces) Palettes .p) 

010957 {$ENDC) 

010958 {$SETC Usinglncludes := PaletteMgrlncludes) 
010959 

010960 {$ENDC) { UsingPaletteMgr ) 
010961 

010962 {$IFC NOT Usinglncludes) 

010963 END. 

010964 {$ENDC) 
010965 

010966 

010967 ### END OF FILE PaletteMgr.p 

010968 
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010969 






010970 


##################################################################### 




010971 


### FILE: Palettes. p 




010972 


##################################################################### 




010973 






010974 






010975 


{ 




010976 


Created: Monday, September 16, 1991 at 12:00 AM 




010977 


Palettes .p 




010978 


Pascal Interface to the Macintosh Libraries 




010979 






010980 


Copyright Apple Computer, Inc. 1987-1991 




010981 


All rights reserved 




010982 


) 




010983 






010984 






010985 


{$IFC UNDEFINED Usinglncludes } 




010986 


{$SETC Usinglncludes := 0} 




010987 


{$ENDC} 




010988 






010989 


{$IFC NOT Usinglncludes) 




010990 


UNIT Palettes; 




010991 


INTERFACE 




010992 


{$ENDC} 




010993 






010994 


{$IFC UNDEFINED UsingPalettes } 




010995 


{$SETC UsingPalettes := 1} 




010996 






010997 


{$!+) 




010998 


{$SETC Paletteslncludes := Usinglncludes) 




010999 


{$SETC Usinglncludes := 1} 




011000 


{$IFC UNDEFINED UsingQuickdraw} 




011001 


{$1 $$ Shell (Plnterfaces)Quickdraw.p) 




011002 


{$ENDC} 




011003 


{$IFC UNDEFINED UsingWindows ) 




011004 


{$1 $$ Shell (P Interfaces) Windows .p} 




011005 


{$ENDC) 




011006 


{$SETC Usinglncludes := Paletteslncludes) 




011007 






011008 


CONST 




011009 


pmCourteous ^ 0; {Record use of color on each device touched.) 




011010 


pmTolerant = $0002; {render ciRGB if ciToierance is exceeded by best match.) 




011011 


pmAnimated = S0004; {reserve an index on each device touched and render ciRGB.) 




011012 


pmExpiicit = S0008; {no reserve, no render, no record; stuff index into port.} 




011013 






011014 


pmWhite = $0010; 




011015 


pmBlack = $0020; 




011016 






011017 


pmInhibitG2 = $0100 






011018 


pmInhibitC2 = $0200 






011019 


pmInhibitG4 = $0400 






011020 


pmInhibitC4 = $0800 






011021 


pmlnhibitGS = $1000 






011022 


pmlnhibitCS = $2000 






011023 






011024 
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011025 
011026 
011027 
011028 
011029 
011030 
011031 
011032 
011033 
011034 
011035 
011036 
011037 
011038 
011039 
011040 
011041 
011042 
011043 
011044 
011045 
011046 
011047 
011048 
011049 
011050 
011051 
011052 
011053 
011054 
011055 
011056 
011057 
011058 
011059 
011060 
011061 
011062 
011063 
011064 
011065 
011066 
011067 
011068 
011069 
011070 
011071 
011072 
011073 
011074 
011075 
011076 
011077 
011078 
011079 
011080 



{ NSetPalette Update Constants ) 
pmNoUpdates = $8000; 
pmBkUpdates = $A000; 
pmFgUpdates = $C000; 
pmAllUpdates = $E000; 

TYPE 

Colorlnfo = RECORD 

ciRGB: RGBColor; 

ciUsage: INTEGER; 

ciTolerance: INTEGER; 

ciDataFields: ARRAY [0..2] OF INTEGER; 

END; 

PalettePtr = -^Palette; 
PaletteHandle = ^PalettePtr; 
Palette = RECORD 

pmEntries: INTEGER; 

pmDataFlelds: ARRAY [0..6] OF INTEGER; 

pmlnfo: ARRAY [0..0] OF Colorlnfo; 

END; 



{no updates) 

{background updates only) 
{foreground updates only) 
{all updates) 



{true RGB values) 
{color usage) 
{tolerance value) 
{private fields) 



{entries in pmTable) 
{private fields) 



PROCEDURE InitPalettes; 

INLINE $AA90; 
FUNCTION NewPalette (entries: INTEGER; srcColors : CTabHandle; srcUsage : INTEGER; 

srcTolerance: INTEGER): PaletteHandle; 

INLINE $AA91; 
FUNCTION GetNewPalette (PalettelD: INTEGER): PaletteHandle; 

INLINE $AA92; 
PROCEDURE DisposePalette (srcPalette: PaletteHandle); 

INLINE 5AA93; 
PROCEDURE ActivatePalette (srcWindow: WindowPtr); 

INLINE $AA94; 
PROCEDURE SetPalette (dstWindow: WindowPtr; srcPalette : PaletteHandle; cUpdates : BOOLEAN); 

INLINE $AA95; 
PROCEDURE NSetPalette (dstWindow: WindowPtr; srcPalette : PaletteHandle; nCUpdates : INTEGER); 

INLINE $AA95; 
FUNCTION GetPalette (srcWindow: WindowPtr): PaletteHandle; 

INLINE $AA96; 
PROCEDURE CopyPalette (srcPalette: PaletteHandle; dstPalette : PaletteHandle; 

srcEntry: INTEGER; dstEntry : INTEGER; dstLength : INTEGER); 

INLINE $AAA1; 
PROCEDURE PmForeColor (dstEntry : INTEGER); 

INLINE $AA97; 
PROCEDURE PmBackColor (dstEntry : INTEGER); 

INLINE $AA98; 
PROCEDURE AnimateEntry (dstWindow: WindowPtr; dstEntry : INTEGER; srcRGB : RGBColor); 

INLINE $AA99; 
PROCEDURE AnimatePalette (dstWindow: WindowPtr; srcCTab : CTabHandle; srclndex : INTEGER; 

dstEntry: INTEGER; dstLengtli : INTEGER); 

INLINE $AA9A; 
PROCEDURE GetEntryColor (srcPalette: PaletteHandle; srcEntry : INTEGER;VAR dstRGB: RGBColor); 

INLINE $AA9B; 
PROCEDURE SetEntryColor (dstPalette: PaletteHandle; dstEntry : INTEGER; srcRGB : RGBColor); 

INLINE $AA9C; 
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011081 
011082 
011083 
011084 
011085 
011086 
011087 
011088 
011089 
011090 
011091 
011092 
011093 
011094 
011095 
011096 
011097 
011098 
011099 
011100 
011101 
011102 
011103 
011104 
011105 
011106 
011107 
011108 
011109 
011110 
011111 
011112 
011113 
011114 
011115 
011116 
011117 
011118 
011119 
011120 
011121 
011122 
011123 
011124 
011125 
011126 
011127 
011128 



PROCEDURE GetEntryUsage (srcPalette: PaletteHandle; srcEntry : INTEGER;VAR dstUsage: INTEGER; 

VAR dstTolerance: INTEGER); 

INLINE $AA9D; 
PROCEDURE SetEntryUsage (dstPalette: PaletteHandle; dstEntry : INTEGER; srcUsage : INTEGER; 

srcTolerance: INTEGER); 

INLINE $AA9E; 
PROCEDURE CTab2Palette (srcCTab: CTabHandle; dstPalette : PaletteHandle; srcUsage : INTEGER; 

srcTolerance: INTEGER); 

INLINE $AA9F; 
PROCEDURE Palette2CTab (srcPalette: PaletteHandle; dstCTab : CTabHandle); 

INLINE 5AAA0; 
FUNCTION Entry2Index (entry : INTEGER): LONGINT; 

INLINE $7000,$AAA2; 
PROCEDURE RestoreDeviceClut (gd: GDHandle) ; 

INLINE $7002,$AAA2; 
PROCEDURE ResizePalette (p: PaletteHandle; size : INTEGER); 

INLINE $7003,$AAA2; 
PROCEDURE SaveFore (VAR c: ColorSpec); 

INLINE $303C, $040D, 5AAA2; 
PROCEDURE SaveBack(VAR c: ColorSpec); 

INLINE $303C, $040E, $AAA2; 
PROCEDURE RestoreFore (c: ColorSpec); 

INLINE $303C, $040F, 5AAA2; 
PROCEDURE RestoreBack (c: ColorSpec); 

INLINE $303C, $0410, $AAA2; 
FUNCTION SetDepth(gd: GDHandle; depth : INTEGER; whlchFlags : INTEGER; flags : INTEGER): OSErr; 

INLINE $303C, $0A13, $AAA2; 
FUNCTION HasDepth(gd: GDHandle; depth : INTEGER; whichFlags : INTEGER; flags : INTEGER): INTEGER; 

INLINE $303C, $0A14, $AAA2; 
FUNCTION PMgrVerslon: INTEGER; 

INLINE $7015,$AAA2; 
PROCEDURE SetPaletteUpdates (p: PaletteHandle; updates : INTEGER); 

INLINE $303C, $0616, 5AAA2; 
FUNCTION GetPaletteUpdates (p: PaletteHandle): INTEGER; 

INLINE $303C, $0417, $AAA2; 
FUNCTION GetGray (device: GDHandle; backGround : RGBColor;VAR foreGround: RGBColor) : BOOLEAN; 

INLINE $303C, $0C19, $AAA2; 



{$ENDC) { UsingPalettes ) 



{$IFC NOT Usinglncludes) 

END. 
{$ENDC} 



### END OF FILE Palettes. p 
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011129 

011130 ##################################################################### 

011131 ### FILE: PasLiblntf.p 

011132 ##################################################################### 
011133 

011134 

011135 { 

011136 Created: Monday, January 22, 1990 at 9:18 PM 

011137 PasLiblntf.p 

011138 Pascal Interface to the Macintosh Libraries 
011139 

011140 Copyright Apple Computer, Inc. 1986-1991 

011141 All rights reserved 
011142 

011143 

011144 Interface to the Pascal I/O and Memory Manager Library. 

011145 Built-in procedure and function declarations are marked with 

011146 the (* *) comment characters 
011147 

011148 ) 

011149 

011150 

011151 {$IFC UNDEFINED Usinglncludes } 

011152 {$SETC Usinglncludes := 0} 

011153 {$ENDC) 
011154 

011155 {$IFC NOT Usinglncludes) 

011156 UNIT PASLIBIntf; 

011157 INTERFACE 

011158 {$ENDC} 
011159 

011160 {$IFC UNDEFINED UsingPASLIBINTF ) 

011161 {$SETC UsingPASLIBINTF := 1) 
011162 

011163 {$1+) 

011164 {$SETC PASLIBINTFIncludes := Usinglncludes} 

011165 {$SETC Usinglncludes := 1} 

011166 {$IFC UNDEFINED UsingTypes) 

011167 {$1 5$Shell (Plnterfaces)Types.p) 

011168 {$ENDC) 

011169 {$SETC Usinglncludes := PASLIBINTFIncludes} 
011170 

011171 TYPE 

011172 PASCALPOINTER = '"INTEGER; { Universal POINTER type } 

011173 PASCALFILE = FILE; { Universal FILE type } 

011174 (* 

011175 * PASCALBLOCK = { Universal block of chars } 
01117 6 * PACKED ARRAY [0..511] OF CHAR; 

011177 *) 
011178 

011179 CONST 

011180 { <StdIO.h> PLSetVBuf styles } 

011181 _IOFBF = $00; { File buffering } 

011182 _IOLBF = $40; { Line buffering } 

011183 _IONBF = $04; { No buffering } 
^11184 
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011185 
011186 
011187 
011188 
011189 
011190 
011191 
011192 
011193 
011194 
011195 
011196 
011197 
011198 
011199 
011200 
011201 
011202 
011203 
011204 
011205 
011206 
011207 
011208 
011209 
011210 
011211 
011212 
011213 
011214 
011215 
011216 
011217 
011218 
011219 
011220 
011221 
011222 
011223 
011224 
011225 
011226 
011227 
011228 
011229 
011230 
011231 
011232 
011233 
011234 
011235 
011236 
011237 
011238 
011239 
011240 



Mac Pascal heap management 



PROCEDURE PLHeapInit (sizepheap: LONGINT; heapDelta: LONGINT; 

memerrProc: UNIV PASCALPOINTER; allowNonCont : BOOLEAN; 
forDispose: BOOLEAN); 
{ 
The following procedure is obsolete, use PLHeapInit 



) 



PROCEDURE PLInitHeap (sizepheap: LONGINT; memerrProc: UNIV PASCALPOINTER; 
allowNonCont: BOOLEAN; allowDispose : BOOLEAN); 

PROCEDURE PLSetNonCont (allowNonCont : BOOLEAN); 

PROCEDURE PLSetMErrProc (memerrProc: UNIV PASCALPOINTER); 

PROCEDURE PLSetHeapType (forDispose: BOOLEAN); 

PROCEDURE PLSetHeapCheck (Dolt : BOOLEAN); 

{ 

File I/O 



PROCEDURE 

RESET(VAR fvar: UNIV PASCALFILE; OPT f name : STRING); 
BUILTIN; 

PROCEDURE 

REWRITE (VAR fvar: UNIV PASCALFILE; OPT f name : STRING); 
BUILTIN; 

PROCEDURE 

OPEN(VAR fvar: UNIV PASCALFILE; f name : STRING); 
BUILTIN; 



PROCEDURE PLSetVBuf (VAR fvar: TEXT; buffer: UNIV PASCALPOINTER; 
style: INTEGER; bufsize: INTEGER); 

FUNCTION 

BLOCKREAD { 

VAR fvar: FILE; 

VAR buffer: UNIV PASCALBLOCK; 

nBlocks: INTEGER; 

OPT stBlock: INTEGER 
) : 

INTEGER; 
BUILTIN; 

FUNCTION 

BLOCKWRITE ( 

VAR fvar: FILE; 
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011241 


* 


VAR buffer: UNIV PASCALBLOCK; 




011242 


* 


nBlocks: INTEGER; 




011243 


* 


OPT stBlock: INTEGER 




011244 


* 


) : 




011245 


* 


INTEGER; 




011246 


* 


BUILTIN; 




011247 


* 






011248 


* 


FUNCTION 




011249 


* 


BYTEREAD ( 




011250 


* 


VAR fvar: FILE; 




011251 


* 


VAR buffer: UNIV PASCALBLOCK; 




011252 


* 


nBytes: LONGINT; 




011253 


* 


OPT stByte: LONGINT 




011254 


* 


) : 




011255 


* 


LONGINT; 




011256 


* 


BUILTIN; 




011257 


* 






011258 


* 


FUNCTION 




011259 


* 


BYTEWRITE { 




011260 


* 


VAR fvar: FILE; 




011261 


* 


VAR buffer: UNIV PASCALBLOCK; 




011262 


* 


nBytes: LONGINT; 




011263 


* 


OPT StByte: LONGINT 




011264 


* 


) : 




011265 


* 


LONGINT; 




011266 


* 


BUILTIN; 




011267 


* 






011268 


* 


FUNCTION 




011269 


* 


EOF (OPT VAR fvar: UNIV PASCALFILE): 




011270 


* 


BOOLEAN; 




011271 


* 


BUILTIN; 




011272 


* 






011273 


* 


FUNCTION 




011274 


* 


EOLN(OPT VAR fvar: TEXT): 




011275 


* 


BOOLEAN; 




011276 


* 


BUILTIN; 




011277 


* 






011278 


* 


PROCEDURE 




011279 


* 


READ (VAR fvar: TEXT; OPT EXPR_LIST); 




011280 


* 


BUILTIN; 




011281 


* 






011282 


* 


PROCEDURE 




011283 


* 


READLN(OPT VAR fvar: TEXT; OPT EXPR_LIST); 




011284 


* 


BUILTIN; 




011285 


* 






011286 


* 


PROCEDURE 




011287 


* 


WRITE(VAR fvar: TEXT; OPT EXPR_LIST) ; 




011288 


* 


BUILTIN; 




011289 


* 






011290 


* 


PROCEDURE 




011291 


* 


WRITELN(OPT VAR fvar: TEXT; OPT EXPR_LIST); 




011292 


* 


BUILTIN; 




011293 


* 






011294 


* 


PROCEDURE 




011295 


* 


GET (VAR fvar: UNIV PASCALFILE); 




011296 


* 


BUILTIN; 


J 
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^ 


011297 


* 










011298 


* 


PROCEDURE 






011299 


* 


PUT(VAR fvar: UNIV PASCALFILE); 






011300 


* 


BUILTIN; 






011301 


* 










011302 


* 


PROCEDURE 






011303 


* 


SEEK(VAR fvar: UNIV PASCALFILE; recno: LONGINT); 






011304 


* 


BUILTIN; 






011305 


*) 










011306 












011307 




FUNCTION 


PLFilePos (VAR fvar: UNIV PASCALFILE): LONGINT; 






011308 












011309 




PROCEDURE PLFlush{VAR fvar: TEXT); 






011310 












011311 




PROCEDURE PLCrunch(VAR fvar: UNIV PASCALFILE); 






011312 


{ 










011313 


Dl 


rectory operations. 






011314 


) 










011315 












011316 




PROCEDURE PLPurge (fname: STRING); 






011317 












011318 




PROCEDURE PLRename (oldFname, newFname : STRING); 






011319 












011320 


{ 










011321 


C 


string functions for Pascal strings 






011322 


) 










011323 




FUNCTION 


PLStrCmp (stringl, string2 : STR255): INTEGER; 






011324 












011325 




FUNCTION 


PLStrnCmp(stringl, string2 : STR255; n: INTEGER): INTEGER; 






011326 












011327 




FUNCTION 


PLStrCpy{VAR stringl: STR255; string2 : STR255): STRINGPTR; 






011328 












011329 




FUNCTION 


PLStrnCpy (VAR stringl: STR255; string2 : STR255; n: INTEGER): STRINGPTR; 






011330 












011331 




FUNCTION 


PLStrCat{VAR stringl: STR255; string2 : STR255): STRINGPTR; 






011332 












011333 




FUNCTION 


PLStrnCat (VAR stringl: STR255; string2 : STR255; n: INTEGER): STRINGPTR; 






011334 












011335 




FUNCTION 


PLStrChr (stringl: STR255; c: CHAR): PTR; 






011336 












011337 




FUNCTION 


PLStrrChr (stringl: STR255; c: CHAR): PTR; 






011338 












011339 




FUNCTION 


PLStrPBrk (stringl, string2 : STR255): PTR; 






011340 












011341 




FUNCTION 


PLStrSpn (stringl, string2 : STR255): INTEGER; 






011342 












011343 




FUNCTION 


PLStrStr (stringl, string2 : STR255): PTR; 






011344 












011345 




FUNCTION 


PLStrLen (stringl: STR255): INTEGER; 






011346 












011347 




FUNCTION 


PLPos (STRINGl : STR255; STRING2 : STR255): INTEGER; 






011348 












011349 


{$ENDC) { 


UsingPASLIBINTF } 






011350 












011351 


{$IFC NOT Usinglncludes) 






011352 




END. 






J 
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011353 {$ENDC) 

011354 

011355 ### END OF FILE PasLiblntf.p 

011356 
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011357 

011358 ##################################################################### 

011359 ### FILE: Perf.p 

0113 60 ##################################################################### 
011361 

011362 { 

011363 Created: Monday, January 22, 1990 at 9:18 PM 

011364 Perf.p 

011365 Pascal Interface to the Macintosh Libraries 
011366 

011367 Copyright Apple Computer, Inc. 1986-1989 

011368 All rights reserved 
011369 

011370 DESCRIPTION 

011371 Provides for PC-sampling of User code resources, ROM code, and RAM (misses) 

011372 Produces output text file suitable for input to Pert ormReport . 
011373 

011374 Design objectives: 

011375 Language independent, i.e. works with Pascal, C, and Assembly. 

011376 Covers user resources as well as ROM code. 

011377 Memory model independent, i.e. works for Desk Accessories and drivers. 

011378 Uses TimeManager on new ROMs, Vertical Blanking interrupt on 64 K ROMs. 
011379 

011380 ) 

011381 

011382 

011383 {$IFC UNDEFINED Usinglncludes } 

011384 {$SETC Usinglncludes := 0} 

011385 {$ENDC) 
011386 

011387 {$IFC NOT Usinglncludes) 

011388 UNIT Perf; 
01138 9 INTERFACE 
011390 {$ENDC} 
011391 

011392 {$IFC UNDEFINED UsingPerf} 

011393 {$SETC UsingPerf := 1} 
011394 

011395 {$1+) 

011396 {$SETC Perflncludes := Usinglncludes) 

011397 {$SETC Usinglncludes := 1} 

011398 {$IFC UNDEFINED UsingTypes) 

011399 {$1 5$Shell (PInterfaces) Types. p) 

011400 {$ENDC) 

011401 {$SETC Usinglncludes := Perflncludes) 
011402 

011403 TYPE 
011404 

011405 PLongs = -^ALongs; 

011406 ALongs = ARRAY [1..8000] OF LONGINT; 
011407 

011408 Pints = ^Alnts; 

011409 Hints = ^Plnts; 
011410 

011411 AInts = ARRAY [1..8000] OF INTEGER; 
^11412 
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011413 
011414 
011415 
011416 
011417 
011418 
011419 
011420 
011421 
011422 
011423 
011424 
011425 
011426 
011427 
011428 
011429 
011430 
011431 
011432 
011433 
011434 
011435 
011436 
011437 
011438 
011439 
011440 
011441 
011442 
011443 
011444 
011445 
011446 
011447 
011448 
011449 
011450 
011451 
011452 
011453 
011454 
011455 
011456 
011457 
011458 
011459 
011460 
011461 
011462 
011463 
011464 
011465 
011466 
011467 
011468 



{ PerfGlobals are declared as a record, so main program can allocate 
as globals/ desk accessory can add to globals allocated via pointer, 
print driver can allocate via low memory, etc. } 



TP2PerfGlobals = ''TPerf Globals; 
TPerfGlobais = RECORD 

startROM: LONGINT; 

romHits: LONGINT; 

misses: LONGINT; 

segArray: PLongs; 

sizeArray; PLongs; 

idArray: Hints; 

baseArray; PLongs; 

samples: PLongs; 

buff Size: LONGINT; 

timelnterval: INTEGER; 

bucketSize: INTEGER; 

log2buckSize: INTEGER; 

pcOffset: INTEGER; 

numMeasure: INTEGER; 

firstCode: INTEGER; 

takingSamples : BOOLEAN; 

measureROM: BOOLEAN; 

measureCode: BOOLEAN; 

ramSeg: INTEGER; 

ramBase: LONGINT; 

measureRAMbucketSize : INTEGER; 

measureRAMlog2buckSize : INTEGER; 

romVersion: INTEGER; 

vRefNum: INTEGER; 

volumeSelected: BOOLEAN; 

rptFileName: Str255; 

rptFiieCreator: Str255; 

rptFileType: Str255; 

getResType: ResType; 

END; 



{ROM Base} 

{used if MeasureROM is false) 

{count of PC values outside measured memory) 

{array of segment handles} 

{array of segment sizes) 

{array of segment rsrc IDs) 

{array of offsets to counters for each segment) 

{samples buffer) 

{size of samples buffer in bytes) 

{number of clock intervals between interrupts} 

{size of buckets power of 2) 

{used in CvtPC) 

{offset to the user PC at interrupt time.} 

{# Code segments (w/o jump table)- ROM etc.) 

{index of first Code segment) 

{true if sampling is enabled) 



{index of "segment" record to cover 
{beginning of RAM being measured.} 



RAM > if RAM (misses) are to be bucketed.) 



{Volume where the report file is to be created) 
{True if user selects the report file name) 
{Report file name} 
{Report File Creator) 
{Report File type} 
{Resource type) 



FUNCTION InitPerf (VAR thePerf Globals : TP2Perf Globals; timerCount : INTEGER; 

codeAndROMBucketSize: INTEGER; doROM: BOOLEAN; doAppCode : BOOLEAN; appCodeType : Str255; 

romID: INTEGER; romName : Str255; doRAM: BOOLEAN; ramLow: LONGINT; ramHigh: LONGINT; 

ramBucketSize: INTEGER) : BOOLEAN; 
{ called once to setup Performance monitoring 
} 

PROCEDURE TermPerf (thePerf Globals: TP2Perf Globals) ; 

{ if InitPerf succeeds then TermPerf must be called before terminating program. 

} 

FUNCTION Perf Control (thePerfGlobals: TP2PerfGlobals; turnOn : BOOLEAN) 
{ Call this to turn off/on measuring. 
Returns previous state. 



BOOLEAN; 
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011469 FUNCTION Perf Dump (thePerf Globals : TP2Perf Globals ; reportFile : Str255; doHistogram: BOOLEAN; 

011470 rptFileColumns: INTEGER): INTEGER; 

011471 { Call this to dump the statistics into a file. } 
011472 

011473 

011474 {$ENDC) { UsingPerf ) 

011475 

011476 {$IFC NOT Usinglncludes ) 

01147 7 END. 

011478 {$ENDC} 

011479 

011480 

011481 ### END OF FILE Perf.p 

011482 
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011483 

011484 ##################################################################### 

011485 ### FILE: Picker. p 

011486 ##################################################################### 
011487 

011488 

011489 { 

011490 Created: Monday, September 16, 1991 at 12:02 AM 

011491 Picker. p 

011492 Pascal Interface to the Macintosh Libraries 
011493 

011494 Copyright Apple Computer, Inc. 1987-1991 

011495 All rights reserved 

011496 ) 
011497 
011498 

011499 {$IFC UNDEFINED Usinglncludes } 

011500 {$SETC Usinglncludes := 0} 

011501 {$ENDC) 
011502 

011503 {$IFC NOT Usinglncludes) 

011504 UNIT Picker; 

011505 INTERFACE 

011506 {$ENDC} 
011507 

011508 {$IFC UNDEFINED UsingPicker) 

011509 {$SETC UsingPicker := 1) 
011510 

011511 {$!+) 

011512 {$SETC Pickerlncludes := Usinglncludes) 

011513 {$SETC Usinglncludes := 1) 

011514 {$IFC UNDEFINED UsingQuickdraw) 

011515 {$1 5$Shell (Plnterfaces)Quickdraw.p) 

011516 {$ENDC) 

011517 {$SETC Usinglncludes := Pickerlncludes) 
011518 

011519 CONST 

011520 MaxSmallFract = $OOOOFFFF; {Maximum small tract value, as long) 
011521 

011522 TYPE 

011523 { A SmallFract value is just the fractional part of a Fixed number, 

011524 which is the low order word. SmallFracts are used to save room, 

011525 and to be compatible with Quickdraw's RGBColor. They can be 

011526 assigned directly to and from INTEGERS. ) 
011527 

011528 SmallFract = INTEGER; { Unsigned fraction between and 1 ) 
011529 

011530 { For developmental simplicity in switching between the HLS and HSV 

011531 models, HLS is reordered into HSL. Thus both models start with 

011532 hue and saturation values; value/lightness/brightness is last. ) 
011533 

011534 HSVColor = RECORD 

011535 hue: SmallFract; {Fraction of circle, red at 0} 

011536 saturation: SmallFract; {0-1, for gray, 1 for pure color) 

011537 value: SmallFract; {0-1, for black, 1 for max intensity) 
.011538 END ; 
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011539 
011540 
011541 
011542 
011543 
011544 
011545 
011546 
011547 
011548 
011549 
011550 
011551 
011552 
011553 
011554 
011555 
011556 
011557 
011558 
011559 
011560 
011561 
011562 
011563 
011564 
011565 
011566 
011567 
011568 
011569 
011570 
011571 
011572 
011573 
011574 
011575 
011576 
011577 
011578 
011579 
011580 
011581 



{Fraction of circle, red at 0} 
{0-1, for gray, 1 for pure color} 
{0-1, for black, 1 for white} 



HSLColor = RECORD 
hue: SmallFract; 
saturation: SmallFract; 
lightness: SmallFract; 
END; 

CMYColor = RECORD 
cyan: SmallFract; 
magenta: SmallFract; 
yellow: SmallFract; 
END; 



FUNCTION Fix2SmallFract (f : Fixed): SmallFract; 

INLINE $3F3C, $0001, 5A82E; 
FUNCTION SmallFract2Fix (s: SmallFract): Fixed; 

INLINE $3F3C, $0002, $A82E; 
PROCEDURE CMY2RGB (cColor : CMYColor; VAR rColor: RGBColor) ; 

INLINE $3F3C, $0003, $A82E; 
PROCEDURE RGB2CMY (rColor : RGBColor;VAR cColor: CMYColor); 

INLINE $3F3C, $0004, $A82E; 
PROCEDURE HSL2RGB(hColor : HSLColor;VAR rColor: RGBColor); 

INLINE $3F3C, $0005, $A82E; 
PROCEDURE RGB2HSL{rColor : RGBColor;VAR hColor: HSLColor); 

INLINE $3F3C, $0006, $A82E; 
PROCEDURE HSV2RGB(hColor : HSVColor;VAR rColor: RGBColor); 

INLINE $3F3C, $0007, $A82E; 
PROCEDURE RGB2HSV{rColor : RGBColor;VAR hColor: HSVColor) ; 

INLINE $3F3C, $0008, 5A82E; 
FUNCTION GetColor (where: Point;prompt : Str255; inColor : RGBColor;VAR outColor: RGBColor): BOOLEAN; 

INLINE $3F3C, $0009, 5A82E; 



{$ENDC} { UsingPicker } 

{$IFC NOT Usinglncludes} 

END. 
{$ENDC} 



### END OF FILE Picker. p 
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011582 

011583 ##################################################################### 

011584 ### FILE: Pickerlntf.p 

011585 ##################################################################### 
011586 

011587 { 

011588 File: Pickerlntf.p 
011589 

011590 As of MPW 3.0, interface files were reorganized to more closely 

011591 match "Inside Macintosh" reference books and be more consistant 

011592 from language to language. 
011593 

011594 Interfaces for the Color Picker are now found in Picker. p. 

011595 This file, which includes Picker. p, is provided for compatibility 

011596 with old sources. 
011597 

011598 Pascal Interface to the Macintosh Libraries 

011599 Copyright Apple Computer, Inc. 1988 

011600 All Rights Reserved 

011601 ) 
011602 

011603 {$IFC UNDEFINED Usinglncludes } 

011604 {$SETC Usinglncludes := 0} 

011605 {$ENDC) 
011606 

011607 {$IFC NOT Usinglncludes) 

011608 UNIT Pickerlntf; 

011609 INTERFACE 

011610 {$ENDC) 
011611 

011612 {$IFC UNDEFINED UsingPickerlntf ) 

011613 {$SETC UsingPickerlntf := 1) 
011614 

011615 {$1+) 

011616 {$SETC Pickerlntf Includes := Usinglncludes) 

011617 {$SETC Usinglncludes := 1) 

011618 {$IFC UNDEFINED UsingPicker) 

011619 {$1 5$Shell (PInterfaces) Picker. p) 

011620 {$ENDC) 

011621 {$SETC Usinglncludes := Pickerlntf Includes ) 
011622 

011623 {$ENDC) { UsingPickerlntf ) 
011624 

011625 {$IFC NOT Usinglncludes) 

011626 END. 

011627 {$ENDC) 
011628 

011629 

011630 ### END OF FILE Pickerlntf.p 

011631 



9/2/99 10:00 AM David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL Page 232 



011632 

011633 ##################################################################### 

011634 ### FILE: PictUtil.p 

011635 ##################################################################### 
011636 

011637 

011638 { 

011639 Created: Monday, September 16, 1991 at 12:03 AM 

011640 PictUtil.p 

011641 Pascal Interface to the Macintosh Libraries 
011642 

011643 Copyright Apple Computer, Inc. 1990-1991 

011644 All rights reserved 

011645 ) 
011646 
011647 

011648 {$IFC UNDEFINED Usinglncludes } 

011649 {$SETC Usinglncludes := 0} 

011650 {$ENDC) 
011651 

011652 {$IFC NOT Usinglncludes) 

011653 UNIT PictUtil; 

011654 INTERFACE 

011655 {$ENDC} 
011656 

011657 {$IFC UNDEFINED UsingPictUt il } 

011658 {$SETC UsingPictUtil := 1} 
011659 

011660 {$!+) 

011661 {$SETC PictUtillncludes := Usinglncludes) 

011662 {$SETC Usinglncludes := 1} 

011663 {$IFC UNDEFINED UsingTypes} 

011664 {$1 5$Shell (PInterfaces) Types. p) 

011665 {$ENDC} 

011666 {$IFC UNDEFINED UsingPalettes } 

011667 {$1 $$Shell (Plnterfaces)Palettes .p} 

011668 {$ENDC} 

011669 {$SETC Usinglncludes := PictUtillncludes) 
011670 

011671 CONST 
011672 

011673 { verbs for the GetPictlnfo, GetPixMapInf o, and NewPictlnfo calls } 

011674 returnColorlable = 1; 

011675 returnPalette = 2 ; 

011676 recordComments = 4 ; 

011677 recordFontlnfo = 8 ; 

011678 suppressBlackAndWhite = 16; 
011679 

011680 { color pick methods } 

011681 systemMethod ^ 0; {system color pick method} 

011682 popularMethod - 1; {method that chooses the most popular set of colors) 

011683 medianMethod - 2; {method that chooses a good average mix of colors} 
011684 

011685 { color bank types ) 

011686 ColorBanklsCustom = -1; 
.011687 ColorBankIsExactAnd555 = 0; 
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011688 
011689 
011690 
011691 
011692 
011693 
011694 
011695 
011696 
011697 
011698 
011699 
011700 
011701 
011702 
011703 
011704 
011705 
011706 
011707 
011708 
011709 
011710 
011711 
011712 
011713 
011714 
011715 
011716 
011717 
011718 
011719 
011720 
011721 
011722 
011723 
011724 
011725 
011726 
011727 
011728 
011729 
011730 
011731 
011732 
011733 
011734 
011735 
011736 
011737 
011738 
011739 
011740 
011741 
011742 
011743 



ColorBankIs555 = 1; 

TYPE 

PictlnfoID = LONGINT; 

CommentSpecPtr = "^CommentSpec; 
CommentSpecHandle ^ ^CommentSpecPtr; 
CommentSpec = RECORD 

count: INTEGER; 

ID: INTEGER; 

END; 

FontSpecPtr ^ ^FontSpec; 
FontSpecHandle = ^FontSpecPtr; 
FontSpec = RECORD 

pictFontID: INTEGER; 

sysFontID: INTEGER; 

size: ARRAY [0..3] OF LONGINT; 

style: INTEGER; 

nameOffset: LONGINT; 

END; 

PictlnfoPtr = ^Plctlnfo; 
PictlnfoHandle = ^PictlnfoPtr; 
Pictlnfo = RECORD 

version: INTEGER; 

uniqueColors: LONGINT; 

thePalette: PaletteHandle; 

theColorTable: CTabHandle; 

hRes: Fixed; 

vRes : Fixed; 

depth: INTEGER; 

sourceRect : Rect; 

textCount: LONGINT; 

lineCount: LONGINT; 

rectCount: LONGINT; 

rRectCount: LONGINT; 

ovalCount: LONGINT; 

arcCount: LONGINT; 

polyCount: LONGINT; 

regionCount : LONGINT; 

bitMapCount : LONGINT; 

pixMapCount : LONGINT; 

commentCount : LONGINT; 

uniqueComments : LONGINT; 

commentHandle : CommentSpecHandle; 

uniqueFonts: LONGINT; 

f ontHandle : FontSpecHandle; 

f ontNamesHandle : Handle; 

reservedl: LONGINT; 

reserved2: LONGINT; 

END; 



FUNCTION GetPictlnfo (thePictHandle: PicHandle; 
VAR thePictlnfo: Pictlnfo; 



number of occurrances of this comment ID } 
ID for the comment in the picture } 



ID of the font in the picture } 

ID of the same font in the current system file } 

bit array of all the sizes found (1..127) (bit means > 127) } 

combined style of all occurrances of the font } 

offset into the fontNamesHdl handle for the font's name } 



this is always zero, for now ) 

the number of actual colors in the picture (s) /pixmap (s) } 

handle to the palette information } 

handle to the color table } 

maximum horizontal resolution for all the pixmaps } 

maximum vertical resolution for all the pixmaps } 

maximum depth for all the pixmaps (in the picture) } 

the picture frame rectangle (this contains the entire picture) } 

total number of text strings in the picture } 

total number of lines in the picture } 

total number of rectangles in the picture } 

total number of round rectangles in the picture } 

total number of ovals in the picture } 

total number of arcs in the picture } 

total number of polygons in the picture } 

total number of regions in the picture } 

total number of bitmaps in the picture } 

total number of pixmaps in the picture } 

total number of comments in the picture } 

the number of unique comments in the picture } 

handle to all the comment information ) 

the number of unique fonts in the picture } 

handle to the FontSpec information } 

handle to the font names } 
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011744 verb: INTEGER; 

011745 colorsRequested: INTEGER; 

011746 colorPickMethod: INTEGER; 

011747 version: INTEGER) : OSErr; 

011748 INLINE $303C, $0800 , 5A831 ; 

011749 FUNCTION GetPixMapInf o (thePixMapHandle : PixMapHandle; 

011750 VAR thePictlnfo: Pictlnfo; 

011751 verb: INTEGER; 

011752 colorsRequested: INTEGER; 

011753 colorPickMethod: INTEGER; 

011754 version: INTEGER) : OSErr; 

011755 INLINE $303C, $0801, $A831; 

011756 FUNCTION NewPict Info (VAR thePict Inf oID : PictlnfoID; 

011757 verb: INTEGER; 

011758 colorsRequested: INTEGER; 

011759 colorPickMethod: INTEGER; 

011760 version: INTEGER) : OSErr; 

011761 INLINE $303C, $0602, $A831; 

011762 FUNCTION RecordPict Inf o (thePict Inf oID : PictlnfoID; 

011763 thePictHandle: PicHandle) : OSErr; 

011764 INLINE $303C, $04 03, $A831 ; 

011765 FUNCTION RecordPixMapInfo (thePict Inf oID : PictlnfoID; 

011766 thePixMapHandle: PixMapHandle) : OSErr; 

011767 INLINE $303C, $04 04 , 5A831 ; 

011768 FUNCTION RetrievePict Inf o (thePict Inf oID : PictlnfoID; 

011769 VAR thePictlnfo: Pictlnfo; 

011770 colorsRequested: INTEGER) : OSErr; 

011771 INLINE $303C, $0505, $A831; 

011772 FUNCTION DisposPict Inf o (thePictInf oID : PictlnfoID): OSErr; 

011773 INLINE $303C, $0206, 5A831 ; 
011774 

011775 

011776 {$ENDC) { UsingPictUtil } 

011777 

011778 {$IFC NOT Usinglncludes ) 

01177 9 END. 

011780 {$ENDC} 

011781 

011782 

011783 ### END OF FILE PictUtil.p 

011784 
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011785 






011786 


##################################################################### 




011787 


### FILE: Power. p 




011788 


##################################################################### 




011789 






011790 


{ 




011791 


Created: Sunday, January 6, 1991 at 10:54 PM 




011792 


Power .p 




011793 


Pascal Interface to the Macintosh Libraries 




011794 






011795 


Copyright Apple Computer, Inc. 1989-1990 




011796 


All rights reserved 




011797 


) 




011798 






011799 






011800 


{$IFC UNDEFINED Usinglncludes } 




011801 


{$SETC Usinglncludes := 0} 




011802 


{$ENDC} 




011803 






011804 


{$IFC NOT Usinglncludes} 




011805 


UNIT Power; 




011806 


INTERFACE 




011807 


{$ENDC) 




011808 






011809 


{$IFC UNDEFINED UsingPower} 




011810 


{$SETC UsingPower := 1) 




011811 






011812 


{$1+) 




011813 


{$SETC Powerlncludes := Usinglncludes} 




011814 


{$SETC Usinglncludes := 1} 




011815 


{$IFC UNDEFINED UsingTypes} 




011816 


{$1 $$Shell (PInterfaces) Types. p} 




011817 


{$ENDC} 




011818 


{$SETC Usinglncludes := Powerlncludes} 




011819 






011820 


CONST 




011821 






011822 


{ Bit positions for ModemByte } 




011823 


modemOnBit = 0; 




011824 


ringWakeUpBit = 2; 




011825 


modemlnstalledBit = 3; 




011826 


ringDetectBit = 4; 




011827 


modemOnHookBit = 5; 




011828 






011829 


{ masks for ModemByte } 




011830 


modemOnMask ^ SI; 




011831 


ringWakeUpMask = $4; 




011832 


modemlnstalledMask = $8; 




011833 


ringDetectMask = $10; 




011834 


modemOnHookMask ^ $20; 




011835 






011836 


{ bit positions for BatteryByte } 




011837 


chargerConnBit = 0; 




011838 


hiChargeBit = 1; 




011839 


chargeOverFlowBit = 2; 




011840 


batteryDeadBit = 3; 


J 
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011841 batteryLowBit = 4; 

011842 connChangedBlt = 5; 
011843 

011844 { masks for BatteryByte ) 

011845 chargerConnMask = $1; 

011846 hiChargeMask = $2; 

011847 chargeOverFlowMask = $4; 

011848 batteryDeadMask = $8; 

011849 batteryLowMask = $10; 

011850 connChangedMask = $20; 
011851 

011852 { commands to SleepQRec sleepQProc ) 

011853 sleepRequest ^ 1; 

011854 sleepDemand = 2; 

011855 sleepWakeUp = 3; 

011856 sleepRevoke = 4; 
011857 

011858 { SleepQRec. sleepQFlags ) 

011859 noCalls = 1; 

011860 noRequest = 2; 
011861 

011862 slpQType = 16; 

011863 sleepQType = 16; 
011864 

011865 TYPE 

0118 6 6 ModemByte = Byte; 

011867 BatteryByte = Byte; 

011868 

011869 PMResultCode = LONGINT; 

011870 

011871 SleepQRecPtr = ^SleepQRec; 

011872 SleepQRec = RECORD 

011873 sleepQLink: SleepQRecPtr; 

011874 sleepQType: INTEGER; {type = 16) 

011875 sleepQProc: ProcPtr; {Pointer to sleep routine} 

011876 sleepQFlags: INTEGER; 
0118 7 7 END ; 

011878 
011879 

011880 FUNCTION DisableWUTime : OSErr; 

011881 FUNCTION GetWUTime (VAR WUTime: LONGINT;VAR WUFlag: Byte): OSErr; 

011882 FUNCTION SetWUTime (WUTime : LONGINT): OSErr; 

011883 FUNCTION BatteryStatus (VAR Status: Byte;VAR Power: Byte): OSErr; 

011884 FUNCTION ModemStatus (VAR Status: Byte): OSErr; 

011885 FUNCTION IdleUpdate: LONGINT; 

011886 INLINE $A285,$2E80; 

011887 FUNCTION GetCPUSpeed: LONGINT; 

011888 INLINE $70FF, $A485, $2E80 ; 

011889 PROCEDURE Enableldle; 

011890 INLINE $7000,$A485; 

011891 PROCEDURE Disableldle; 

011892 INLINE $7001,$A485; 

011893 PROCEDURE SleepQInstall (qRecPtr : SleepQRecPtr); 

011894 INLINE $205F,$A28A; 

011895 PROCEDURE SleepQRemove (qRecPtr : SleepQRecPtr); 
.011896 INLINE $205F,$A48A; 
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011897 
011898 
011899 
011900 
011901 
011902 
011903 
011904 
011905 
011906 
011907 
011908 
011909 
011910 
011911 
011912 
011913 
011914 
011915 
011916 
011917 



PROCEDURE AOn; 

INLINE $7004,$A685; 
PROCEDURE AOnlgnoreModem; 

INLINE $7005,$A685; 
PROCEDURE BOn; 

INLINE $7000,$A685; 
PROCEDURE AOff; 

INLINE $7084,$A685; 
PROCEDURE BOff; 

INLINE $7080,$A685; 



{$ENDC) 



{ UsingPower } 



{$IFC NOT Uslnglncludes) 

END. 
{$ENDC} 



### END OF FILE Power. p 
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011918 

011919 ##################################################################### 

011920 ### FILE: PPCToolBox.p 

011921 ##################################################################### 
011922 

011923 

011924 { 

011925 Created: Thursday, September 5, 1991 at 5:57 PM 

011926 PPCToolBox.p 

011927 Pascal Interface to the Macintosh Libraries 
011928 

011929 Copyright Apple Computer, Inc. 1989-1991 

011930 All rights reserved 

011931 ) 
011932 
011933 

011934 {$IFC UNDEFINED Usinglncludes } 

011935 {$SETC Usinglncludes := 0} 

011936 {$ENDC) 
011937 

011938 {$IFC NOT Usinglncludes) 

011939 UNIT PPCToolBox; 

011940 INTERFACE 

011941 {$ENDC} 
011942 

011943 {$IFC UNDEFINED UsingPPCToolBox ) 

011944 {$SETC UsingPPCToolBox := 1) 
011945 

011946 {$!+) 

011947 {$SETC PPCToolBoxIncludes := Usinglncludes} 

011948 {$SETC Usinglncludes := 1} 

011949 {$IFC UNDEFINED UsingAppleTalk ) 

011950 {$1 5$Shell (PInterfaces) AppleTalk.p) 

011951 {$ENDC) 

011952 {$IFC UNDEFINED UsingMemory) 

011953 {$1 $$Shell (Plnterfaces)Memory .p) 

011954 {$ENDC) 

011955 {$IFC UNDEFINED UsingTypes) 

011956 {$1 5$Shell (PInterfaces) Types. p) 

011957 {$ENDC) 

011958 {$SETC Usinglncludes := PPCToolBoxIncludes) 
011959 

011960 CONST 
011961 

011962 {The following is temporarily placed here, later it will be moved to GestaltEqu) 

011963 gestaltPPCSupportsStoreAndForward = 52000; 

011964 gestaltPPCVersionAttr = 'ppcv'; 
011965 

011966 TYPE 

011967 PPCServiceType = SignedByte; 
011968 

011969 CONST 

011970 ppcServiceRealTime = 1; 

011971 ppcServiceStoreAndForward ^ 2 ; 
011972 

.011973 TYPE 



9/2/99 10:00 AM 


David - 


Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces:Mac Interfaces PASCAL 


Page 239 


011974 


PPCLocationKind = INTEGER; 








011975 










011976 


CONST 








011977 


ppcNoLocation ^ 0; 




{ There is no PPCLocName } 




011978 


ppcNBPLocation = 1; 




{ Use AppleTalk NBP } 




011979 


ppcNBPTypeLocation = 2; 




{ Used for specifying a location name type during PPCOpen only } 




011980 










011981 


TYPE 








011982 


PPCPortKinds = INTEGER; 








011983 










011984 


CONST 








011985 


ppcByCreatorAndType = 1; 




{ Port type is specified as colloquial Mac creator and type ) 




011986 


ppcByString ^ 2; 




{ Port type is in pascal string format } 




011987 










011988 


TYPE 








011989 


PPCSessionOrlgin = SignedByte; 




{ Values returned for request field in PPCInform call } 




011990 










011991 


CONST 








011992 










011993 


{ Values returned for requestType f 


ield in 


PPCInform call } 




011994 


ppcLocalOrigin = 1; 




{ session originated from this machine } 




011995 


ppcRemoteOrigin ^ 2; 




{ session originated from remote machine } 




011996 










011997 


TYPE 








011998 


PPCPortRefNum = INTEGER; 








011999 


PPCSessRefNum = LONGINT; 








012000 










012001 


PPCPortPtr = -^PPCPortRec; 








012002 


PPCPortRec = RECORD 








012003 


nameScript : ScriptCode; 




{ script of name } 




012004 


name: Str32; 




{ name of port as seen in browser } 




012005 


portKindSelector : PPCPortKinds; 




{ which variant } 




012006 


CASE PPCPortKinds OF 








012007 


ppcByString: 








012008 


(portTypeStr: Str32); 








012009 


ppcByCreatorAndType : 








012010 


(portCreator : OSType; 








012011 


portType: OSType); 








012012 


END; 








012013 










012014 


LocationNaraePtr ^ ^LocationNameRec; 








012015 


LocationNameRec = RECORD 








012016 


locationKindSelector : PPCLocationK 


ind; 


{ which variant } 




012017 


CASE PPCLocationKind OF 








012018 


ppcNBPLocation : 








012019 


(nbpEntity: EntityName) ; 




{ NBP name entity } 




012020 


ppcNBPTypeLocation : 








012021 


(nbpType: Str32); 




{ just the NBP type string, for PPCOpen ) 




012022 


END; 








012023 










012024 


PortlnfoPtr = ''Port Inf oRec; 








012025 


PortlnfoRec = RECORD 








012026 


fillerl: SignedByte; 








012027 


authRequired: BOOLEAN; 








012028 


name: PPCPortRec; 








012029 


END; 
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012030 










012031 










012032 


Portinf oArrayPtr ^ ^Port Inf oArray ; 








012033 


PortlnfoArray = ARRAY [0..0] OF Port Inf oRec; 






012034 


{ Procedures you will need to write } 








012035 


PPCFiiterProcPtr = ProcPtr; 


{ FUNCTION 


MyPortFilter (locationName : LocationNameRec; thePortlnfo: Portinf oRec) 


BOOLEAN; ) 


012036 


PPCCompProcPtr = ProcPtr; 


{ PROCEDURE MyCompletionRoutine (pb: PPCParamBlockPtr) ; ) 




012037 










012038 


PPCOpenPBPtr = ^PPCOpenPBRec; 








012039 


PPCOpenPBRec = RECORD 








012040 


qLink; Ptr; 


{ reserved 


) 




012041 


csCode: INTEGER; 


{ reserved 


) 




012042 


intUse: INTEGER; 


{ reserved 


) 




012043 


intUsePtr: Ptr; 


{ reserved 


) 




012044 


ioCompletion : PPCCompProcPtr; 








012045 


ioResult: OSErr; 








012046 


reserved: ARRAY [1..5] OF LONGINT; 


{ reserved 


) 




012047 


portRefNum: PPCPortRefNum; 


{ 38 < — 


Port Reference } 




012048 


fillerl: LONGINT; 








012049 


serviceType: PPCServiceType; 


{ 44 — > 


Bit field describing the requested port service } 




012050 


resFlag: SignedByte; 


{ 45 — > 


Must be set to } 




012051 


portName: PPCPortPtr; 


{ 46 — > 


PortName for PPC ) 




012052 


locationNarae : Locat ionNamePtr ; 


{ 50 — > 


If NBP Registration is required } 




012053 


networkVisible : BOOLEAN; 


{ 54 — > 


make this network visible on network } 




012054 


nbpRegistered: BOOLEAN; 


{ 55 < — 


The given location name was registered on the network } 




012055 


END; 








012056 










012057 


PPCInformPBPtr = ^PPCInf ormPBRec; 








012058 


PPCInformPBRec = RECORD 








012059 


qLink: Ptr; 


{ reserved 


) 




012060 


csCode: INTEGER; 


{ reserved 


) 




012061 


intUse: INTEGER; 


{ reserved 


) 




012062 


intUsePtr: Ptr; 


{ reserved 


) 




012063 


ioCompletion: PPCCompProcPtr; 








012064 


ioResult: OSErr; 








012065 


reserved: ARRAY [1..5] OF LONGINT; 


{ reserved 


) 




012066 


portRefNum: PPCPortRefNum; 


{ 38 — > 


Port Identifier ) 




012067 


sessRefNum: PPCSessRefNum; 


{ 40 < — 


Session Reference } 




012068 


serviceType: PPCServiceType; 


{ 44 < — 


Status Flags for type of session, local, remote } 




012069 


autoAccept: BOOLEAN; 


{ 45 — > 


if true session will be accepted automatically } 




012070 


portName: PPCPortPtr; 


{ 46 — > 


Buffer for Source PPCPortRec } 




012071 


locationName : LocationNamePtr; 


{ 50 — > 


Buffer for Source LocationNameRec } 




012072 


userName: StringPtr; 


{ 54 — > 


Buffer for Soure user's name trying to link. } 




012073 


userData: LONGINT; 


{ 58 < — 


value included in PPCStart ' s userData } 




012074 


requestType: PPCSessionOrigin; 


{ 62 < — 


Local or Network } 




012075 


END; 








012076 










012077 


PPCStartPBPtr = ^PPCStartPBRec; 








012078 


PPCStartPBRec = RECORD 








012079 


qLink: Ptr; 


{ reserved 


) 




012080 


csCode: INTEGER; 


{ reserved 


) 




012081 


intUse: INTEGER; 


{ reserved 


) 




012082 


intUsePtr: Ptr; 


{ reserved 


) 




012083 


ioCompletion: PPCCompProcPtr; 








012084 


ioResult: OSErr; 








012085 


reserved: ARRAY [1..5] OF LONGINT; 


{ reserved 


) 
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012086 


portRefNum: PPCPortRef Num; 


{ 38 — > 


Port Identifier ) 




012087 


sessRefNum: PPCSessRefNum; 


{ 40 < — 


Session Reference } 




012088 


serviceType: PPCServiceType; 


{ 44 <— 


Actual service method (realTime) } 




012089 


resFlag: SignedByte; 


{ 45 — > 


Must be set to } 




012090 


portName: PPCPortPtr; 


{ 46 — > 


Destination portName } 




012091 


locationName ; LocationNamePtr; 


{ 50 — > 


NBP or NAS style service location name } 




012092 


rejectlnfo: LONGINT; 


{ 54 < — 


reason for rejecting the session request } 




012093 


userData: LONGINT; 


{ 58 — > 


Copied to destination PPCInform parameter block ) 




012094 


userRefNum: LONGINT; 


{ 62 — > 


userRefNum (obtained during login process) } 




012095 


END; 








012096 










012097 


PPCAcceptPBPtr = ^PPCAcceptPBRec; 








012098 


PPCAcceptPBRec = RECORD 








012099 


qLink: Ptr; 


{ reserved 


) 




012100 


csCode: INTEGER; 


{ reserved 


) 




012101 


intUse: INTEGER; 


{ reserved 


) 




012102 


intUsePtr: Ptr; 


{ reserved 


) 




012103 


ioCompletion: PPCCompProcPtr; 








012104 


ioResult: OSErr; 








012105 


reserved: ARRAY [1..5] OF LONGINT; 


{ reserved 


) 




012106 


fillerl: INTEGER; 








012107 


sessRefNum: PPCSessRefNum; 


{ 40 — > 


Session Reference } 




012108 


END; 








012109 










012110 


PPCRejectPBPtr = -^PPCRe jectPBRec; 








012111 


PPCRejectPBRec = RECORD 








012112 


qLink: Ptr; 


{ reserved 


) 




012113 


csCode: INTEGER; 


{ reserved 


) 




012114 


intUse: INTEGER; 


{ reserved 


) 




012115 


intUsePtr: Ptr; 


{ reserved 


) 




012116 


ioCompletion: PPCCompProcPtr; 








012117 


ioResult: OSErr; 








012118 


reserved: ARRAY [1..5] OF LONGINT; 


{ reserved 


) 




012119 


fillerl: INTEGER; 








012120 


sessRefNum: PPCSessRefNum; 


{ 40 — > 


Session Reference } 




012121 


filler2: INTEGER; 








012122 


filler3: LONGINT; 








012123 


filler4: LONGINT; 








012124 


rejectlnfo: LONGINT; 


{ 54 — > 


reason for rejecting the session request } 




012125 


END; 








012126 










012127 


PPCWritePBPtr = ^PPCWritePBRec; 








012128 


PPCWritePBRec = RECORD 








012129 


qLink: Ptr; 


{ reserved 


) 




012130 


csCode: INTEGER; 


{ reserved 


) 




012131 


intUse: INTEGER; 


{ reserved 


) 




012132 


intUsePtr: Ptr; 


{ reserved 


) 




012133 


ioCompletion: PPCCompProcPtr; 








012134 


ioResult: OSErr; 








012135 


reserved: ARRAY [1..5] OF LONGINT; 


{ reserved 


) 




012136 


fillerl: INTEGER; 








012137 


sessRefNum: PPCSessRefNum; 


{ 40 — > 


Session Reference } 




012138 


buf ferLength: Size; 


{ 44 — > 


Length of the message buffer } 




012139 


actualLength: Size; 


{ 48 < — 


Actual Length Written } 




012140 


bufferPtr: Ptr; 


{ 52 — > 


Pointer to message buffer } 




012141 


more: BOOLEAN; 


{ 56 — > 


if more data in this block will be written } 
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012142 


filler2: SignedByte; 










012143 


userData: LONGINT; 




{ 58 — > 


Message block userData Uninterpreted by PPC ) 




012144 


blockCreator : OSType; 




{ 62 — > 


Message block creator Uninterpreted by PPC } 




012145 


blockType: OSType; 




{ 66 — > 


Message block type Uninterpreted by PPC ) 




012146 


END; 










012147 












012148 


PPCReadPBPtr = ^PPCReadPBRec; 










012149 


PPCReadPBRec = RECORD 










012150 


qLink: Ptr; 




{ reserved 


) 




012151 


csCode: INTEGER; 




{ reserved 


) 




012152 


intUse: INTEGER; 




{ reserved 


) 




012153 


intUsePtr: Ptr; 




{ reserved 


) 




012154 


ioCompletion: PPCCompProcPtr; 










012155 


ioResult: OSErr; 










012156 


reserved: ARRAY [1..5] OF LONGINT; 




{ reserved 


) 




012157 


fillerl: INTEGER; 










012158 


sessRefNum: PPCSessRefNum; 




{ 40 — > 


Session Reference } 




012159 


buf f erLength; Size; 




{ 44 — > 


Length of the message buffer } 




012160 


actualLength; Size; 




{ 48 < — 


Actual length read } 




012161 


bufferPtr: Ptr; 




{ 52 — > 


Pointer to message buffer } 




012162 


more: BOOLEAN; 




{ 56 < — 


if true more data in this block to be read } 




012163 


filler2: SignedByte; 










012164 


userData: LONGINT; 




{ 58 < — 


Message block userData Uninterpreted by PPC ) 




012165 


blockCreator: OSType; 




{ 62 <— 


Message block creator Uninterpreted by PPC } 




012166 


blockType: OSType; 




{ 66 < — 


Message block type Uninterpreted by PPC } 




012167 


END; 










012168 












012169 


PPCEndPBPtr = '"PPCEndPBRec; 










012170 


PPCEndPBRec = RECORD 










012171 


qLink: Ptr; 




{ reserved 


) 




012172 


csCode: INTEGER; 




{ reserved 


) 




012173 


IntUse: INTEGER; 




{ reserved 


) 




012174 


IntUsePtr: Ptr; 




{ reserved 


) 




012175 


IoCompletion: PPCCompProcPtr; 










012176 


ioResult: OSErr; 










012177 


reserved: ARRAY [1..5] OF LONGINT; 




{ reserved 


) 




012178 


fillerl: INTEGER; 










012179 


sessRefNum: PPCSessRefNum; 




{ 40 — > 


Session Reference } 




012180 


END; 










012181 












012182 


PPCClosePBPtr = "PPCClosePBRec; 










012183 


PPCClosePBRec = RECORD 










012184 


qLink: Ptr; 




{ reserved 


) 




012185 


csCode: INTEGER; 




{ reserved 


) 




012186 


intUse: INTEGER; 




{ reserved 


) 




012187 


intUsePtr: Ptr; 




{ reserved 


) 




012188 


ioCompletion: PPCCompProcPtr; 










012189 


ioResult: OSErr; 










012190 


reserved: ARRAY [1..5] OF LONGINT; 




{ reserved 


) 




012191 


portRefNum: PPCPortRef Num; 




{ 38 — > 


Port Identifier ) 




012192 


END; 










012193 












012194 


IPCListPortsPBPtr = ^IPCListPort sPBRec; 








012195 


IPCListPortsPBRec = RECORD 










012196 


qLink: Ptr; 




{ reserved 


) 




012197 


csCode: INTEGER; 




{ reserved 


) 





9/2/99 10:00 AM 


David - 


Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL 


Page 243 


012198 


intUse: INTEGER; 


{ reserved } 




012199 


intUsePtr: Ptr; 


{ reserved } 




012200 


ioCompletion: PPCCompProcPtr; 






012201 


ioResult: OSErr; 






012202 


reserved: ARRAY [1..5] OF LONGINT; 


{ reserved } 




012203 


fillerl: INTEGER; 






012204 


startlndex: INTEGER; 


{ 40 — > Start Index ) 




012205 


requestCount : INTEGER; 


{ 42 — > Number of entries to be returned } 




012206 


actualCount: INTEGER; 


{ 44 <-- Actual Number of entries to be returned ) 




012207 


portName: PPCPortPtr; 


{ 4 6 — > PortName Match ) 




012208 


locationName : LocationNamePtr; 


{ 50 — > NBP or NAS type name to locate the Port Location ) 




012209 


bufferPtr: Port Inf oArrayPtr ; 


{ 54 — > Pointer to a buffer requestCount*sizeof (Port Inf o) bytes big ) 




012210 


END; 






012211 








012212 


PPCParamBlockPtr = ^PPCParamBlockRec; 






012213 


PPCParamBlockRec = RECORD 






012214 


CASE Integer OF 






012215 





(openParam: PPCOpenPBRec) ; 






012216 


1 


(informParam: PPCInformPBRec) ; 






012217 


2 


(startParam: PPCStartPBRec) ; 






012218 


3 


(acceptParam: PPCAcceptPBRec) ; 






012219 


4 


(re jectParam: PPCRe jectPBRec) ; 






012220 


5 


(writeParam: PPCWritePBRec) ; 






012221 


6 


(readParam: PPCReadPBRec) ; 






012222 


7 


(endParam: PPCEndPBRec) ; 






012223 


8 


(closeParam: PPCClosePBRec) ; 






012224 


9 


(listPortsParam: IPCListPortsPBRe 


=) ; 




012225 


END; 






012226 








012227 








012228 








012229 


{ PPC Calling Conventions ) 






012230 


FUNCTION PPCInit: OSErr; 






012231 


INLINE $7000,$A0DD,$3E80; 






012232 


FUNCTION PPCOpen(pb: PPCOpenPBPtr; async : BOOLEAN): OSErr; 




012233 


FUNCTION PPCOpenSync (pb: PPCOpenPBPtr): OSErr; 




012234 


INLINE $205F,$7001,$A0DD,$3E80; 






012235 


FUNCTION PPCOpenAsync(pb: PPCOpenPBPtr): OSErr; 




012236 


INLINE $205F, $7001, $A4DD, $3E80; 






012237 


FUNCTION PPCInform(pb: PPCInformPBPtr; async : BOOLEAN): OSErr; 




012238 


FUNCTION PPCInformSync(pb: PPCInformPBPtr) 


: OSErr; 




012239 


INLINE $205F,$7003,$A0DD,$3E80; 






012240 


FUNCTION PPCInformAsync (pb: PPCInformPBPtr 


) : OSErr; 




012241 


INLINE $205F, $7003, $A4DD, $3E80; 






012242 


FUNCTION PPCStart{pb: PPCStartPBPtr; async : 


BOOLEAN) : OSErr; 




012243 


FUNCTION PPCStartSync{pb: PPCStartPBPtr): 


DSErr; 




012244 


INLINE $205F, $7002, $AODD, $3E80; 






012245 


FUNCTION PPCStartAsync (pb: PPCStartPBPtr): 


OSErr; 




012246 


INLINE $205F, $7002,$A4DD,$3E80; 






012247 


FUNCTION PPCAccept (pb: PPCAcceptPBPtr; async : BOOLEAN): OSErr; 




012248 


FUNCTION PPCAcceptSync (pb: PPCAcceptPBPtr) 


: OSErr; 




012249 


INLINE $205F, $7004, 5A0DD, $3E80; 






012250 


FUNCTION PPCAcceptAsync(pb: PPCAcceptPBPtr 


) : OSErr; 




012251 


INLINE $205F,$7004,$A4DD,$3E80; 






012252 


FUNCTION PPCReject (pb: PPCRejectPBPtr; async : BOOLEAN): OSErr; 




012253 


FUNCTIOt 


i PPCReiectSync (pb: PPCReiectPBPtr) 


: OSErr; 
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012254 INLINE $205F, $7005, 5A0DD, $3E80 ; 

012255 FUNCTION PPCRe jectAsync (pb : PPCRejectPBPtr) : OSErr; 

012256 INLINE $205F, $7005, $A4DD, $3E80; 

012257 FUNCTION PPCWrite(pb: PPCWritePBPtr; async : BOOLEAN): OSErr; 

012258 FUNCTION PPCWriteSync (pb : PPCWritePBPtr): OSErr; 

012259 INLINE $205F, $7006, $AODD, $3E80 ; 

012260 FUNCTION PPCWriteAsync (pb : PPCWritePBPtr): OSErr; 

012261 INLINE $205F, $7006, $A4DD, $3E80; 

012262 FUNCTION PPCRead(pb: PPCReadPBPtr; async : BOOLEAN): OSErr; 

012263 FUNCTION PPCReadSync (pb : PPCReadPBPtr): OSErr; 

012264 INLINE $205F, $7007 , $AODD, $3E80 ; 

012265 FUNCTION PPCReadAsync (pb : PPCReadPBPtr): OSErr; 

012266 INLINE $205F, $7007 , $A4DD, $3E80 ; 

012267 FUNCTION PPCEnd(pb: PPCEndPBPtr; async : BOOLEAN): OSErr; 

012268 FUNCTION PPCEndSync (pb : PPCEndPBPtr): OSErr; 

012269 INLINE $205F, $7008 , $AODD, $3E80 ; 

012270 FUNCTION PPCEndAsync (pb : PPCEndPBPtr): OSErr; 

012271 INLINE $205F, $7008 , $A4DD, $3E80 ; 

012272 FUNCTION PPCClose(pb: PPCClosePBPtr; async : BOOLEAN): OSErr; 

012273 FUNCTION PPCCloseSync (pb : PPCClosePBPtr): OSErr; 

012274 INLINE $205F, $7009, $AODD, $3E80 ; 

012275 FUNCTION PPCCloseAsync (pb : PPCClosePBPtr): OSErr; 

012276 INLINE $2 05F, $7009, $A4DD, $3E80 ; 

012277 FUNCTION IPCListPort s (pb : IPCListPortsPBPtr; async : BOOLEAN): OSErr; 

012278 FUNCTION IPCListPort sSync (pb : IPCListPortsPBPtr): OSErr; 

012279 INLINE $205F, $700A, $AODD, $3E80 ; 

012280 FUNCTION IPCListPort sAsync (pb : IPCListPortsPBPtr): OSErr; 

012281 INLINE $205F, $700A, $A4DD, $3E80 ; 
012282 

012283 FUNCTION PPCKill(pb: PPCParamBlockPtr) : OSErr; 

012284 INLINE $2 05F, $700B, $AODD, $3E80 ; 
012285 

012286 FUNCTION DeleteUserldent ity (userRef : LONGINT) : OSErr; 

012287 FUNCTION GetDef aultUser (VAR userRef: LONGINT; 

012288 VAR userName : Str32): OSErr; 

012289 FUNCTION StartSecureSession (pb : PPCStartPBPtr ; 

012290 VAR userName: Str32; 

012291 useDefault: BOOLEAN; 

012292 allowGuest: BOOLEAN; 

012293 VAR guestSelected: BOOLEAN; 

012294 prompt: Str255): OSErr; 

012295 FUNCTION PPCBrowser (prompt : Str255; 

012296 applListLabel: Str255; 

012297 defaultSpecified: BOOLEAN; 

012298 VAR theLocation: LocationNameRec; 

012299 VAR tliePortlnfo: PortlnfoRec; 

012300 portFilter: PPCFilterProcPtr; 

012301 theLocNBPType: Str32) : OSErr; 

012302 INLINE $303C, $0D00, $A82B; 
012303 

012304 

012305 {$ENDC) { UsingPPCToolBox ) 

012306 

012307 {$IFC NOT Usinglncludes ) 

012308 END. 
^12309 {$ENDC) 
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012310 

012311 

012312 ### END OF FILE PPCToolBox.p 

012313 
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012314 
012315 
012316 
012317 
012318 
012319 
012320 
012321 
012322 
012323 
012324 
012325 
012326 
012327 
012328 
012329 
012330 
012331 
012332 
012333 
012334 
012335 
012336 
012337 
012338 
012339 
012340 
012341 
012342 
012343 
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##################################################################### 
### FILE: Printing. p 
##################################################################### 



Created: Saturday, February 15, 1992 at 11:19 AM 
Printing . p 
Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 1985-1991 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 
{$ENDC) 

{$IFC NOT Usinglncludes) 

UNIT Printing; 

INTERFACE 
{$ENDC} 

{$IFC UNDEFINED UsingPrinting} 
{$SETC UsingPrinting := 1} 

{$!+) 

{$SETC Printinglncludes :^ Usinglncludes} 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingQuickdraw) 

{$1 $$ Shell (Plnterfaces)Quickdraw.p) 

{$ENDC) 

{$IFC UNDEFINED UsingDialogs ) 

{$1 5$ Shell (P Interfaces) Dialogs .p} 

{$ENDC) 

{$SETC Usinglncludes := Printinglncludes) 



CONST 

iPFMaxPgs = 12 8; 
iPrPgFract = 120; 
iPrPgFst = 1; 
iPrPgMax = 9999; 
iPrRelease = 3; 
iPrSavPFil = -1; 
iPrAbort = $0080; 
iPrDevCtl = 7; 
IPrReset = $00010000; 
IPrLineFeed = $00030000; 
IPrLFStd = $0003FFFF; 
IPrLFSixth = $0003FFFF; 
IPrPageEnd = $00020000; 
IPrDocOpen = $00010000; 
IPrPageOpen = $00040000; 
IPrPaqeClose = $00020000; 



{Page scale factor. ptPgSize (below) is in units of 1/iPrPgFract ) 
{Page range constants} 

{Current version number of the code.) 

{The PrDevCtl Proc's ctl number) 

{The PrDevCtl Proc's CParam for reset} 

{The PrDevCtl Proc's CParam for std paper advance} 

{The PrDevCtl Proc's CParam for end page) 
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012370 


IPrDocClose = $00050000; 






012371 


iFMgrCtl = 8; 


{The FMgr ' s Tail-hook Proc's ctl number) 




012372 


iMscCtl = 9; 


{The FMgr ' s Tail-hook Proc's ctl number) 




012373 


IPvtCtl = 10; 


{The FMgr ' s Tail-hook Proc's ctl number) 




012374 


IMemFullErr = -108; 






012375 


ilOAbort = -27; 






012376 


pPrGlobals = $00000944; 


{The PrVars lo mem area:) 




012377 


bDraftLoop = 








012378 


bSpoolLoop = 1 








012379 


bUserlLoop = 2 








012380 


bUser2Loop = 3 








012381 


fNewRunBlt = 2 








012382 


fHiResOK = 3; 






012383 


fWeOpenedRF = 4; 






012384 








012385 


{Driver constants } 






012386 


IPrBitsCtl = 4; 






012387 


IScreenBits = 0; 






012388 


IPaintBits = 1; 






012389 


IHiScreenBits = $00000002; 


{The Bitmap Print Proc's Screen Bitmap param) 




012390 


IHiPaintBits = $00000003; 


{The Bitmap Print Proc's Paint [sq pix] param} 




012391 


IPrlOCtl = 5; 






012392 


IPrEvtCtl = 6; 


{The PrEvent Proc's ctl number) 




012393 


IPrEvtAll = $0002FFFD; 


{The PrEvent Proc's CParam for the entire screen) 




012394 


IPrEvtTop = $0001FFFD; 


{The PrEvent Proc's CParam for the top folder} 




012395 


iPrDrvrRef = -3; 






012396 


getRslDataOp = 4; 






012397 


setRslOp = 5; 






012398 


draftBitsOp = 6; 






012399 


noDraftBitsOp = 7; 






012400 


getRotnOp = 8; 






012401 


NoSuchRsl = 1; 






012402 


OpNotlmpl = 2; 


{the driver doesn't support this opcode) 




012403 


RgTypel = 1; 






012404 








012405 


TYPE 






012406 


TFeed = (feedCut,feedFanfold, 


feedMechCut, feedOther) ; 




012407 








012408 


TScan = (scanTB, scanBT, scanLR 


, scanRL) ; 




012409 








012410 








012411 


TPRect = ^Rect; 


{ A Rect Ptr } 




012412 


PrIdleProcPtr = ProcPtr; 






012413 


PItemProcPtr = ProcPtr; 






012414 








012415 


TPPrPort = ^TPrPort; 






012416 


TPrPort = RECORD 






012417 


gPort: GrafPort; 


{The Printer's graf port.} 




012418 


gProcs : QDProcs; 


{ . . and its procs ) 




012419 


IGParaml: LONGINT 




{16 bytes for private parameter storage.) 




012420 


lGParam2: LONGINT 








012421 


lGParam3: LONGINT 








012422 


lGParam4: LONGINT 








012423 


fOurPtr: BOOLEAN; 


{Whether the PrPort allocation was done by us.) 




012424 


fOurBits: BOOLEAN; 


{Whether the BitMap allocation was done by us.) 




012425 


END; 











9/2/99 10:00 AM 


David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL 


Page 248 


012426 








012427 


{ Printing Graf Port. All printer imaging, whether spooling, banding, etc, happens "thru" a Graf Port . 




012428 


This is the "PrPeek" record. ) 






012429 


TPPrlnfo = ^TPrlnfo; 






012430 


TPrlnfo = RECORD 






012431 


iDev: INTEGER; 


{Font mgr/QuickDraw device code) 




012432 


iVRes : INTEGER; 


{Resolution of device, in device coordinates) 




012433 


iHRes: INTEGER; 


{..note: V before H ^> compatable with Point.} 




012434 


rPage : Rect; 


{The page (printable) rectangle in device coordinates.) 




012435 


END; 






012436 








012437 


{ Print Info Record: The parameters 


needed for page composition. } 




012438 


TPPrStl = "TPrStl; 






012439 


TPrStl = RECORD 






012440 


wDev: INTEGER; 






012441 


iPageV: INTEGER; 






012442 


iPageH: INTEGER; 






012443 


bPort: SignedByte; 






012444 


feed: TFeed; 






012445 


END; 






012446 








012447 


TPPrXInfo = "TPrXInfo; 






012448 


TPrXInfo = RECORD 






012449 


iRowBytes: INTEGER; 






012450 


iBandV: INTEGER; 






012451 


IBandH: INTEGER; 






012452 


iDevBytes: INTEGER; 






012453 


iBands : INTEGER; 






012454 


bPatScale: SignedByte; 






012455 


bUlThick: SignedByte; 






012456 


bUlOffset: SignedByte; 






012457 


bUlShadow: SignedByte; 






012458 


scan: TScan; 






012459 


bXInfoX: SignedByte; 






012460 


END; 






012461 








012462 


TPPrJob = "TPrJob; 






012463 


TPrJob = RECORD 






012464 


iFstPage: INTEGER; 


{Page Range . ) 




012465 


iLstPage: INTEGER; 






012466 


iCopies: INTEGER; 


{No . copies . ) 




012467 


bJDocLoop: SignedByte; 


{The Doc style: Draft, Spool, .., and ..) 




012468 


fFromUsr: BOOLEAN; 


{Printing from an User's App (not PrApp) flag) 




012469 


pIdleProc: PrIdleProcPtr; 


{The Proc called while waiting on 10 etc.) 




012470 


pFileName: StringPtr; 


{Spool File Name: NIL for default.) 




012471 


iFileVol: INTEGER; 


{Spool File vol, set to initially) 




012472 


bFileVers: SignedByte; 


{Spool File version, set to initially) 




012473 


bJobX: SignedByte; 


{An extra byte . ) 




012474 


END; 






012475 








012476 


TPrFlagl = PACKED RECORD 






012477 


fl5 


BOOLEAN; 






012478 


fl4 


BOOLEAN; 






012479 


fl3 


BOOLEAN; 






012480 


fl2 


BOOLEAN; 






012481 


fll 


BOOLEAN; 
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012482 


flO: BOOLEAN; 








012483 


f9 


BOOLEAN; 








012484 


f8 


BOOLEAN; 








012485 


f7 


BOOLEAN; 








012486 


f6 


BOOLEAN; 








012487 


f5 


BOOLEAN; 








012488 


f4 


BOOLEAN; 








012489 


f3 


BOOLEAN; 








012490 


f2 


BOOLEAN; 








012491 


fLstPgFst: BOOLEAN; 








012492 


fUserScale: BOOLEAN; 








012493 


END; 








012494 










012495 


{ Print Job: Print "form" for a single print request. } 








012496 


TPPrint = ^TPrint; 








012497 


THPrint = ^TPPrint; 








012498 


TPrint = RECORD 








012499 


iPrVersion: INTEGER; {(2) Printing software version) 








012500 


prinfo: TPrlnfo; {(14) the Prinfo data associated with the current style.} 








012501 


rPaper: Rect; {(8) The paper rectangle [offset from rPage]) 








012502 


prStl: TPrStl; {(8) This print request's style.} 








012503 


prInfoPT: TPrlnfo; {(14) Print Time Imaging metrics} 








012504 


prXInf o : TPrXInfo; {(16) Print-time (expanded) Print info record.) 








012505 


prJob: TPrJob; {(20) The Print Job request (82) Total of the above; 120-82 = 


38 bytes needed 


to fill 120) 




012506 


CASE INTEGER OF 








012507 


0: 








012508 


(printX: ARRAY [1..19] OF INTEGER); 








012509 


1: 








012510 


(prFlagl: TPrFlagl; {a word of flags) 








012511 


iZoomMin: INTEGER; 








012512 


iZoomMax: INTEGER; 








012513 


hDocName : StringHandle) ; {current doc's name, nil ^ front window) 








012514 


END; 








012515 










012516 


{ The universal 120 byte printing record } 








012517 


TPPrStatus = •^TPrStatus; 








012518 


TPrStatus = RECORD 








012519 


iTotPages: INTEGER; {Total pages in Print File.) 








012520 


iCurPage: INTEGER; {Current page number) 








012521 


iTotCopies: INTEGER; {Total copies requested) 








012522 


iCurCopy: INTEGER; {Current copy number) 








012523 


iTotBands: INTEGER; {Total bands per page.) 








012524 


iCurBand: INTEGER; {Current band number) 








012525 


fPgDirty; BOOLEAN; {True if current page has been written to.) 








012526 


f Imaging: BOOLEAN; {Set while in band's DrawPic call.) 








012527 


hPrint: THPrint; {Handle to the active Printer record) 








012528 


pPrPort : TPPrPort; {Ptr to the active PrPort} 








012529 


hPic: PicHandle; {Handle to the active Picture} 








012530 


END; 








012531 










012532 


{ Print Status: Print information during printing. ) 








012533 


TPPfPgDir = ^TPfPgDir; 








012534 


THPfPgDir = "TPPfPgDir; 








012535 


TPfPgDir = RECORD 








012536 


iPages: INTEGER; 








012537 


iPc 


jPos: ARRAY [0..128] OF LONGINT; {ARRAY [ . . iPfMaxPgs ] OF LONGINT) 
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012538 
012539 
012540 
012541 
012542 
012543 
012544 
012545 
012546 
012547 
012548 
012549 
012550 
012551 
012552 
012553 
012554 
012555 
012556 
012557 
012558 
012559 
012560 
012561 
012562 
012563 
012564 
012565 
012566 
012567 
012568 
012569 
012570 
012571 
012572 
012573 
012574 
012575 
012576 
012577 
012578 
012579 
012580 
012581 
012582 
012583 
012584 
012585 
012586 
012587 
012588 
012589 
012590 
012591 
012592 
012593 



END; 

{ PicFile - a TPfHeader followed by n QuickDraw Pics {whose PicSize is invalid!) } 
TPPrDlg = ^TPrDlg; 
TPrDlg = RECORD 
Dig: DialogRecord; 
pFltrProc: ModalFilterProcPtr; 
pItemProc: PItemProcPtr; 
hPrintUsr: THPrint; 
fDoIt: BOOLEAN; 
BOOLEAN; 
LONGINT; 
LONGINT; 
LONGINT; 
LONGINT; 



fDone : 

lUserl : 
lUser2 : 
lUser3: 
lUser4 : 
END; 



{The Dialog window} 

{The Filter Proc . } 

{The Item evaluating proc.} 

{The user's print record.} 



Four longs for user's to hang global data.) 

. . .Plus more stuff needed by the particular printing dialog. } 



PDlglnitProcPtr 



ProcPtr; 



TGnlData = RECORD 
iOpCode: INTEGER; 
lError: INTEGER; 
IReserved: LONGINT; 
END; 

TRslRg = RECORD 
IMin: INTEGER; 
IMax: INTEGER; 
END; 

TRslRec = RECORD 
iXRsl: INTEGER; 
iYRsl: INTEGER; 
END; 

TGetRslBllt = RECORD 
iOpCode: INTEGER; 
iError: INTEGER; 
IReserved: LONGINT; 
IRgType: INTEGER; 
xRslRg: TRslRg; 
yRslRg: TRslRg; 
IRslRecCnt: INTEGER; 
rgRslRec: ARRAY [1.. 
END; 

TSetRslBllt = RECORD 
iOpCode: INTEGER; 
iError: INTEGER; 
IReserved: LONGINT; 
hPrint : THPrint; 
iXRsl: INTEGER; 
iYRsl: INTEGER; 
END; 



{more fields here depending on call) 



27] OF TRslRec; 



' N 

9/2/99 10:00 AM David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL Page 251 ' 



012594 


TDftBitsBlk = RECORD 






012595 


iOpCode: INTEGER; 






012596 


lError: INTEGER; 






012597 


IReserved: LONGINT; 






012598 


hPrlnt: THPrint; 






012599 


END; 






012600 








012601 


TGetRotnBlk = RECORD 






012602 


iOpCode: INTEGER; 






012603 


lError: INTEGER; 






012604 


IReserved: LONGINT; 






012605 


hPrint: THPrint; 






012606 


f Landscape: BOOLEAN; 






012607 


bXtra: SlgnedByte; 






012608 


END; 






012609 








012610 


TPBitMap = ^BltMap; 


{ A BitMap Ptr ) 




012611 








012612 


TN = 0. .15; 


{ a Nibble ) 




012613 








012614 


TPWord = "TWord; 






012615 


THWord = "TPWord; 






012616 


TWord = PACKED RECORD 






012617 


CASE INTEGER OF 






012618 


0: 






012619 


(Cl,c0: CHAR); 






012620 


1: 






012621 


(bl,bO: SlgnedByte); 






012622 


2: 






012623 


(usbl,usbO: Byte); 






012624 


3: 






012625 


(n3, n2,nl,n0: TN); 






012626 


4: 






012627 


(fl5,fl4,fl3,fl2,fll,fl0,f9,f8 


,f7,f6,f5,f4,f3,f2,fl,f0: 


BOOLEAN) ; 


012628 


c . 






012629 


(10: INTEGER); 






012630 


END; 






012631 








012632 


TPLong = "TLong; 






012633 


THLong = "TPLong; 






012634 


TLong = RECORD 






012635 


CASE INTEGER OF 






012636 


0: 






012637 


(wl, wO : TWord) ; 






012638 


1: 






012639 


(bl,bO: LONGINT); 






012640 


2: 






012641 


(pO: Ptr); 






012642 


3: 






012643 


(hO: Handle); 






012644 


4: 






012645 


(pt : Point) ; 






012646 


END; 






012647 








012648 








012649 


PROCEDURE PrPurge; 
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012650 INLINE $2F3C, $A800 , $0000, $A8FD; 

012651 PROCEDURE PrNoPurge; 

012652 INLINE $2F3C, $B000, $0000 , $A8FD; 

012653 PROCEDURE PrOpen; 

012654 INLINE $2F3C, $0800 , $0000 , $A8FD; 

012655 PROCEDURE PrClose; 

012656 INLINE $2F3C, $D000 , $0000 , $A8FD; 

012657 PROCEDURE PrlntDef ault (hPrint : THPrint); 

012658 INLINE $2F3C, $2004 , $0480, $A8FD; 

012659 FUNCTION PrValidate (hPrint : THPrint): BOOLEAN; 

012660 INLINE $2F3C, $52 04 , $04 98 , $A8FD; 

012661 FUNCTION PrStlDialog (hPrint : THPrint): BOOLEAN; 

012662 INLINE $2F3C, $2A04 , $0484 , $A8FD; 

012663 FUNCTION PrJobDialog (hPrint : THPrint): BOOLEAN; 

012664 INLINE $2F3C, $32 04 , $0488, $A8FD; 

012665 FUNCTION PrStllnit (hPrint : THPrint): TPPrDlg; 

012666 INLINE $2F3C, $3C04 , $040C, $A8FD; 

012667 FUNCTION PrJoblnit (hPrint : THPrint): TPPrDlg; 

012668 INLINE $2F3C, $44 04 , $0410, $A8FD; 

012669 PROCEDURE PrJobMerge (hPrint Src : THPrint; hPrintDst : THPrint); 

012670 INLINE $2F3C, $5804 , $08 9C, $A8FD; 

012671 FUNCTION PrDlgMain (hPrint : THPrint;pDlgInit : PDlglnitProcPtr) : BOOLEAN; 

012672 INLINE $2F3C, $4A04 , $08 94 , $A8FD; 

012673 FUNCTION PrOpenDoc (hPrint : THPrint ; pPrPort : TPPrPort ; pIOBuf : Ptr) : TPPrPort; 

012674 INLINE $2F3C, $04 00 , $0000, $A8FD; 

012675 PROCEDURE PrCloseDoc (pPrPort : TPPrPort); 

012676 INLINE $2F3C, $0800 , $0484 , $A8FD; 

012677 PROCEDURE PrOpenPage (pPrPort : TPPrPort;pPageFrame : TPRect); 

012678 INLINE $2F3C, $1000 , $0808, $A8FD; 

012679 PROCEDURE PrClosePage (pPrPort : TPPrPort); 

012680 INLINE $2F3C, $1800 , $040C, $A8FD; 

012681 PROCEDURE PrPicFile (hPrint : THPrint ;pPrPort : TPPrPort ; pIOBuf : Ptr;pDevBuf: Ptr; 

012682 VARprStatus: TPrStatus); 

012683 INLINE $2F3C, $ 6005, $1480 , $A8FD; 

012684 FUNCTION PrError: INTEGER; 

012685 INLINE $2F3C, $BAOO , $0000, $A8FD; 

012686 PROCEDURE PrSetError (lErr : INTEGER); 

012687 INLINE $2F3C, $0000 , $0200, $A8FD; 

012688 PROCEDURE PrGeneral (pData : Ptr); 

012689 INLINE $2F3C, $7007 , $0480, $A8FD; 

012690 PROCEDURE PrDrvrOpen; 

012691 INLINE $2F3C, $8000 , $0000 , $A8FD; 

012692 PROCEDURE PrDrvrClose; 

012693 INLINE $2F3C, $8800 , $0000, $A8FD; 

012694 PROCEDURE PrCtlCall (iWhichCtl : INTEGER; IParaml : LONGINT; lParam2 : LONGINT; 

012695 lParam3: LONGINT); 

012696 INLINE $2F3C, $A000 , $0E00, $A8FD; 

012697 FUNCTION PrDrvrDCE: Handle; 

012698 INLINE $2F3C, $ 94 00 , $0000, $A8FD; 

012699 FUNCTION PrDrvrVers: INTEGER; 

012700 INLINE $2F3C, $ 9A00 , $0000, $A8FD; 
012701 

012702 

012703 {$ENDC) { UsingPrinting ) 

012704 

012705 {$IFC NOT Usinglncludes ) 
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012706 
012707 
012708 
012709 
012710 
012711 



END. 
{$ENDC} 



### END OF FILE Printing. p 
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012712 

012713 ##################################################################### 

012714 ### FILE: PrintTraps.p 

012715 ##################################################################### 
012716 

012717 { 

012718 Created: Monday, Sempember 9, 1991 at 1:06 PM 

012719 PrintTraps.p 
012720 

012721 Copyright Apple Computer, Inc. 1985-1988 

012722 All rights reserved 

012723 ) 
012724 

012725 {This file is provided to support existing references to it. The up to date interface is 

012726 defined in Printing. p 

012727 ) 
012728 

012729 {$IFC UNDEFINED Usinglncludes } 

012730 {$SETC Usinglncludes := 0} 

012731 {$ENDC} 
012732 

012733 {$IFC NOT Usinglncludes) 

012734 UNIT PrintTraps; 

012735 INTERFACE 

012736 {$ENDC) 
012737 

012738 {$IFC UNDEFINED UsingPrintTraps ) 

012739 {$SETC UsingPrintTraps := 1) 
012740 

012741 {$1+) 

012742 {$SETC PrintTrapsIncludes := Usinglncludes} 

012743 {$SETC Usinglncludes := 1} 

012744 {$IFC UNDEFINED UsingPrinting } 

012745 {$1 5$Shell (PInterfaces) Printing. p} 

012746 {$ENDC) 

012747 {$SETC Usinglncludes := PrintTrapsIncludes} 
012748 

012749 

012750 {$ENDC} { UsingPrintTraps } 

012751 

012752 {$IFC NOT Usinglncludes} 

012753 END. 

012754 {$ENDC} 
012755 

012756 

012757 ### END OF FILE PrintTraps.p 

012758 
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012759 






012760 


##################################################################### 




012761 


### FILE: Processes. p 




012762 


##################################################################### 




012763 






012764 






012765 


{ 




012766 


Created: Monday, September 16, 1991 at 12:12 AM 




012767 


Processes .p 




012768 


Pascal Interface to the Macintosh Libraries 




012769 






012770 


Copyright Apple Computer, Inc. 1989-1991 




012771 


All rights reserved 




012772 


) 




012773 






012774 






012775 


{$IFC UNDEFINED Usinglncludes } 




012776 


{$SETC Usinglncludes := 0} 




012777 


{$ENDC) 




012778 






012779 


{$IFC NOT Usinglncludes) 




012780 


UNIT Processes; 




012781 


INTERFACE 




012782 


{$ENDC} 




012783 






012784 


{$IFC UNDEFINED UsingProcesses } 




012785 


{$SETC UsingProcesses := 1} 




012786 






012787 


{$!+) 




012788 


{$SETC Processeslncludes := Usinglncludes} 




012789 


{$SETC Usinglncludes := 1} 




012790 


{$IFC UNDEFINED UsingTypes) 




012791 


{$1 $$Shell(PInterfaces)Types.p) 




012792 


{$ENDC) 




012793 


{$IFC UNDEFINED UsingEvents) 




012794 


{$1 5$ Shell (P Interfaces) Event s.p) 




012795 


{$ENDC) 




012796 


{$IFC UNDEFINED UsingFiles) 




012797 


{$1 $$Shell(PInterfaces)Files.p) 




012798 


{$ENDC) 




012799 


{$SETC Usinglncludes := Processeslncludes} 




012800 






012801 


TYPE 




012802 


{ type for unique process identifier } 




012803 


ProcessSerialNumberPtr = "^ProcessSerialNumber; 




012804 


ProcessSerialNumber = RECORD 




012805 


highLongOfPSN: LONGINT; 




012806 


lowLongOfPSN: LONGINT; 




012807 


END; 




012808 






012809 






012810 


CONST 




012811 






012812 


i-ki^-k-k-k-k-k-k-k^-k-k-k^-k-k-k-k-k-k-ki^-k-k-k^-k-k-k-k-k-k-k-k-k-k-k-k-k-k-ki^-k-k-k^-k-k-k^-k-k-ki^-k-k-k^-k-k-k^-k-k-k^-k-k-ki^-k-k 




012813 


* Process identifier. 




012814 


^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 








J 
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012815 


Various reserved process serial numbers. } 




012816 






012817 


kNoProcess = 0; 




012818 


kSysteraProcess = 1; 




012819 


kCurrentProcess ^ 2; 




012820 






012821 


TYPE 




012822 


{AA**AA***5t***5t***5t*******5t***************5t***5t***5t*******5t**********^****5t**^*******^********************5t*** 


******************************** 


012823 


* Definition of the parameter block passed to _Launch. 




012824 


************************************************************************* 




012825 






012826 


* Typedef and flags for launchControlFlags field } 




012827 


LaunchFlags = INTEGER; 




012828 






012829 


CONST 




012830 






012831 


(************************************************************************ 




012832 


* Definition of the parameter block passed to Launch. 




012833 


************************************************************************} 




012834 






012835 


launchContinue = $4000; 




012836 


launchNoFileFiags = $0800; 




012837 


launchUseMinimum ^ $0400; 




012838 


launchDontSwitch = $0200; 




012839 


launchAllow24Bit = $0100; 




012840 






012841 






012842 


TYPE 




012843 


{ Format for first AppleEvent to pass to new process. The size of the overall 




012844 


* buffer variable: the message body immediately follows the messageLength . 




012845 


} 




012846 


AppParametersPtr ^ ^AppParameters; 




012847 


AppParameters = RECORD 




012848 


theMsgEvent: EventRecord; 




012849 


eventRefCon: LON^TNT; 




012850 


messageLength: LONGINT; 




012851 


messageBuffer: ARRAY [0..0] OF SignedByte; 




012852 


END; 




012853 






012854 


{ Parameter block to _Launch } 




012855 


LaunchPBPtr ^ ^LaunchParamBlockRec; 




012856 


LaunchParamBlockRec = RECORD 




012857 


reservedl: LONGINT; 




012858 






012859 


launchBlocklD: INTEGER; 




012860 


launchEPBLength: LONGINT; 




012861 


launchFileFlags : INTEGER; 




012862 


launchControlFlags: LaunchFlags; 




012863 


launchAppSpec : FSSpecPtr; 




012864 


iaunchProcessSN: ProcessSerialNumber ; 




012865 


iaunchPreferredSi 7p : LONGINT; 




012866 


launchMinimumSize : LONGINT; 




012867 


launchAvailableSize: LONGINT; 




012868 


launchAppPararaeters : AppParametersPtr; 




012869 


END; 




012870 




J 
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012871 

012872 CONST 

012873 

012874 { Set launchBlocklD to extendedBlock to specify that extensions exist. 

012875 * Set launchEPBLength to extendedBlockLen for compatibility.} 
012876 

012877 
012878 
012879 

012880 extendedBlock = $4C43; { ' LC ' ) 

012881 extendedBlockLen ^ (sizeof (LaunchParamBlockRec) - 12); 
012882 

012 883 (************************************************************************ 

012884 * Definition of the information block returned by GetProcessInf orraation 

nioQQ^ ************************************************************************ 

U1Z0C50 

012886 Bits in the processMode field ) 
012887 

012888 modeDeskAccessory = 500020000; 

012889 modeMultlLaunch = $00010000; 

012890 modeNeedSuspendResume = $00004000; 

012891 modeCanBackground = $00001000; 

012892 modeDoesActivateOnFGSwitch = $00000800; 

012893 modeOnlyBackground = $00000400; 

012894 modeGetFrontClicks = $00000200; 

012895 modeGetAppDiedMsg = $00000100; 

012896 mode32BitCompatible = $00000080; 

012897 modeHighLevelEventAware = $00000040; 

012898 modeLocalAndRemoteHLEvents = $00000020; 

012899 modeStationeryAware = $00000010; 

012900 modeUselextEditServices = $00000008; 
012901 

012902 TYPE 

012903 { Record returned by GetProcessInf ormation } 

012904 Processinf oRecPtr ^ ^Processlnf oRec; 

012905 ProcessInfoRec = RECORD 

012906 processInfoLength: LONGINT; 

012907 processName: StringPtr; 

012908 processNuraber : ProcessSerialNumber; 

012909 processType: LONGINT; 

012910 processSignature: OSType; 

012911 processMode: LONGINT; 

012912 processLocation : Ptr; 

012913 processSize: LONGINT; 

012914 processFreeMem: LONGINT; 

012915 processLauncher : ProcessSerialNumber; 

012916 processLaunchDate: LONGINT; 

012917 processActiveTime: LONGINT; 

012918 processAppSpec: FSSpecPtr; 

012919 END; 
012920 
012921 

012922 FUNCTION LaunchApplicat ion (LaunchParams : LaunchPBPtr) :OSErr; 

012923 INLINE $205F, $A9F2 , $3E80 ; 

012924 FUNCTION LaunchDeskAccessory (pFileSpec : FSSpecPtr; pDAName : StringPtr): OSErr; 

012925 INLINE $3F3C, $0036, $A88F; 

.012926 FUNCTION GetCurrentProcess (VAR PSN: ProcessSerialNumber): OSErr; 
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012927 INLINE $3F3C, $0037 , 5A88F; 

012928 FUNCTION GetFrontProcess (VAR PSN: ProcessSerlalNumber) : OSErr; 

012929 INLINE $70FF, $2F00, $3F3C, $0039, $A88F; 

012930 FUNCTION GetNextProcess (VAR PSN: ProcessSerlalNumber): OSErr; 

012931 INLINE $3F3C, $0038 , $A88F; 

012932 FUNCTION GetProcessInf ormat ion (PSN : ProcessSerlalNumber; VAR info: ProcessInfoRec) : OSErr; 

012933 INLINE $3F3C, $003A, $A88F; 

012934 FUNCTION SetFrontProcess (PSN : ProcessSerlalNumber): OSErr; 

012935 INLINE $3F3C, $003B, $A88F; 

012936 FUNCTION WakeUpProcess (PSN: ProcessSerlalNumber): OSErr; 

012937 INLINE $3F3C, $003C, $A88F; 

012938 FUNCTION SameProcess (PSNl : ProcessSerlalNumber; PSN2 : ProcessSerlalNumber; 

012939 VAR result: BOOLEAN): OSErr; 

012940 INLINE 53F3C, $003D, $A88F; 
012941 

012942 

012943 {$ENDC) { UsingProcesses } 

012944 

012945 {$IFC NOT Uslnglncludes) 

012946 END. 

012947 {$ENDC} 
012948 

012949 

012950 ### END OF FILE Processes. p 

012951 
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012952 

012 953 ##################################################################### 

012954 ### FILE: QDOff screen .p 

012 955 ##################################################################### 

012956 

012957 

012958 { 

012959 Created: Monday, September 16, 1991 at 12:14 AM 

012960 QDOf fscreen.p 

012961 Pascal Interface to the Macintosh Libraries 
012962 

012963 Copyright Apple Computer, Inc. 1985-1991 

012964 All rights reserved 

012965 ) 
012966 
012967 

012968 {$IFC UNDEFINED Usinglncludes } 

012969 {$SETC Usinglncludes := 0} 

012970 {$ENDC) 
012971 

012972 {$IFC NOT Usinglncludes) 

012973 UNIT QDOffscreen; 

012974 INTERFACE 

012975 {$ENDC} 
012976 

012977 {$IFC UNDEFINED UsingQDOff screen ) 

012978 {$SETC UsingQDOff screen := 1) 
012979 

012980 {$!+) 

012981 {$SETC QDOffscreenlncludes := Usinglncludes) 

012982 {$SETC Usinglncludes := 1} 

012983 {$IFC UNDEFINED UsingQuickdraw} 

012984 {$1 5$Shell (Plnterfaces)Quickdraw.p) 

012985 {$ENDC} 

012986 {$SETC Usinglncludes := QDOffscreenlncludes) 
012987 

012988 CONST 
012989 

012990 { New error codes ) 

012991 cDepthErr = -157; {invalid pixel depth) 

012992 pixPurgeBit = 0; 

012993 noNewDeviceBit = 1; 

012994 useTempMemBit = 2; 

012995 keepLocalBit = 3; 

012996 pixelsPurgeableBit = 6; 

012997 pixelsLockedBit = 7; 

012998 mapPixBit = 16; 

012999 newDepthBit = 17; 

013000 alignPixBit = 18; 

013001 newRowBytesBit = 19; 

013002 reallocPixBit = 20; 

013003 clipPixBit = 28; 

013004 stretchPixBit = 29; 

013005 ditherPixBit = 30; 

013006 gwFlagErrBit = 31; 
^13007 
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013008 TYPE 

013009 GWorldFlags = SET OF (pixPurge, noNewDevice, useTempMem, keepLocal, GWorldFlags4, 

013010 GWorldFlagsS, pixelsPurgeable, pixelsLocked, GWorldFlagsS, GWorldFlags9, GWorldFlagslO, 

013011 GWorldFlagsll,GWorldFlagsl2,GWorldFlagsl3, GWorldFlags 14, GWorldFlags 15, 

013012 mapPix, newDepth, alignPix, newRowBytes, reallocPix, GWorldFlags21, GWorldFlags22, 

013013 GWorldFlags23, GWorldFlags24, GWorldFlags25, GWorldFlags26, GWorldFlags27, 

013014 clipPix, stretchPix, ditherPix, gwFlagErr) ; 
013015 

013016 

013017 { Type definition of a GWorldPtr } 

013018 GWorldPtr = CGrafPtr; 
013019 

013020 FUNCTION NewGWorld (VAR of f screenGWorld : GWorldPtr ; PixelDepth : INTEGER; boundsRect : Rect; 

013021 cTable: CTabHandle; aGDevice : GDHandle; flags : GWorldFlags): QDErr; 

013022 INLINE $203C, $0016, $0000,5AB1D; 

013023 FUNCTION LockPixels (pm: PixMapHandle) : BOOLEAN; 

013024 INLINE $203C, $0004, $0001, $AB1D; 

013025 PROCEDURE UnlockPixels (pm: PixMapHandle); 

013026 INLINE $203C, $0004, $0002, $AB1D; 

013027 FUNCTION UpdateGWorld (VAR of f screenGWorld: GWorldPtr;pixelDepth : INTEGER; 

013028 boundsRect: Rect;cTable: CTabHandle; aGDevice : GDHandle; flags : GWorldFlags): GWorldFlags; 

013029 INLINE $203C, $0016, $0003, $AB1D; 

013030 PROCEDURE DisposeGWorld (of f screenGWorld : GWorldPtr); 

013031 INLINE $203C, $0004, $0004, $AB1D; 

013032 PROCEDURE GetGWorld (VAR port: CGrafPtr;VAR gdh : GDHandle); 

013033 INLINE $203C, $0008, $0005, $AB1D; 

013034 PROCEDURE SetGWorld (port : CGrafPtr; gdh : GDHandle); 

013035 INLINE $203C, $0008, $0006, $AB1D; 

013036 PROCEDURE CTabChanged ( ctab : CTabHandle); 

013037 INLINE $203C, $0004, $0007, $AB1D; 

013038 PROCEDURE PixPatChanged (ppat : PixPatHandle ) ; 

013039 INLINE $203C, $0004, $0008, $AB1D; 

013040 PROCEDURE PortChanged (port : GrafPtr) ; 

013041 INLINE $203C, $0004, $0009, $AB1D; 

013042 PROCEDURE GDeviceChanged (gdh : GDHandle); 

013043 INLINE $203C, $0004, $000A, $AB1D; 

013044 PROCEDURE AllowPurgePixels (pm: PixMapHandle); 

013045 INLINE $203C, $0004, $000B, $AB1D; 

013046 PROCEDURE NoPurgePixels (pm: PixMapHandle); 

013047 INLINE $203C, $0004, $000C, $AB1D; 

013048 FUNCTION GetPixelsState (pm: PixMapHandle): GWorldFlags; 

013049 INLINE $203C, $0004, $000D, $AB1D; 

013050 PROCEDURE SetPixelsState (pm : PixMapHandle; state : GWorldFlags); 

013051 INLINE $203C, $0008, $000E, $AB1D; 

013052 FUNCTION GetPixBaseAddr (pm: PixMapHandle): Ptr; 

013053 INLINE $203C, $0004, $000F, $AB1D; 

013054 FUNCTION NewScreenBuffer (globalRect : Rect ; purgeable : BOOLEAN; VAR gdh: GDHandle; 

013055 VAR off screenPixMap: PixMapHandle) : QDErr; 

013056 INLINE $203C, $000E, $0010, $AB1D; 

013057 PROCEDURE DisposeScreenBuffer (of f screenPixMap : PixMapHandle); 

013058 INLINE $203C, $0004, $0011, $AB1D; 

013059 FUNCTION GetGWorldDevice (of f screenGWorld : GWorldPtr): GDHandle; 

013060 INLINE $203C, $0004, $0012, $AB1D; 

013061 FUNCTION QDDone (port : GrafPtr): BOOLEAN; 

013062 INLINE $203C, $0004, $0013, $AB1D; 

013063 FUNCTION Of f screenVersion : LONGINT; 



' N 
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013064 INLINE $7014, $AB1D; 

013065 FUNCTION NewTempScreenBuffer (globalRect : Rect ; purgeable : BOOLEAN; VAR gdh: GDHandle; 

013066 VAR off screenPixMap: PixMapHandle) : QDErr; 

013067 INLINE $2030, $000E, $0015, $AB1D; 

013068 FUNCTION PixMap32Bit (pmHandle : PixMapHandle): BOOLEAN; 

013069 INLINE $2030, $0004, $0016, $AB1D; 

013070 FUNCTION GetGWorldPixMap (of f screenGWorld: GWorldPtr) : PixMapHandle; 

013071 INLINE $2030, $0004, $0017, $AB1D; 
013072 

013073 

013074 {$ENDC) { UsingQDOff screen ) 

013075 

013076 {$IFO NOT Uslnglncludes ) 

013077 END. 

013078 {$ENDC} 
013079 

013080 

013081 ### END OF FILE QDOff screen . p 

013082 
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013083 
013084 
013085 
013086 
013087 
013088 
013089 
013090 
013091 
013092 
013093 
013094 
013095 
013096 
013097 
013098 
013099 
013100 
013101 
013102 
013103 
013104 
013105 
013106 
013107 
013108 
013109 
013110 
013111 
013112 
013113 
013114 
013115 
013116 
013117 
013118 
013119 
013120 
013121 
013122 
013123 
013124 
013125 
013126 
013127 
013128 
013129 
013130 
013131 
013132 
013133 
013134 
013135 
013136 
013137 
013138 



##################################################################### 
### FILE: Qulckdraw.p 
##################################################################### 



Created: Sunday, January 6, 1991 at 10:59 PM 
Quickdraw . p 
Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 1985-199C 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 

{$ENDC} 

{$IFC NOT Usinglncludes} 

UNIT Quickdraw; 

INTERFACE 
{$ENDC) 

{$IFC UNDEFINED UsingQuickdraw) 
{$SETC UsingQuickdraw := 1) 

{$1+) 

{SSETC Quickdrawlncludes :^ Usinglncludes} 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingTypes} 

{$1 $$Shell (PInterfaces) Types. p} 

{$ENDC} 

{SSETC Usinglncludes :^ Quickdrawlncludes} 

CONST 
invalColReq ^ -1; 

{ transfer modes } 
srcCopy — 0; 
srcOr - 1; 
srcXor - 2 ; 
srcBic — 3; 
notSrcCopy = 4; 
notSrcOr - 5; 
notSrcXor - 6; 
notSrcBic ^ 7; 
patCopy ^ 8; 
patOr = 9; 
patXor = 10; 
patBic = 11; 
notPatCopy = 12; 
notPatOr = 13; 
notPatXor = 14; 
notPatBic = 15; 



{invalid color table request} 



{the 16 transfer modes} 
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013139 


{ Special Text Transf 


er 


Mode 


) 




013140 


graylshTextOr = 4 9; 










013141 












013142 


{ Arithmetic transfer 


modes 






013143 


blend = 32; 










013144 


addPin = 33; 










013145 


addOver ^ 34; 










013146 


subPin = 35; 










013147 


addMax =37; 










013148 


adMax = 37; 










013149 


subOver = 38; 










013150 


adMin =3 9; 










013151 


ditherCopy = 64; 










013152 












013153 


{ Transparent mode const 


ant 






013154 


transparent = 36; 










013155 












013156 


{ QuickDraw color sep 


aration 


constants ) 




013157 


normalBit = 0; 






{normal screen mapping} 




013158 


inverseBit = 1; 






{inverse screen mapping) 




013159 


redBit = 4; 






{RGB additive mapping} 




013160 


greenBit = 3; 










013161 


blueBit = 2; 










013162 


cyanBit = 8; 






{CMYBk subtractive mapping} 




013163 


magentaBit = 7; 










013164 


yellowBit = 6; 










013165 


blackBit = 5; 










013166 


blackColor = 33; 






{colors expressed in these mappings) 




013167 


whiteColor = 30; 










013168 


redColor = 205; 










013169 


greenColor = 341; 










013170 


blueColor = 409; 










013171 


cyanColor = 273; 










013172 


magentaColor = 137; 










013173 


yellowColor = 69; 










013174 












013175 


picLParen = 0; 






{standard picture comments) 




013176 


picRParen = 1; 










013177 












013178 












013179 


clutType = 0; 






{0 if lookup table) 




013180 


fixedType = 1; 






{1 if fixed table) 




013181 


directType = 2; 






{2 if direct values) 




013182 












013183 


gdDevType = 0; 






{0 = monochrome 1 = color) 




013184 


burstDevice = 7; 










013185 


ext32Device = 8; 










013186 


raralnit = 10; 






{1 if initialized from 'scrn' resource) 




013187 


mainScreen = 11; 






{ 1 if main screen ) 




013188 


alllnit = 12; 






{ 1 if all devices initialized ) 




013189 


screenDevice = 13; 






{1 if screen device [not used] ) 




013190 


noDriver = 14; 






{ 1 if no driver for this GDevice ) 




013191 


screenActive = 15; 






{1 if in use) 




013192 












013193 


hiliteBit = 7; 






{flag bit in HiliteMode (lowMem flag) } 




013194 


pHiliteBit = 0; 






{flag bit in HiliteMode used with BitClr procedure) 
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013195 

013196 defQDColors = 127; {resource ID of clut for default QDColors } 

013197 

013198 { pixel type } 

013199 RGBDlrect = 16; { 16 S 32 bits/pixel pixelType value } 
013200 

013201 { pmVersion values } 

013202 baseAddr32 = 4; {pixmap base address is 32-bit address} 
013203 

013204 rgnOverf lowErr — -147; { Region accumulation failed. Resulting region may be currupt } 

013205 insuf f icientStackErr - -149; { QuickDraw could not complete the operation } 
013206 

013207 TYPE 

013208 GrafVerb ^ (frame, paint , erase, invert , fill) ; 
013209 

013210 PixelType ^ (chunky, chunkyPlanar, planar) ; 

013211 

013212 

013213 

013214 PatPtr = '^Pattern; 

013215 PatHandle = ^PatPtr; 
013216 

013217 Pattern = PACKED ARRAY [0..7] OF Q..255; 

013218 

013219 

013220 

013221 QDByte = SignedByte; 

013222 

013223 QDPtr = Ptr; { blind pointer ) 

013224 

013225 QDHandle = Handle; { blind handle } 

013226 

013227 

013228 

013229 QDErr = INTEGER; 

013230 

013231 Bitsl6 = ARRAY [0..15] OF INTEGER; 

013232 

013233 

013234 Styleltem ^ (bold, italic, underline, outline, shadow, condense, extend) ; 

013235 

013236 

013237 Style = SET OF Styleltem; 

013238 

013239 

013240 DeviceLoopFlags = SET OF (singleDevices, dontMatchSeeds, allDevices, DeviceLoopFlags3, 

013241 DeviceLoopFlags 4, DeviceLoopFlags 5, DeviceLoopFlags 6, DeviceLoopFlags7, DeviceLoopFlags 8, 

013242 DeviceLoopFlags 9, DeviceLoopFlagslO, DeviceLoopFlagsll, DeviceLoopFlags 12, 

013243 DeviceLoopFlagsl3, DeviceLoopFlagsl4, DeviceLoopFlagslS, DeviceLoopFlagsl6, 

013244 DeviceLoopFlagsl7, DeviceLoopFlagsl8, DeviceLoopFlagsl9, DeviceLoopFlags20, 

013245 DeviceLoopFlags21, DeviceLoopFlags22, DeviceLoopFlags23, DeviceLoopFlags24, 

013246 DeviceLoopFlags25, DeviceLoopFlags26, DeviceLoopFlags27, DeviceLoopFlags28, 

013247 DeviceLoopFlags29, DeviceLoopFlags30, DeviceLoopFlags31) ; 
013248 

013249 
.013250 Font Info = RECORD 
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013251 
013252 
013253 
013254 
013255 
013256 
013257 
013258 
013259 
013260 
013261 
013262 
013263 
013264 
013265 
013266 
013267 
013268 
013269 
013270 
013271 
013272 
013273 
013274 
013275 
013276 
013277 
013278 
013279 
013280 
013281 
013282 
013283 
013284 
013285 
013286 
013287 
013288 
013289 
013290 
013291 
013292 
013293 
013294 
013295 
013296 
013297 
013298 
013299 
013300 
013301 
013302 
013303 
013304 
013305 
013306 



ascent: INTEGER; 
descent: INTEGER; 
widMax: INTEGER; 
leading: INTEGER; 
END; 

BitMapPtr = ^BitMap; 
BitMapHandle = ^BitMapPtr; 
BitMap = RECORD 

baseAddr: Ptr; 

rowBytes: INTEGER; 

bounds : Rect ; 

END; 

CursPtr - ^Cursor; 
CursHandle = "^CursPtr; 
Cursor = RECORD 

data: Bitsl6; 

mask: Bitsl6; 

hotSpot: Point; 

END; 

PenState = RECORD 
pnLoc: Point; 
pnSize : Point ; 
pnMode : INTEGER; 
pnPat: Pattern; 
END; 

RgnPtr = "^Region; 
RgnHandle ^ ^RgnPtr; 
Region = RECORD 

rgnSize: INTEGER; 

rgnBBox : Rect; 

END; 

PicPtr = "^Picture; 
PicHandle = ^PicPtr; 
Picture = RECORD 

picSize: INTEGER; 

picFrame: Rect; 

END; 

PolyPtr ^ ^Polygon; 
PolyHandle = -^PolyPtr; 
Polygon = RECORD 

polySize: INTEGER; 

polyBBox: Rect; 

polyPoints: ARRAY [0..0] OF Point; 

END; 

QDProcsPtr = ^QDProcs; 
QDProcs = RECORD 

textProc: Ptr; 

lineProc : Ptr; 

rectProc: Ptr; 



{size in bytes} 
{enclosing rectangle} 
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013307 
013308 
013309 
013310 
013311 
013312 
013313 
013314 
013315 
013316 
013317 
013318 
013319 
013320 
013321 
013322 
013323 
013324 
013325 
013326 
013327 
013328 
013329 
013330 
013331 
013332 
013333 
013334 
013335 
013336 
013337 
013338 
013339 
013340 
013341 
013342 
013343 
013344 
013345 
013346 
013347 
013348 
013349 
013350 
013351 
013352 
013353 
013354 
013355 
013356 
013357 
013358 
013359 
013360 
013361 
013362 



rRectProc: Ptr; 


ovalProc: Ptr; 


arcProc: Ptr; 


polyProc: Ptr; 


rgnProc: Ptr; 


bitsProc: Ptr; 


coramentProc : Ptr 


txMeasProc: Ptr; 


getPicProc: Ptr; 


putPicProc: Ptr; 


END; 



GrafPtr = ''GrafPort; 
GrafPort = RECORD 

device: INTEGER; 

portBits: BitMap; 

portRect: Rect; 

visRgn: RgnHandle; 

clipRgn: RgnHandle; 

bkPat: Pattern; 

fillPat: Pattern; 

pnLoc; Point; 

pnSize : Point ; 

pnMode : INTEGER; 

pnPat ; Pattern; 

pnVis: INTEGER; 

txFont: INTEGER; 

txFace : 



txMode : 
txSize : 
spExtra : 
fgColor : 
bkColor: 
colrBit : 



Style; 
INTEGER; 
INTEGER; 
Fixed; 
LONGINT; 
LONGINT; 
INTEGER; 
patStretch: INTEGER; 
picSave: Handle; 
rgnSave : Handle; 
polySave : Handle; 
grafProcs: QDProcsPtr; 
END; 



WindowPtr = GrafPtr; 



{txFace is unpacked byte but push as short} 



{typedef pascal Boolean (*ColorSearchProcPtr) (RGBColor *rgb, long 
typedef pascal Boolean (*ColorComplementProcPtr) (RGBColor *rgb);) 



^position) , 



RGBColor = RECORD 
red: INTEGER; 
green: INTEGER; 
blue: INTEGER; 
END; 

ColorSpecPtr = ^ColorSpec; 
ColorSpec = RECORD 
value: INTEGER; 



{magnitude of red component} 
{magnitude of green component} 
{magnitude of blue component} 



{index or other value} 



9/2/99 10:00 AM 


David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL 


Page 267 


013363 


rgb: RGBColor; 


{true color} 




013364 


END; 






013365 








013366 








013367 


CSpecArray = ARRAY [0..0] OF Color 


Spec; 




013368 








013369 


CTabPtr = '■ColorTable; 






013370 


CTabHandle = "CTabPtr; 






013371 


ColorTable = RECORD 






013372 


ctSeed: LONGINT; 


{unique identifier for table} 




013373 


ctElags: INTEGER; 


{high bit: ^ PixMap; 1 ^ device} 




013374 


ctSize: INTEGER; 


{number of entries in CTTable} 




013375 


ctTable: CSpecArray; 


{array [0..0] of ColorSpec} 




013376 


END; 






013377 








013378 


MatchRec = RECORD 






013379 


red: INTEGER; 






013380 


green: INTEGER; 






013381 


blue: INTEGER; 






013382 


matchData: LONGINT; 






013383 


END; 






013384 








013385 


PixMapPtr = "PixMap; 






013386 


PixMapHandle = "PixMapPtr; 






013387 


PixMap = RECORD 






013388 


baseAddr: Ptr; 


{pointer to pixels} 




013389 


rowBytes: INTEGER; 


{offset to next line} 




013390 


bounds: Rect; 


{encloses bitmap} 




013391 


pmVersion: INTEGER; 


{pixMap version number} 




013392 


packType: INTEGER; 


{defines packing format} 




013393 


packSize: LONGINT; 


{length of pixel data} 




013394 


hRes: Fixed; 


{horiz. resolution (ppi) } 




013395 


vRes : Fixed; 


{vert, resolution (ppi)} 




013396 


pixelType: INTEGER; 


{defines pixel type} 




013397 


pixelSize: INTEGER; 


{# bits in pixel} 




013398 


cmpCount : INTEGER; 


{# components in pixel} 




013399 


cmpSize: INTEGER; 


{# bits per component} 




013400 


planeBytes: LONGINT; 


{offset to next plane} 




013401 


pmTable: CTabHandle; 


{color map for this pixMap} 




013402 


pmReserved: LONGINT; 


{for future use. MUST BE 0} 




013403 


END; 






013404 








013405 


PixPatPtr = "PixPat; 






013406 


PixPatHandle = "PixPatPtr; 






013407 


PixPat = RECORD 






013408 


patType: INTEGER; 


{type of pattern} 




013409 


patMap : PixMapHandle; 


{the pattern's pixMap} 




013410 


patData: Handle; 


{pixmap's data} 




013411 


patXData: Handle; 


{expanded Pattern data} 




013412 


patXValid: INTEGER; 


{flags whether expanded Pattern valid} 




013413 


patXMap: Handle; 


{Handle to expanded Pattern data} 




013414 


patlData: Pattern; 


{old-style pattern/RGB color} 




013415 


END; 






013416 








013417 


CCrsrPtr = "CCrsr; 






013418 


CCrsrHandle = "CCrsrPtr; 
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013419 


CCrsr = RECORD 










013420 


crsrType: INTEGER; 






{type of cursor} 




013421 


crsrMap: PixMapHandle; 






{the cursor's pixmap) 




013422 


crsrData: Handle; 






{ cursor ' s data} 




013423 


crsrXData; Handle; 






{expanded cursor data} 




013424 


crsrXValld: INTEGER; 






{depth of expanded data (0 if none) } 




013425 


crsrXHandle : Handle; 






{future use} 




013426 


crsrlData: Bitsl6; 






{one-bit cursor} 




013427 


crsrMask: Bitsl6; 






{ cursor ' s mask} 




013428 


crsrHotSpot : Point; 






{cursor's hotspot} 




013429 


crsrXTable: LONGINT; 






{private } 




013430 


crsrID: LONGINT; 






{private } 




013431 


END; 










013432 












013433 


CIConPtr = ^Clcon; 










013434 


CIconHandle = ''ClconPtr; 










013435 


CIcon = RECORD 










013436 


i conPMap : P ixMap ; 






{the icon's pixMap} 




013437 


iconMask: BitMap; 






{the icon's mask} 




013438 


iconBMap: BitMap; 






{the icon's bitMap} 




013439 


iconData: Handle; 






{the icon's data} 




013440 


iconMaskData: ARRAY [0..0] 


OF 


INTEGER; 


{icon's mask and BitMap data} 




013441 


END; 










013442 












013443 


GammaTblPtr = ''GammaTbl; 










013444 


GammaTblHandle = -^GammaTblPtr; 










013445 


GammaTbl = RECORD 










013446 


gVersion: INTEGER; 






{gamma version number} 




013447 


gType: INTEGER; 






{gamma data type} 




013448 


gFormulaSlze: INTEGER; 






{Formula data size} 




013449 


gChanCnt : INTEGER; 






{number of channels of data} 




013450 


gDataCnt: INTEGER; 






{number of values/channel} 




013451 


gDataWidth: INTEGER; 






{bits/corrected value (data packed to next larger byte size) } 




013452 


gFormulaData: ARRAY [0..0] 


OF 


INTEGER; 


{data for formulas followed by gamma values} 




013453 


END; 










013454 












013455 


ITabPtr = "ITab; 










013456 


ITabHandle = "ITabPtr; 










013457 


ITab = RECORD 










013458 


iTabSeed: LONGINT; 






{copy of CTSeed from source CTable} 




013459 


iTabRes: INTEGER; 






{bits/channel resolution of iTable} 




013460 


iTTable: ARRAY [0..0] OF S 


ignedByte; 


{byte colortable index values} 




013461 


END; 










013462 












013463 


SProcPtr = "SProcRec; 










013464 


SProcHndl = "SProcPtr; 










013465 


SProcRec = RECORD 










013466 


nxtSrch: Handle; 






{Handle to next SProcRec} 




013467 


srchProc: ProcPtr; 






{pointer to search procedure} 




013468 


END; 










013469 












013470 


CProcPtr = "CProcRec; 










013471 


CProcHndl = "CProcPtr; 










013472 


CProcRec = RECORD 










013473 


nxtComp: CProcHndl; 






{CProcHndl Handle to next CProcRec} 




013474 


corapProc: ProcPtr; 






{pointer to complement procedure} 
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013475 


END; 






013476 








013477 


GDPtr = ^GDevice; 






013478 


GDHandle = ^GDPtr; 






013479 


GDevlce = RECORD 






013480 


gdRefNum: INTEGER; 


{driver's unit number} 




013481 


gdID: INTEGER; 


{client ID for search procs } 




013482 


gdType: INTEGER; 


{fixed/CLUT/dlrect) 




013483 


gdlTable: ITabHandle; 


{Handle to inverse lookup table} 




013484 


gdResPref: INTEGER; 


{preferred resolution of GDITable} 




013485 


gdSearchProc : SProcHndl; 


{search proc list head} 




013486 


gdCompProc: CProcHndl; 


{complement proc list} 




013487 


gdFlags: INTEGER; 


{grafDevice flags word} 




013488 


gdPMap: PixMapHandle; 


{describing pixMap} 




013489 


gdRefCon: LONGINT; 


{reference value} 




013490 


gdNextGD: GDHandle; 


{GDHandle Handle of next gDevice) 




013491 


gdRect: Rect; 


{ device's bounds in global coordinates} 




013492 


gdMode: LONGINT; 


{device's current mode} 




013493 


gdCCBytes 


INTEGER; 


{depth of expanded cursor data} 




013494 


gdCCDepth 


INTEGER; 


{depth of expanded cursor data} 




013495 


gdCCXData 


Handle; 


{Handle to cursor's expanded data} 




013496 


gdCCXMask 


Handle; 


{Handle to cursor's expanded mask} 




013497 


gdReserved: LONGINT; 


{future use. MUST BE 0} 




013498 


END; 






013499 








013500 


GVarPtr = ^GrafVars; 






013501 


GVarHandle = -^GVarPtr; 






013502 


GrafVars = RECORD 






013503 


rgbOpColor: RGBColor; 


{color for addPin subPin and average} 




013504 


rgbHiliteColor: RGBColor; 


{color for hiliting} 




013505 


pmFgColor; Handle; 


{palette Handle for foreground color} 




013506 


pmFglndex: INTEGER; 


{index value for foreground} 




013507 


pmBkColor; Handle; 


{palette Handle for background color} 




013508 


pmBklndex: INTEGER; 


{index value for background} 




013509 


pmFlags: INTEGER; 


{flags for Palette Manager} 




013510 


END; 






013511 








013512 


CQDProcsPtr = ^CQDProcs; 






013513 


CQDProcs = RECORD 






013514 


textProc: Ptr; 






013515 


lineProc: Ptr; 






013516 


rectProc: Ptr; 






013517 


rRectProc: Ptr; 






013518 


ovalProc: Ptr; 






013519 


arcProc: Ptr; 






013520 


polyProc: Ptr; 






013521 


rgnProc: Ptr; 






013522 


bitsProc: Ptr; 






013523 


coramentProc: Ptr; 






013524 


txMeasProc: Ptr; 






013525 


getPlcProc: Ptr; 






013526 


putPicProc: Ptr; 






013527 


opcodeProc: Ptr; 


{fields added to QDProcs) 




013528 


newProcl : Ptr; 






013529 


newProc2: Ptr; 






013530 


newProc3 : 


Ptr; 
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013531 




newProc4 : Ptr; 






013532 




newProc5 : Ptr; 






013533 




newProc6: Ptr; 






013534 




END; 






013535 










013536 


CGrafPtr = ^CGrafPort; 






013537 


CGrafPort = RECORD 






013538 




device: INTEGER; 






013539 




portPixMap: PixMapHandle; 


{port's pixel map} 




013540 




port Version: INTEGER; 


{high 2 bits always set) 




013541 




grafVars : Handle; 


{Handle to more fields) 




013542 




chExtra: INTEGER; 


{character extra} 




013543 




pnLocHFrac: INTEGER; 


{pen fraction) 




013544 




portRect: Rect; 






013545 




visRgn: RgnHandle; 






013546 




clipRgn: RgnHandle; 






013547 




bkPixPat: PixPatHandle; 


{background pattern) 




013548 




rgbFgColor: RGBColor; 


{RGB components of fg) 




013549 




rgbBkColor: RGBColor; 


{RGB components of bk) 




013550 




pnLoc: Point; 






013551 




pnSize: Point; 






013552 




pnMode: INTEGER; 






013553 




pnPixPat: PixPatHandle; 


{pen's pattern) 




013554 




fillPixPat: PixPatHandle; 


{fill pattern) 




013555 




pnVis: INTEGER; 






013556 




txFont: INTEGER; 






013557 




txFace: Style; 


{txFace is unpacked byte push as short) 




013558 




txMode : INTEGER; 






013559 




txSize: INTEGER; 






013560 




spExtra: Fixed; 






013561 




fgColor: LONGINT; 






013562 




bkColor: LONGINT; 






013563 




colrBit: INTEGER; 






013564 




patStretch: INTEGER; 






013565 




picSave: Handle; 






013566 




rgnSave : Handle; 






013567 




polySave: Handle; 






013568 




grafProcs: CQDProcsPtr; 






013569 




END; 






013570 










013571 










013572 


CWindowPtr = CGrafPtr; 






013573 










013574 


ReqListRec = RECORD 






013575 




reqLSize: INTEGER; 


{request list size) 




013576 




reqLData: ARRAY [0..0] OF INTEGER; {request list data) 




013577 




END; 






013578 










013579 


OpenCPicParams = RECORD 






013580 




srcRect: Rect; 






013581 




hRes: Fixed; 






013582 




vRes : Fixed; 






013583 




version: INTEGER; 






013584 




reservedl: INTEGER; 






013585 




reserved2: LONGINT; 






013586 




END; 
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013587 






013588 






013589 


DeviceLoopDrawingProcPtr ^ ProcPtr; 




013590 






013591 






013592 


VAR 




013593 


{$PUSH} 




013594 


{$J+) 




013595 


thePort: GrafPtr; 




013596 


white; Pattern; 




013597 


black: Pattern; 




013598 


gray: Pattern; 




013599 


ItGray: Pattern; 




013600 


dkGray : Pattern; 




013601 


arrow: Cursor; 




013602 


screenBits: BitMap; 




013603 


randSeed: LONGINT; 




013604 


{$POP} 




013605 






013606 






013607 


PROCEDURE InltGraf (globalPtr: Ptr) ; 




013608 


INLINE $A86E; 




013609 


PROCEDURE OpenPort (port : GrafPtr); 




013610 


INLINE $A86F; 




013611 


PROCEDURE InltPort (port : GrafPtr); 




013612 


INLINE $A86D; 




013613 


PROCEDURE ClosePort (port : GrafPtr); 




013614 


INLINE $A87D; 




013615 


PROCEDURE SetPort (port: GrafPtr); 




013616 


INLINE $A873; 




013617 


PROCEDURE GetPort(VAR port: GrafPtr); 




013618 


INLINE $A874; 




013619 


PROCEDURE GrafDevice (device: INTEGER); 




013620 


INLINE $A872; 




013621 


PROCEDURE SetPortBits (bm: BitMap); 




013622 


INLINE $A875; 




013623 


PROCEDURE PortSize (width: INTEGER; height : INTEGER); 




013624 


INLINE $A876; 




013625 


PROCEDURE MovePortTo (leftGlobal: INTEGER; topGlobal : INTEGER); 




013626 


INLINE $A877; 




013627 


PROCEDURE SetOrigin(h: INTEGER; v: INTEGER); 




013628 


INLINE $A878; 




013629 


PROCEDURE SetClip(rgn: RgnHandle) ; 




013630 


INLINE $A879; 




013631 


PROCEDURE GetClip{rgn: RgnHandle); 




013632 


INLINE $A87A; 




013633 


PROCEDURE ClipRect(r: Rect); 




013634 


INLINE $A87B; 




013635 


PROCEDURE BackPat(pat: Pattern); 




013636 


INLINE $A87C; 




013637 


PROCEDURE InitCursor; 




013638 


INLINE $A850; 




013639 


PROCEDURE SetCursor (crsr : Cursor); 




013640 


INLINE $A851; 




013641 


PROCEDURE HideCursor; 




013642 


INLINE $A852; 
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013643 PROCEDURE ShowCursor; 

013644 INLINE $A853; 

013645 PROCEDURE ObscureCursor; 

013646 INLINE $A856; 

013647 PROCEDURE HidePen; 

013648 INLINE $A896; 

013649 PROCEDURE ShowPen; 

013650 INLINE $A897; 

013651 PROCEDURE GetPen (VAR pt : Point); 

013652 INLINE $A89A; 

013653 PROCEDURE GetPenState { VAR pnState : PenState) ; 

013654 INLINE $A898; 

013655 PROCEDURE SetPenState (pnState : PenState); 

013656 INLINE $A899; 

013657 PROCEDURE PenSize (width : INTEGER; height : INTEGER); 

013658 INLINE $A89B; 

013659 PROCEDURE PenMode (mode : INTEGER); 

013660 INLINE $A89C; 

013661 PROCEDURE PenPat (pat : Pattern); 

013662 INLINE $A89D; 

013663 PROCEDURE PenNormal; 

013664 INLINE $A89E; 

013665 PROCEDURE MoveTo (h: INTEGER;v: INTEGER); 

013666 INLINE $A893; 

013667 PROCEDURE Move (dh: INTEGER;dv: INTEGER); 

013668 INLINE $A894; 

013669 PROCEDURE LineTo(h: INTEGER;v: INTEGER); 

013670 INLINE $A891; 

013671 PROCEDURE Line(dh: INTEGER; dv: INTEGER); 

013672 INLINE $A892; 

013673 PROCEDURE TextFont ( f ont : INTEGER); 

013674 INLINE $A887; 

013675 PROCEDURE TextFace ( f ace : Style); 

013676 INLINE $A888; 

013677 PROCEDURE TextMode (mode : INTEGER); 

013678 INLINE $A889; 

013679 PROCEDURE TextSize ( size : INTEGER); 

013680 INLINE $A88A; 

013681 PROCEDURE SpaceExtra (extra : Fixed); 

013682 INLINE $A88E; 

013683 PROCEDURE DrawChar(ch: CHAR); 

013684 INLINE $A883; 

013685 PROCEDURE Drawstring (s : Str255); 

013686 INLINE $A884; 

013687 PROCEDURE DrawText (textBuf : Ptr; f irstByte : INTEGER; byteCount : INTEGER); 

013688 INLINE $A885; 

013689 FUNCTION CharWidth (ch: CHAR): INTEGER; 

013690 INLINE $A88D; 

013691 FUNCTION StringWidth (s : Str255): INTEGER; 

013692 INLINE $A88C; 

013693 FUNCTION TextWidth (textBuf : Ptr; f irstByte : INTEGER; byteCount : INTEGER): INTEGER; 

013694 INLINE $A886; 

013695 PROCEDURE MeasureText ( count : INTEGER; textAddr : Ptr; charLocs : Ptr); 

013696 INLINE $A837; 

013697 PROCEDURE GetFont Info (VAR info: Fontlnfo); 

013698 INLINE $A88B; 
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013699 PROCEDURE ForeColor (color : LONGINT); 

013700 INLINE $A862; 

013701 PROCEDURE BackColor (color : LONGINT); 

013702 INLINE $A863; 

013703 PROCEDURE ColorBit (whichBit : INTEGER); 

013704 INLINE $A864; 

013705 PROCEDURE SetRect (VAR r: Rect;left: INTEGER;top: INTEGER; right : INTEGER; 

013706 bottom: INTEGER); 

013707 INLINE $A8A7; 

013708 PROCEDURE Of f setRect (VAR r: Rect;dh: INTEGER;dv: INTEGER); 

013709 INLINE $A8A8; 

013710 PROCEDURE InsetRect (VAR r: Rect;dh: INTEGER;dv: INTEGER); 

013711 INLINE $A8A9; 

013712 FUNCTION SectRect { srcl : Rect;src2: Rect;VAR dstRect : Rect): BOOLEAN; 

013713 INLINE $A8AA; 

013714 PROCEDURE UnlonRect ( srcl : Rect;src2: Rect;VAR dstRect: Rect); 

013715 INLINE $A8AB; 

013716 FUNCTION EqualRect (rect 1 : Rect;rect2: Rect): BOOLEAN; 

013717 INLINE $A8A6; 

013718 FUNCTION EmptyRect(r: Rect): BOOLEAN; 

013719 INLINE $A8AE; 

013720 PROCEDURE FrameRect(r: Rect); 

013721 INLINE $A8A1; 

013722 PROCEDURE PalntRect(r: Rect); 

013723 INLINE $A8A2; 

013724 PROCEDURE EraseRect(r: Rect); 

013725 INLINE $A8A3; 

013726 PROCEDURE InvertRect (r : Rect); 

013727 INLINE $A8A4; 

013728 PROCEDURE FillRect(r: Rect; pat: Pattern); 

013729 INLINE $A8A5; 

013730 PROCEDURE FrameOval (r : Rect); 

013731 INLINE $A8B7; 

013732 PROCEDURE PalntOval(r: Rect); 

013733 INLINE $A8B8; 

013734 PROCEDURE EraseOval(r: Rect); 

013735 INLINE $A8B9; 

013736 PROCEDURE InvertOval (r : Rect); 

013737 INLINE $A8BA; 

013738 PROCEDURE FillOval(r: Rect;pat: Pattern); 

013739 INLINE $A8BB; 

013740 PROCEDURE FrameRoundRect (r : Rect ; ovalWidth : INTEGER; ovalHeight : INTEGER); 

013741 INLINE $A8B0; 

013742 PROCEDURE PalntRoundRect (r : Rect ; ovalWidth : INTEGER; ovalHeight : INTEGER); 

013743 INLINE $A8B1; 

013744 PROCEDURE EraseRoundRect (r : Rect ; ovalWidth : INTEGER; ovalHeight : INTEGER); 

013745 INLINE $A8B2; 

013746 PROCEDURE InvertRoundRect { r : Rect ; ovalWidth : INTEGER; ovalHeight : INTEGER); 

013747 INLINE $A8B3; 

013748 PROCEDURE FillRoundRect (r : Rect; ovalWidth: INTEGER; ovalHeight : INTEGER; 

013749 pat : Pattern) ; 

013750 INLINE $A8B4; 

013751 PROCEDURE FrameArc(r: Rect ; startAngle : INTEGER; arcAngle : INTEGER); 

013752 INLINE $A8BE; 

013753 PROCEDURE PaintArc(r: Rect ; startAngle : INTEGER; arcAngle : INTEGER); 

013754 INLINE $A8BF; 
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013755 PROCEDURE EraseArc(r: Rect ; startAngle : INTEGER; arcAngle : INTEGER); 

013756 INLINE $A8C0; 

013757 PROCEDURE InvertArc(r: Rect ; startAngle : INTEGER; arcAngle : INTEGER); 

013758 INLINE $A8C1; 

013759 PROCEDURE FillArc{r: Rect ; StartAngle : INTEGER; arcAngle : INTEGER;pat: Pattern); 

013760 INLINE $A8C2; 

013761 FUNCTION NewRgn : RgnHandle; 

013762 INLINE $A8D8; 

013763 PROCEDURE OpenRgn; 

013764 INLINE $A8DA; 

013765 PROCEDURE CloseRgn (dstRgn : RgnHandle); 

013766 INLINE $A8DB; 

013767 FUNCTION BitMapToRegionGlue (region : RgnHandle; bMap : BltMap) : OSErr; 

013768 FUNCTION BitMapToRegion (region : RgnHandle; bMap : BltMap): OSErr; 

013769 INLINE $A8D7; 

013770 PROCEDURE DisposeRgn (rgn : RgnHandle); 

013771 INLINE $A8D9; 

013772 PROCEDURE CopyRgn { srcRgn : RgnHandle; dstRgn : RgnHandle); 

013773 INLINE $A8DC; 

013774 PROCEDURE SetEmptyRgn ( rgn : RgnHandle); 

013775 INLINE $A8DD; 

013776 PROCEDURE SetRectRgn (rgn : RgnHandle; left : INTEGER;top: INTEGER; right : INTEGER; 

013777 bottom: INTEGER); 

013778 INLINE $A8DE; 

013779 PROCEDURE RectRgn{rgn: RgnHandle; r: Rect); 

013780 INLINE $A8DF; 

013781 PROCEDURE Of f setRgn (rgn : RgnHandle; dh : INTEGER;dv: INTEGER); 

013782 INLINE $A8E0; 

013783 PROCEDURE InsetRgn (rgn : RgnHandle; dh : INTEGER;dv: INTEGER); 

013784 INLINE $A8E1; 

013785 PROCEDURE SectRgn { srcRgnA: RgnHandle; srcRgnB : RgnHandle; dstRgn : RgnHandle); 

013786 INLINE $A8E4; 

013787 PROCEDURE UnionRgn ( srcRgnA: RgnHandle; srcRgnB : RgnHandle; dstRgn : RgnHandle); 

013788 INLINE $A8E5; 

013789 PROCEDURE Diff Rgn { srcRgnA: RgnHandle; srcRgnB : RgnHandle; dstRgn : RgnHandle); 

013790 INLINE $A8E6; 

013791 PROCEDURE XorRgn (srcRgnA : RgnHandle; srcRgnB : RgnHandle; dstRgn : RgnHandle); 

013792 INLINE $A8E7; 

013793 FUNCTION RectInRgn(r: Rect;rgn: RgnHandle): BOOLEAN; 

013794 INLINE $A8E9; 

013795 FUNCTION EqualRgn { rgnA: RgnHandle; rgnB : RgnHandle): BOOLEAN; 

013796 INLINE $A8E3; 

013797 FUNCTION EmptyRgn { rgn : RgnHandle): BOOLEAN; 

013798 INLINE $A8E2; 

013799 PROCEDURE FrameRgn (rgn : RgnHandle); 

013800 INLINE $A8D2; 

013801 PROCEDURE PaintRgn (rgn : RgnHandle); 

013802 INLINE $A8D3; 

013803 PROCEDURE EraseRgn (rgn : RgnHandle); 

013804 INLINE $A8D4; 

013805 PROCEDURE InvertRgn (rgn: RgnHandle); 

013806 INLINE $A8D5; 

013807 PROCEDURE FillRgn{rgn: RgnHandle; pat : Pattern); 

013808 INLINE $A8D6; 

013809 PROCEDURE ScrollRect (r: Rect;dh: INTEGER;dv: INTEGER; updateRgn : RgnHandle); 

013810 INLINE $A8EF; 
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013811 


PROCEDURE CopyBits (srcBits: BitMap; dstBits : BitMap; srcRect : Rect ; dstRect : Rect; 




013812 


mode: INTEGER; maskRgn : RgnHandle) ; 




013813 


INLINE $A8EC; 




013814 


PROCEDURE SeedFill (srcPtr: Ptr;dstPtr: Ptr;srcRow: INTEGER; dstRow: INTEGER; 




013815 


height: INTEGER; words : INTEGER; seedH : INTEGER; seedV: INTEGER); 




013816 


INLINE $A839; 




013817 


PROCEDURE CalcMask (srcPtr: Ptr;dstPtr: Ptr;srcRow: INTEGER; dstRow : INTEGER; 




013818 


height: INTEGER; words : INTEGER); 




013819 


INLINE $A838; 




013820 


PROCEDURE CopyMask (srcBits : BitMap; maskBits : BitMap; dstBits : BitMap; srcRect : Rect; 




013821 


maskRect: Rect; dstRect : Rect); 




013822 


INLINE $A817; 




013823 


FUNCTION OpenPicture (picFrame: Rect): PicHandle; 




013824 


INLINE $A8F3; 




013825 


PROCEDURE PicComment (kind: INTEGER; dataSize : INTEGER; dataHandle : Handle); 




013826 


INLINE $A8F2; 




013827 


PROCEDURE ClosePicture; 




013828 


INLINE $A8F4; 




013829 


PROCEDURE DrawPicture (myPicture : PicHandle; dstRect : Rect); 




013830 


INLINE $A8F6; 




013831 


PROCEDURE KillPicture (myPicture: PicHandle); 




013832 


INLINE $A8F5; 




013833 


FUNCTION OpenPoly: PolyHandle; 




013834 


INLINE $A8CB; 




013835 


PROCEDURE ClosePoly; 




013836 


INLINE $A8CC; 




013837 


PROCEDURE KillPoly (poly : PolyHandle); 




013838 


INLINE $A8CD; 




013839 


PROCEDURE Off setPoly (poly: PolyHandle; dh : INTEGER;dv: INTEGER); 




013840 


INLINE $A8CE; 




013841 


PROCEDURE FramePoly (poly : PolyHandle); 




013842 


INLINE $A8C6; 




013843 


PROCEDURE PaintPoly (poly: PolyHandle); 




013844 


INLINE $A8C7; 




013845 


PROCEDURE ErasePoly (poly : PolyHandle); 




013846 


INLINE $A8C8; 




013847 


PROCEDURE InvertPoly (poly: PolyHandle); 




013848 


INLINE $ABC9; 




013849 


PROCEDURE FillPoly (poly : PolyHandle;pat : Pattern); 




013850 


INLINE $A8CA; 




013851 


PROCEDURE SetPt(VARpt: Point; h: INTEGER; v: INTEGER); 




013852 


INLINE $A880; 




013853 


PROCEDURE LocalToGlobal (VAR pt : Point); 




013854 


INLINE $A870; 




013855 


PROCEDURE GlobalToLocaKVAR pt : Point); 




013856 


INLINE $A871; 




013857 


FUNCTION Random: INTEGER; 




013858 


INLINE $A861; 




013859 


PROCEDURE StuffHex(thingPtr: Ptr;s: Str255); 




013860 


INLINE $A866; 




013861 


FUNCTION GetPixel{h: INTEGER; v: INTEGER): BOOLEAN; 




013862 


INLINE $A865; 




013863 


PROCEDURE ScalePt (VAR pt : Point ; srcRect : Rect ; dstRect : Rect); 




013864 


INLINE $A8F8; 




013865 


PROCEDURE MapPt (VAR pt : Point ; srcRect : Rect ; dstRect : Rect); 




013866 


INLINE $A8F9; 


J 
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013867 PROCEDURE MapRect (VAR r: Rect ; srcRect : Rect ; dstRect : Rect); 

013868 INLINE $A8FA; 

013869 PROCEDURE MapRgn(rgn: RgnHandle; srcRect : Rect ; dstRect : Rect); 

013870 INLINE $A8FB; 

013871 PROCEDURE MapPoly (poly : PolyHandle; srcRect : Rect ; dstRect : Rect); 

013872 INLINE $A8FC; 

013873 PROCEDURE SetStdProcs (VAR procs : QDProcs); 

013874 INLINE $A8EA; 

013875 PROCEDURE StdRect { verb : GrafVerb;r: Rect); 

013876 INLINE $A8A0; 

013877 PROCEDURE StdRRect ( verb : GrafVerb;r: Rect ; ovalWidth : INTEGER; ovalHeight : INTEGER); 

013878 INLINE $A8AF; 

013879 PROCEDURE StdOval { verb : GrafVerb;r: Rect); 

013880 INLINE $A8B6; 

013881 PROCEDURE StdArc(verb: GrafVerb;r: Rect ; start Angle : INTEGER; arcAngle : INTEGER); 

013882 INLINE $A8BD; 

013883 PROCEDURE StdPoly (verb : GrafVerb; poly : PolyHandle); 

013884 INLINE $A8C5; 

013885 PROCEDURE StdRgn(verb: GrafVerb; rgn : RgnHandle); 

013886 INLINE $A8D1; 

013887 PROCEDURE StdBits{VAR srcBits: BitMap;VAR srcRect: Rect; dstRect : Rect;mode: INTEGER; 

013888 maskRgn: RgnHandle); 

013889 INLINE $A8EB; 

013890 PROCEDURE StdComment (kind: INTEGER; dataSize : INTEGER; dataHandle : Handle); 

013891 INLINE $A8F1; 

013892 FUNCTION StdTxMeas (byteCount : INTEGER; textAddr : Ptr;VAR numer: Point; VAR denom: Point; 

013893 VAR info: Fontlnfo): INTEGER; 

013894 INLINE $A8ED; 

013895 PROCEDURE StdGetPic (dataPtr : Ptr; byteCount : INTEGER); 

013896 INLINE $A8EE; 

013897 PROCEDURE StdPutPic (dataPtr : Ptr ; byteCount : INTEGER); 

013898 INLINE $A8F0; 

013899 PROCEDURE AddPt(src: Point;VAR dst : Point); 

013900 INLINE $A87E; 

013901 FUNCTION EqualPt(ptl: Point;pt2: Point): BOOLEAN; 

013902 INLINE $A881; 

013903 FUNCTION PtInRect{pt: Point;r: Rect): BOOLEAN; 

013904 INLINE $A8AD; 

013905 PROCEDURE Pt2Rect{ptl: Point;pt2: Point;VAR dstRect: Rect); 

013906 INLINE $A8AC; 

013907 PROCEDURE PtToAngle(r: Rect;pt: Point;VAR angle: INTEGER); 

013908 INLINE $A8C3; 

013909 FUNCTION PtInRgn(pt: Point;rgn: RgnHandle): BOOLEAN; 

013910 INLINE $A8E8; 

013911 PROCEDURE StdText { count : INTEGER; textAddr : Ptr;numer: Point ; denom: Point); 

013912 INLINE $A882; 

013913 PROCEDURE StdLine (newPt : Point); 

013914 INLINE $A890; 

013915 PROCEDURE OpenCPort (port : CGrafPtr); 

013916 INLINE $AAOO; 

013917 PROCEDURE InitCPort (port : CGrafPtr); 

013918 INLINE $AA01; 

013919 PROCEDURE CloseCPort (port : CGrafPtr); 

013920 INLINE $A87D; 

013921 FUNCTION NewPixMap: PixMapHandle; 

013922 INLINE $AA03; 
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013923 PROCEDURE DisposPlxMap (pm: PixMapHandle ) ; 

013924 INLINE $AA04; 

013925 PROCEDURE DisposePixMap (pm: PixMapHandle); 

013926 INLINE $AA04; 

013927 PROCEDURE CopyPixMap (srcPM: PixMapHandle; dstPM: PixMapHandle); 

013928 INLINE $AA05; 

013929 FUNCTION NewPixPat: PlxPatHandle; 

013930 INLINE $AA07; 

013931 PROCEDURE DisposPlxPat (pp : PlxPatHandle); 

013932 INLINE $AA08; 

013933 PROCEDURE DisposePixPat (pp : PlxPatHandle); 

013934 INLINE $AA08; 

013935 PROCEDURE CopyPixPat (srcPP : PlxPatHandle; dstPP : PlxPatHandle); 

013936 INLINE $AA09; 

013937 PROCEDURE PenPixPat (pp : PlxPatHandle); 

013938 INLINE $AAOA; 

013939 PROCEDURE BackPixPat (pp : PlxPatHandle); 

013940 INLINE $AAOB; 

013941 FUNCTION GetPixPat (pat ID : INTEGER): PlxPatHandle; 

013942 INLINE $AAOC; 

013943 PROCEDURE MakeRGBPat (pp: PixPatHandle;myColor : RGBColor) ; 

013944 INLINE $AAOD; 

013945 PROCEDURE FillCRect(r: Rect;pp: PlxPatHandle); 

013946 INLINE $AAOE; 

013947 PROCEDURE FillCOval(r: Rect;pp: PlxPatHandle); 

013948 INLINE $AAOF; 

013949 PROCEDURE FillCRoundRect (r : Rect ; ovalWidth : INTEGER; ovalHeight : INTEGER; 

013950 pp: PlxPatHandle); 

013951 INLINE $AA10; 

013952 PROCEDURE FillCArc(r: Rect ; startAngle : INTEGER; arcAngle : INTEGER; pp: PlxPatHandle); 

013953 INLINE $AA11; 

013954 PROCEDURE FillCRgn (rgn : RgnHandle; pp : PlxPatHandle); 

013955 INLINE $AA12; 

013956 PROCEDURE FillCPoly (poly : PolyHandle; pp : PlxPatHandle); 

013957 INLINE $AA13; 

013958 PROCEDURE RGBForeColor (color : RGBColor); 

013959 INLINE $AA14; 

013960 PROCEDURE RGBBackColor (color : RGBColor); 

013961 INLINE $AA15; 

013962 PROCEDURE SetCPixel(h: INTEGER; v: INTEGER; cPlx : RGBColor); 

013963 INLINE $AA16; 

013964 PROCEDURE SetPortPix (pm : PixMapHandle); 

013965 INLINE $AA06; 

013966 PROCEDURE GetCPixel(h: INTEGER; v: INTEGER; VAR cPlx: RGBColor); 

013967 INLINE $AA17; 

013968 PROCEDURE GetForeColor (VAR color: RGBColor); 

013969 INLINE $AA19; 

013970 PROCEDURE GetBackColor (VAR color: RGBColor); 

013971 INLINE $AA1A; 

013972 PROCEDURE SeedCFlll ( srcBits : BitMap; dstBits : BitMap; srcRect : Rect ; dstRect : Rect; 

013973 seedH: INTEGER; seedV: INTEGER;matchProc : ProcPtr; matchData : LONGINT) ; 

013974 INLINE $AA50; 

013975 PROCEDURE CalcCMask ( srcBits : BitMap; dstBits : BitMap; srcRect : Rect ; dstRect : Rect; 

013976 seedRGB: RGBColor;matchProc : ProcPtr ; matchData : LONGINT); 

013977 INLINE $AA4F; 

013978 FUNCTION OpenCPicture (newHeader : OpenCPicParams) : PicHandle; 
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013979 INLINE $AA20; 

013980 PROCEDURE OpColor { color : RGBColor); 

013981 INLINE $AA21; 

013982 PROCEDURE HiliteColor { color : RGBColor); 

013983 INLINE $AA22; 

013984 PROCEDURE DisposCTable (cTable : CTabHandle) ; 

013985 INLINE $AA24; 

013986 PROCEDURE DisposeCTable (cTable : CTabHandle); 

013987 INLINE $AA24; 

013988 FUNCTION GetCTable (ctID: INTEGER): CTabHandle; 

013989 INLINE $AA18; 

013990 FUNCTION GetCCursor (crsrID : INTEGER): CCrsrHandle; 

013991 INLINE $AA1B; 

013992 PROCEDURE SetCCursor (cCrsr : CCrsrHandle); 

013993 INLINE $AA1C; 

013994 PROCEDURE AllocCursor; 

013995 INLINE $AA1D; 

013996 PROCEDURE DisposCCursor (cCrsr : CCrsrHandle); 

013997 INLINE $AA26; 

013998 PROCEDURE DisposeCCursor (cCrsr : CCrsrHandle); 

013999 INLINE $AA26; 

014000 FUNCTION GetCICon { iconID : INTEGER): CIconHandle; 

014001 INLINE $AA1E; 

014002 PROCEDURE PlotCIcon (theRect : Rect ; thelcon : CIconHandle); 

014003 INLINE $AA1F; 

014004 PROCEDURE DisposCIcon (thelcon : CIconHandle); 

014005 INLINE $AA25; 

014006 PROCEDURE DisposeCIcon (thelcon : CIconHandle); 

014007 INLINE $AA25; 

014008 PROCEDURE SetStdCProcs (VAR procs : CQDProcs); 

014009 INLINE $AA4E; 

014010 PROCEDURE CharExtra (extra : Fixed); 

014011 INLINE $AA23; 

014012 FUNCTION GetMaxDevice (globalRect : Rect): GDHandle; 

014013 INLINE $AA2 7; 

014014 FUNCTION GetCTSeed: LONGINT; 

014015 INLINE $AA28; 

014016 FUNCTION GetDeviceList : GDHandle; 

014017 INLINE $AA29; 

014018 FUNCTION GetMainDevice : GDHandle; 

014019 INLINE $AA2A; 

014020 FUNCTION GetNextDevice (curDevlce : GDHandle): GDHandle; 

014021 INLINE $AA2B; 

014022 FUNCTION TestDevlceAttribute (gdh : GDHandle; attribute : INTEGER): BOOLEAN; 

014023 INLINE $AA2C; 

014024 PROCEDURE SetDeviceAttribute (gdh : GDHandle; attribute : INTEGER; value : BOOLEAN); 

014025 INLINE $AA2D; 

014026 PROCEDURE InitGDevice (qdRef Num: INTEGER; mode : LONGINT;gdh: GDHandle); 

014027 INLINE $AA2E; 

014028 FUNCTION NewGDevice (refNum: INTEGER; mode : LONGINT): GDHandle; 

014029 INLINE $AA2F; 

014030 PROCEDURE DisposGDevice (gdh : GDHandle); 

014031 INLINE $AA30; 

014032 PROCEDURE DisposeGDevlce (gdh : GDHandle); 

014033 INLINE $AA30; 

014034 PROCEDURE SetGDevlce (gd : GDHandle); 
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014035 INLINE $AA31; 

014036 FUNCTION GetGDevlce: GDHandle; 

014037 INLINE $AA32; 

014038 FUNCTION Color2Index (myColor : RGBColor): LONGINT; 

014039 INLINE $AA33; 

014040 PROCEDURE Index2Color { index : LONGINT; VAR aColor: RGBColor); 

014041 INLINE $AA34; 

014042 PROCEDURE InvertColor { VAR myColor : RGBColor); 

014043 INLINE $AA35; 

014044 FUNCTION RealColor (color : RGBColor): BOOLEAN; 

014045 INLINE $AA36; 

014046 PROCEDURE GetSubTable (myColors : CTabHandle; ITabRes : INTEGER; targetTbl : CTabHandle) ; 

014047 INLINE $AA37; 

014048 PROCEDURE MakelTable (cTabH: CTabHandle; ITabH : ITabHandle; res : INTEGER); 

014049 INLINE $AA39; 

014050 PROCEDURE AddSearch (searchProc: ProcPtr) ; 

014051 INLINE $AA3A; 

014052 PROCEDURE AddComp (compProc: ProcPtr); 

014053 INLINE $AA3B; 

014054 PROCEDURE DelSearch ( searchProc : ProcPtr); 

014055 INLINE $AA4C; 

014056 PROCEDURE DelComp { compProc : ProcPtr); 

014057 INLINE $AA4D; 

014058 PROCEDURE SubPt(src: Point;VAR dst : Point); 

014059 INLINE $A87F; 

014060 PROCEDURE SetClient ID { id : INTEGER); 

014061 INLINE $AA3C; 

014062 PROCEDURE ProtectEntry ( index : INTEGER; protect : BOOLEAN); 

014063 INLINE $AA3D; 

014064 PROCEDURE ReserveEntry ( index : INTEGER; reserve : BOOLEAN); 

014065 INLINE $AA3E; 

014066 PROCEDURE SetEntries (start : INTEGER; count : INTEGER; alable : CSpecArray) ; 

014067 INLINE $AA3F; 

014068 PROCEDURE SaveEntries { srcTable : CTabHandle; resultTable : CTabHandle; VAR selection: ReqListRec) , 

014069 INLINE $AA49; 

014070 PROCEDURE RestoreEntries (srcTable : CTabHandle; dstTable : CTabHandle; VAR selection: ReqListRec) , 

014071 INLINE $AA4A; 

014072 FUNCTION QDError: INTEGER; 
01407 3 INLINE $AA4 0; 

014074 PROCEDURE CopyDeepMask ( srcBits : BitMap;maskBits : BitMap; dstBits : BitMap; 

014075 srcRect: Rect ; maskRect : Rect ; dstRect : Rect;mode: INTEGER; maskRgn : RgnHandle); 

014076 INLINE $AA51; 

014077 PROCEDURE DeviceLoop (drawingRgn : RgnHandle; drawingProc : DeviceLoopDrawingProcPtr; 

014078 userData: LONGINT; flags : DeviceLoopFlags ) ; 

014079 INLINE $ABCA; 

014080 FUNCTION GetMaskTable : Ptr; 

014081 INLINE $A836,$2E88; 
014082 

014083 

014084 {$ENDC) ( UsingQuickdraw } 

014085 

014086 {$IFC NOT Usinglncludes } 

014087 END. 

014088 {$ENDC} 
014089 

014090 
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014091 ### END OF FILE Quickdraw.p 
014092 
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014093 

0140 94 ##################################################################### 

014095 ### FILE: Resources. p 

0140 96 ##################################################################### 

014097 

014098 

014099 { 

014100 Created: Thursday, September 12, 1991 at 2:50 PM 

014101 Resources. p 

014102 Pascal Interface to the Macintosh Libraries 
014103 

014104 Copyright Apple Computer, Inc. 1985-1991 

014105 All rights reserved 

014106 ) 
014107 
014108 

014109 {$IFC UNDEFINED Usinglncludes } 

014110 {$SETC Usinglncludes := 0} 

014111 {$ENDC) 
014112 

014113 {$IFC NOT Usinglncludes) 

014114 UNIT Resources; 

014115 INTERFACE 

014116 {$ENDC} 
014117 

014118 {$IFC UNDEFINED UsingResources } 

014119 {$SETC UsingResources := 1) 
014120 

014121 {$!+) 

014122 {$SETC Resourceslncludes := Usinglncludes} 

014123 {$SETC Usinglncludes := 1} 

014124 {$IFC UNDEFINED UsingTypes) 

014125 {$1 $$Shell (PInterfaces) Types. p) 

014126 {$ENDC) 

014127 {$IFC UNDEFINED UsingFiles) 

014128 {$1 5$Shell (Plnterfaces)Files.p) 

014129 {$ENDC) 

014130 {$SETC Usinglncludes := Resourceslncludes} 
014131 

014132 CONST 

014133 resSysHeap = 64; {System or application heap?} 

014134 resPurgeable ^ 32; {Purgeable resource?} 

014135 resLocked = 16; {Load it in locked?} 

014136 resProtected = 8; {Protected?} 

014137 resPreload = 4; {Load in on OpenResFile? } 

014138 resChanged — 2; {Resource changed?} 

014139 mapReadOnly = 128; {Resource file read-only} 

014140 mapCompact = 64; {Compact resource file} 

014141 mapChanged = 32; {Write map out at updat } 
014142 

014143 { Values for setting RomMapInsert and TmpResLoad } 

014144 mapTrue = $FFFF; {insert ROM map w/ TmpResLoad = TRUE.} 

014145 mapFalse = $FFOO; {insert ROM map w/ TmpResLoad = FALSE.} 
014146 

014147 FUNCTION InitResources : INTEGER; 

.014148 INLINE $A995; 



9/2/99 10:00 AM 



David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL 



Page 282 



014149 PROCEDURE RsrcZonelnit ; 

014150 INLINE $A996; 

014151 PROCEDURE CloseResFile (ref Num: INTEGER); 

014152 INLINE $A99A; 

014153 FUNCTION ResError: INTEGER; 

014154 INLINE $A9AF; 

014155 FUNCTION CurResFile: INTEGER; 

014156 INLINE $A994; 

014157 FUNCTION HomeResFile (theResource : Handle): INTEGER; 

014158 INLINE $A9A4 ; 

014159 PROCEDURE CreateResFile ( f ileName : Str255); 

014160 INLINE $A9B1; 

014161 FUNCTION OpenResFile ( f ileName : Str255): INTEGER; 

014162 INLINE 5A997; 

014163 PROCEDURE UseResFile (ref Num : INTEGER); 

014164 INLINE $A998; 

014165 FUNCTION CountTypes: INTEGER; 

014166 INLINE $A99E; 

014167 FUNCTION CountlTypes: INTEGER; 

014168 INLINE $A81C; 

014169 PROCEDURE Get IndType (VAR theType : ResType; index : INTEGER); 

014170 INLINE $A99F; 

014171 PROCEDURE Get 1 IndType (VAR theType : ResType; index : INTEGER); 

014172 INLINE $A80F; 

014173 PROCEDURE SetResLoad (load: BOOLEAN); 

014174 INLINE $A99B; 

014175 FUNCTION CountResources (theType : ResType): INTEGER; 

014176 INLINE $A99C; 

014177 FUNCTION Count IResources (theType : ResType): INTEGER; 

014178 INLINE $A80D; 

014179 FUNCTION Get IndResource (theType : ResType; index : INTEGER): Handle; 

014180 INLINE $A99D; 

014181 FUNCTION Get llndResource (theType : ResType; index : INTEGER): Handle; 

014182 INLINE $A80E; 

014183 FUNCTION GetResource (theType : ResType; thelD : INTEGER): Handle; 

014184 INLINE $A9A0; 

014185 FUNCTION Get IResource (theType : ResType; thelD : INTEGER): Handle; 

014186 INLINE $A81F; 

014187 FUNCTION GetNamedResource (theType : ResType; name : Str255): Handle; 

014188 INLINE 5A9A1; 

014189 FUNCTION Get INamedResource (theType : ResType; name : Str255): Handle; 

014190 INLINE $A820; 

014191 PROCEDURE LoadResource (theResource : Handle); 

014192 INLINE $A9A2; 

014193 PROCEDURE ReleaseResource (theResource : Handle); 

014194 INLINE $A9A3; 

014195 PROCEDURE DetachResource (theResource : Handle); 

014196 INLINE $A992; 

014197 FUNCTION UniquelD (theType : ResType): INTEGER; 

014198 INLINE $A9C1; 

014199 FUNCTION UniquellD (theType : ResType): INTEGER; 

014200 INLINE $A810; 

014201 FUNCTION GetResAttrs (theResource : Handle): INTEGER; 

014202 INLINE $A9A6; 

014203 PROCEDURE GetResInfo (theResource : Handle;VAR thelD: INTEGER;VAR theType: ResType; 

014204 VAR name: Str255); 
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014205 INLINE $A9A8; 

014206 PROCEDURE SetResInf o (theResource : Handle; thelD : INTEGER; name : Str255); 

014207 INLINE $A9A9; 

014208 PROCEDURE AddResource (theResource : Handle; theType : ResType; thelD : INTEGER; 

014209 name: Str255); 

014210 INLINE $A9AB; 

014211 FUNCTION SizeResource (theResource : Handle): LONGINT; 

014212 INLINE $A9A5; 

014213 FUNCTION MaxSizeRsrc (theResource: Handle): LONGINT; 

014214 INLINE $A821; 

014215 FUNCTION RsrcMapEntry (theResource : Handle): LONGINT; 

014216 INLINE $A9C5; 

014217 PROCEDURE SetResAttrs (theResource : Handle; attrs : INTEGER); 

014218 INLINE 5A9A7 ; 

014219 PROCEDURE ChangedResource (theResource : Handle); 

014220 INLINE $A9AA; 

014221 PROCEDURE RmveResource (theResource : Handle); 

014222 INLINE $A9AD; 

014223 PROCEDURE UpdateResFile (ref Num: INTEGER); 

014224 INLINE $A999; 

014225 PROCEDURE WrlteResource (theResource : Handle); 

014226 INLINE $A9B0; 

014227 PROCEDURE SetResPurge ( install : BOOLEAN); 

014228 INLINE $A993; 

014229 FUNCTION GetResFileAttrs (ref Num : INTEGER): INTEGER; 

014230 INLINE $A9F6; 

014231 PROCEDURE SetResFlleAttrs ( ref Num : INTEGER; attrs : INTEGER); 

014232 INLINE $A9F7; 

014233 FUNCTION OpenRFPerm ( f lleName : Str255; vRefNum: INTEGER; permission : SignedByte) : INTEGER; 

014234 INLINE $A9C4; 

014235 FUNCTION RGetResource (theType : ResType; thelD : INTEGER): Handle; 

014236 INLINE $A80C; 

014237 FUNCTION HOpenResFile ( vRef Num: INTEGER; dirlD : LONGINT; fileName : Str255; 

014238 permission: SignedByte) : INTEGER; 

014239 {$IFC SystemSevenOrLater } 

014240 INLINE $A81A; 

014241 {$ENDC) 

014242 PROCEDURE HCreateResFile (vRef Num : INTEGER; dirlD : LONGINT; fileName : Str255); 

014243 {$IFC SystemSevenOrLater } 

014244 INLINE $A81B; 

014245 {$ENDC) 
014246 

014247 FUNCTION FSpOpenResFile ( spec : FSSpec; permission : SignedByte): INTEGER; 

014248 INLINE $303C, $000D, $AA52; 

014249 PROCEDURE FSpCreateResFile ( spec : FSSpec; creator : OSType; f ileType : OSType; 

014250 scriptTag: ScriptCode) ; 

014251 INLINE $303C, $000E, $AA52; 
014252 

014253 { partial resource calls ) 

014254 PROCEDURE ReadPartialResource (theResource: Handle; of f set : LONGINT; buff er : UNIV Ptr; 

014255 count: LONGINT); 

014256 INLINE $7001,$A822; 

014257 PROCEDURE WritePartialResource (theResource : Handle; of f set : LONGINT;buf f er : UNIV Ptr; 

014258 count: LONGINT); 

014259 INLINE $7002,$A822; 

014260 PROCEDURE SetResourceSize (theResource : Handle; newSize : LONGINT); 
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014261 INLINE $7003,$A822; 

014262 

014263 

014264 

014265 {$ENDC) { UslngResources } 

014266 

014267 {$IFC NOT Uslnglncludes ) 

014268 END. 

014269 {$ENDC} 
014270 

014271 

014272 ### END OF FILE Resources. p 

014273 
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014274 

014275 ##################################################################### 

014276 ### FILE: Retrace. p 

014277 ##################################################################### 
014278 

014279 { 

014280 Created: Sunday, January 6, 1991 at 11:06 PM 

014281 Retrace. p 

014282 Pascal Interface to the Macintosh Libraries 
014283 

014284 Copyright Apple Computer, Inc. 1985-1990 

014285 All rights reserved 

014286 ) 
014287 
014288 

014289 {$IFC UNDEFINED Usinglncludes } 

014290 {$SETC Usinglncludes := 0} 

014291 {$ENDC} 
014292 

014293 {$IFC NOT Usinglncludes} 

014294 UNIT Retrace; 

014295 INTERFACE 

014296 {$ENDC) 
014297 

014298 {$IFC UNDEFINED UsingRetrace ) 

014299 {$SETC UsingRetrace := 1) 
014300 

014301 {$1+) 

014302 {$SETC Retracelncludes := Usinglncludes) 

014303 {$SETC Usinglncludes := 1} 

014304 {$IFC UNDEFINED UsingTypes) 

014305 {$1 $$Shell (PInterfaces) Types. p) 

014306 {$ENDC) 

014307 {$IFC UNDEFINED UsingOSUtils ) 

014308 {$1 5$Shell (Plnterfaces)OSUtils .p} 

014309 {$ENDC) 

014310 {$SETC Usinglncludes := Retracelncludes) 
014311 

014312 FUNCTION GetVBLQHdr : QHdrPtr; 

014313 INLINE $2EBC, $0000, $01 60 ; 

014314 FUNCTION SlotVInstall { vblBlockPtr : QElemPtr; theSlot : INTEGER): OSErr; 

014315 INLINE $301F, $205F, $A06F,$3E80; 

014316 FUNCTION SlotVRemove (vblBlockPtr : QElemPtr; theSlot : INTEGER): OSErr; 

014317 INLINE $301F, $205F, $A070 , $3E80; 

014318 FUNCTION AttachVBL (theSlot : INTEGER): OSErr; 

014319 INLINE $301F, $A07 1 , $3E80 ; 

014320 FUNCTION DoVBLTaslt (theSlot : INTEGER): OSErr; 

014321 INLINE $301F, $A072 , $3E80 ; 

014322 FUNCTION VInstall (vblTaskPtr: QElemPtr): OSErr; 

014323 INLINE $205F, $A033, $3E80 ; 

014324 FUNCTION VRemove (vblTaskPtr: QElemPtr): OSErr; 

014325 INLINE $205F, $A034 , $3E80 ; 
014326 

014327 

014328 {$ENDC) { UsingRetrace ) 

^14329 
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014330 
014331 
014332 
014333 
014334 
014335 
014336 



{$IFC NOT Usinglncludes) 

END. 
{$ENDC} 



### END OF FILE Retrace. p 
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014337 










014338 


##################################################################### 




014339 


### FILE: ROMDefs.p 








014340 


##################################################################### 




014341 










014342 


{ 








014343 


Created: Sunday, January 6, 1991 


at 


11:06 PM 




014344 


ROMDefs.p 








014345 


Pascal Interface to the Macintosh Libraries 




014346 










014347 


Copyright Apple Computer, 


Inc. 1986-1990 




014348 


All rights reserved 








014349 


) 








014350 










014351 










014352 


{$IFC UNDEFINED Usinglncludes } 








014353 


{$SETC Usinglncludes := 0} 








014354 


{$ENDC} 








014355 










014356 


{$IFC NOT Usinglncludes) 








014357 


UNIT ROMDefs; 








014358 


INTERFACE 








014359 


{$ENDC) 








014360 










014361 


{$IFC UNDEFINED UsingROMDef s ) 








014362 


{$SETC UsingROMDef s := 1) 








014363 










014364 










014365 


CONST 








014366 


appleFormat = 1; 




{Format of Declaration Data (IEEE will assign real value) } 




014367 


roraRevision ^ 1; 




{Revision of Declaration Data Format} 




014368 


testPattern = 1519594439; 




{FHeader long word test pattern} 




014369 










014370 


sCodeRev = 2; 




{Revision of code {For sExec) } 




014371 


SCPU68000 = 1; 




{CPU type = 68000} 




014372 


SCPU68020 = 2; 




{CPU type = 68020} 




014373 


SCPU68030 = 3; 




{CPU type = 68030} 




014374 


SCPU68040 = 4; 




{CPU type = 68040} 




014375 


sMacOS68000 = 1 






{Mac OS, CPU type = 68000} 




014376 


sMacOS68020 = 2 






{Mac OS, CPU type = 68020} 




014377 


sMacOS68030 = 3 






{Mac OS, CPU type = 68030} 




014378 


sMacOS68040 = 4 






{Mac OS, CPU type = 68040} 




014379 










014380 


board ^ 0; 




{Board sResource - Required on all boards} 




014381 


displayVideoAppleTFB = 16843009; 




{Video with Apple parameters for TFB card. } 




014382 


displayVideoAppleGM = 16843010; 




{Video with Apple parameters for GM card. } 




014383 


networkEtherNetApple3Com = 33620225, 


{Ethernet with apple parameters for 3-Comm card.} 




014384 


testSimpleAppleAny = -2147417856, 




{A simple test sResource.} 




014385 


endOfList = 255; 




{End of list) 




014386 


defaultlO = 100; 




{100 retries . } 




014387 










014388 


sRsrcType = 1; 




{Type of sResource) 




014389 


sRsrcName = 2; 




{Name of sResource) 




014390 


sRsrcIcon = 3; 




{Icon} 




014391 


sRsrcDrvrDir ^ 4; 




{Driver directory) 




014392 


sRsrcLoadDir ^ 


D ; 




{Load directory) 
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014393 


sRsrcBootRec ^ 5; 


sBoot record} 




014394 


sRsrcFlags = 7; 


sResource Flags) 




014395 


sRsrcHWDevId = 8; 


Hardware Device Id} 




014396 


minorBaseOS = 10; 


Offset to base of sResource in minor space.} 




014397 


minorLength ^ 11; 


Lengtli of sResource' s address space in standard slot space.} 




014398 


majorBaseOS ^ 12; 


Offset to base of sResource in Major space.} 




014399 


majorLength ^ 13; 


Length of sResource in super slot space.} 




014400 


sRsrccicn = 15; 


Color icon} 




014401 


sRsrciclS = 16; 


8-bit (indexed) icon} 




014402 


sRsrcicl4 ^ 17; 


4-bit (indexed) icon} 




014403 


sGammaDir ^ 64; 


sGamma directory} 




014404 


sDRVRDir =16; 


sDriver directory} 




014405 








014406 


drSwApple = 1; 


To ask for or define an Apple-compatible SW device.} 




014407 


drHwTFB = 1; 


HW ID for the TFB (original Mac II) video card.} 




014408 


drHw3Com = 1; 


HW ID for the Apple EtherTalk card.} 




014409 


drHwBSC = 3; 






014410 


catBoard = 1; 


Category for board types.} 




014411 


catTest = 2; 


Category for test types — not used much.} 




014412 


catDisplay = 3; 


Category for display (video) cards.} 




014413 


catNetwork = 4; 


Category for Networking cards . } 




014414 








014415 


boardid = 32; 


Board Id} 




014416 


pRAMInitData = 33; 


sPRAM init data} 




014417 


primarylnit = 34; 


Primary init record} 




014418 


timeOutConst = 35; 


Time out constant} 




014419 


vendorlnfo = 36; 


Vendor information List. See Vendor List, below} 




014420 


boardFlags = 37; 


Board Flags} 




014421 


secondarylnit = 38; 


Secondary init record/code} 




014422 


sRsrcVidNaraes = 65; 


Video mode name directory} 




014423 








014424 


vendorld = 1; 


Vendor Id} 




014425 


serialNum = 2; 


Serial number} 




014426 


revLevel = 3; 


Revision level} 




014427 


partNum = 4; 


Part number} 




014428 


date = 5; 


Last revision date of the card} 




014429 








014430 


typeBoard = 0; 


Type for board types.} 




014431 


typeApple = 1; 






014432 


typeVideo = 1; 


Type for video types.} 




014433 


typeEtherNet = 1; 


Type for ethernet types.} 




014434 


testByte = 32; 


Test byte. } 




014435 


testWord = 33; 


0021} 




014436 


testLong = 34; 


Test Long. } 




014437 


testString = 35; 


Test String. } 




014438 








014439 








014440 


{$ENDC) ( UsingROMDefs } 






014441 








014442 


{$IFC NOT Uslnglncludes) 






014443 


END. 






014444 


{$ENDC} 






014445 








014446 








014447 


### END OF FILE ROMDefs.p 






014448 









9/2/99 10:00 AM David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL 


Page 289 


014449 






014450 


##################################################################### 




014451 


### FILE: RTLib.p 




014452 


##################################################################### 




014453 






014454 






014455 


{ 




014456 


Created: Friday, August 2, 1991 at 11:20 PM 




014457 


RTLib.p 




014458 


Pascal Interface to the Macintosh Libraries 




014459 






014460 


Copyright Apple Computer, Inc. 1990-1991 




014461 


All rights reserved 




014462 


) 




014463 






014464 






014465 


{$IFC UNDEFINED Usinglncludes } 




014466 


{$SETC Usinglncludes := 0} 




014467 


{$ENDC) 




014468 






014469 


{$IFC NOT Usinglncludes) 




014470 


UNIT RTLib; 




014471 


INTERFACE 




014472 


{$ENDC} 




014473 






014474 


{$IFC UNDEFINED UsingRTLib} 




014475 


{$SETC UsingRTLib := 1) 




014476 






014477 


{$!+) 




014478 


{$SETC RTLiblncludes := Usinglncludes} 




014479 


{$SETC Usinglncludes := 1} 




014480 


{$IFC UNDEFINED UsingTypes) 




014481 


{$1 $$Shell (PInterfaces) Types. p) 




014482 


{$ENDC} 




014483 


{$SETC Usinglncludes := RTLiblncludes} 




014484 






014485 






014486 


CONST 




014487 


{ 




014488 


Error Codes 




014489 


} 




014490 


eRTNoErr = ; 




014491 


eRTBadVersion = 2; 




014492 


eRTInvalidOp = 4; 




014493 


eRTInvalidJTPtr = 6; 




014494 






014495 


{ 




014496 


Action Codes 




014497 


} 




014498 


kRTSysErr = ; 




014499 


kRTRetry = 1; 




014500 


kRTContinue = 2; 




014501 






014502 


{ 




014503 


Runtime Operations 




014504 


} 


J 
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014505 


kRTGetVersion 


= 10; 




014506 


kRTGetVersionA5 = 11; 




014507 


kRTGetJTAddress = 12; 




014508 


kRTGetJTAddressAS 


= 13; 




014509 


kRTSetPreLoad 


= 14; 




014510 


kRTSetPreLoadAS = 15; 




014511 


kRTSetSegLoadErr 


= 16; 




014512 


kRTSetSegLoadErrAS = 17; 




014513 


kRTSetPostLoad 


= 18; 




014514 


kRTSetPostLoadA5 


= 19; 




014515 


kRTSetPreUnload = 20; 




014516 


kRTSetPreUnloadA5 


= 21; 




014517 


kRTPreLaunch 


= 22; 




014518 


kRTPostLaunch 


= 23; 




014519 








014520 


{ 






014521 


Version Definit 


Lons 




014522 


) 






014523 


kVERSION32BIT 


= $FFFF; 




014524 


kVERSI0N16BIT 


= $0000; 




014525 








014526 








014527 


TYPE 






014528 


{ 






014529 


RTState Definit 


Lon 




014530 


) 






014531 


RTState = RECORD 






014532 


f Version: INTEGER 


{ run-time version ) 




014533 


fSP: Ptr 


{ SP : &-of user return address ) 




014534 


fJTAddr: Ptr 


{ PC: &-of called jump table entry ) 




014535 


f Registers: Array [0 


.14] of LONGINT; { registers D0-D7 and A0-A6 when } 




014536 




{ _LoadSeg was called ) 




014537 


fSegNo: INTEGER 


{ segment number } 




014538 


fSeglype: ResType 


{ segment type (normally 'CODE') ) 




014539 


fSegSize: LONGINT 


{ segment size } 




014540 


fSeglnCore: BOOLEAN 


{ true if segment is in memory } 




014541 


fReservedl: BOOLEAN 


{ (reserved for future use) ) 




014542 


fOSErr: OSErr; 


{ error number } 




014543 


fReserved2: LONGINT 


{ (reserved for future use) ) 




014544 


END; 






014545 








014546 


RTStatePtr = ^RTState; 






014547 








014548 


{ 






014549 


Runtime Parameter Block 




014550 


) 






014551 








014552 


RTParam = (RTGetVersionI 


= aram, RTGet JTAddrParam, RTSetSegLoadParam) ; 




014553 








014554 


RTPB = RECORD 






014555 


f Operation: INTEGER; { operation ) 




014556 


fA5: 


Ptr; { A5-world ) 




014557 


CASE RTParam OF 






014558 


RTGetVersionParam: 




014559 


(fVersion ; 


INTEGER) ; { run-time version (returned) ) 




014560 
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014561 
014562 
014563 
014564 
014565 
014566 
014567 
014568 
014569 
014570 
014571 
014572 
014573 
014574 
014575 
014576 
014577 
014578 
014579 
014580 
014581 
014582 
014583 
014584 



RTGet JTAddrP aram : 

(fJTAddr: Ptr; 
fCodeAddr: Ptr); 

RTSetSegLoadParam: 

(fUserHdlr: Ptr; 
fOldUserHdlr: Ptr); 



ptr to jt entry ) 

code address w/i jt entry (returned) 



ptr to user handler } 

ptr to old user handler (returned) } 



END; 



RTPBPtr 



FUNCTION Runtime ( runtime_parms : RTPBPtr): OSErr; 



{$ENDC) 



UsingRTLib 



{$IFC NOT Uslnglncludes) 
END. 

{$ENDC} 



### END OF FILE RTLib.p 
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014585 

014586 ##################################################################### 

014587 ### FILE: SANE.p 

014588 ##################################################################### 
014589 

014590 { 

014591 Created: Friday, September 15, 1989 at 5:01 PM 

014592 SANE.p 

014593 Pascal Interface to the Macintosh Libraries 
014594 

014595 Copyright Apple Computer, Inc. 1985-1991 

014596 All rights reserved 

014597 ) 
014598 
014599 

014600 {$IFC UNDEFINED Usinglncludes } 

014601 {$SETC Usinglncludes := 0} 

014602 {$ENDC} 
014603 

014604 {$IFC NOT Usinglncludes} 

014605 UNIT SANE; 

014606 INTERFACE 

014607 {$ENDC) 
014608 

014609 {$IFC UNDEFINED UsingSANE} 

014610 {$SETC UsingSANE := 1} 
014611 

014612 {$1+) 

014613 {$SETC SANEIncludes := Usinglncludes) 

014614 {$SETC Usinglncludes := 1} 

014615 {$IFC UNDEFINED UsingTypes) 

014616 {$1 5$Sheli (PInterfaces) Types. p) 

014617 {$ENDC) 

014618 {$SETC Usinglncludes := SANEIncludes) 
014619 

014620 { Elems881 mode set by -d Elems881^true on Pascal command line ) 
014621 

014622 {$IFC UNDEFINED Elems881) 

014623 {$SETC Elems881 = FALSE) 

014624 {$ENDC} 
014625 

014626 

014627 CONST 

014628 {$IFC OPTION (MC68881) } 
014629 

014 630 (*==================================================================== 

014631 * The interface specific to the MC68881 SANE library * 

014 632 *==================================================================== 

014633 

014634 Inexact = 8; 

014635 DivByZero = 16; 

014636 Underflow = 32; 

014637 Overflow = 64; 

014638 Invalid = 128; 

014639 Curlnexl = 256; 
.014640 Curlnex2 = 512; 
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014641 
014642 
014643 
014644 
014645 
014646 
014647 
014648 
014649 
014650 
014651 
014652 
014653 
014654 
014655 
014656 
014657 
014658 
014659 
014660 
014661 
014662 
014663 
014664 
014665 
014666 
014667 
014668 
014669 
014670 
014671 
014672 
014673 
014674 
014675 
014676 
014677 
014678 
014679 
014680 
014681 
014682 
014683 
014684 
014685 
014686 
014687 
014688 
014689 
014690 
014691 
014692 
014693 
014694 
014695 
014696 



CurDivByZero = 1024; 
CurUnderflow = 2048; 
CurOverflow = 4096; 
CurOpError = 8192; 
CurSigNaN = 16384; 
CurBSonUnor = 32768; 



{$ELSEC) 



The interface specific to the software SANE library 



'} 



Invalid — 1; 

Underflow - 2; 

Overflow - 4; 

DivByZero = 8; 

Inexact — 16; 

lEEEDef aultEnv = 0; {IEEE-default floating-point environment constant} 



{$ENDC} 



The common interface for the SANE library 



DecStrLen = 255; 
SigDigLen = 20; 



{for 68K; use 28 in 6502 SANE} 



TYPE 

RelOp ^ (GreaterThan, LessThan, EqualTo, Unordered) ; 

NuraClass ^ (SNaN, QNaN, Infinite, ZeroNum, NorraalNum, DenormalNum) , 

RoundDir - (ToNearest , Upward, Downward, TowardZero) ; 

RoundPre - (ExtPrecision, DblPrecision, RealPrecision) ; 

DecimalKind ^ (FloatDecimal, FixedDecimal) ; 

{$IFC OPTION (MC68881) } 

* The interface specific to the MC68881 SANE library * 

Exception = LONGINT; 

Environment = RECORD 
FPCR: LONGINT; 
FPSR: LONGINT; 
END; 
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014697 


TrapVector = RECORD 




014698 


Unordered: LONGINT; 




014699 


Inexact: LONGINT; 




014700 


DivByZero: LONGINT; 




014701 


Underflow: LONGINT; 




014702 


OpError: LONGINT; 




014703 


Overflow: LONGINT; 




014704 


SigNaN: LONGINT; 




014705 


END; 




014706 






014707 


{$ELSEC) 




014708 






014709 
014710 


( A * 




* The interface specific to the software SANE library * 




014711 
014712 


* * 1 




J 




014713 


Exception = INTEGER; 




014714 






014715 


Environment = INTEGER; 




014716 






014717 


Extended96 = ARRAY [0..5] OF INTEGER; 




014718 






014719 


MiscHaltlnfo = RECORD 




014720 


HaltExceptions : INTEGER; 




014721 


PendingCCR: INTEGER; 




014722 


PendingDO: LONGINT; 




014723 


END; 




014724 






014725 


{$ENDC} 




014726 






014727 
014728 


f A * 




\ 

* The common interface for the SANE library * 




014729 


^,^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^„^^„^^„^^„^^„^^^^,^ 




014730 






014731 


DecStr = STRING [DecStrLen] ; 




014732 






014733 


DecForm = RECORD 




014734 


style: DecimalKind; 




014735 


digits: INTEGER; 




014736 


END; 




014737 






014738 


Decimal = RECORD 




014739 


sgn: 0. . 1; 




014740 


exp: INTEGER; 




014741 


sig: STRING [SigDigLen] ; 




014742 


END; 




014743 






014744 


CStrPtr = ^CHAR; 




014745 






014746 






014747 






014748 


{$IFC OPTION (MC68881) } 




014749 






014750 


{ return IEEE default environment } 




014751 


FUNCTION lEEEDef aultEnv: environment; 




014752 


PROCEDURE SetTrapVector (Traps : trapvector); 


J 
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014753 PROCEDURE GetTrapVector (VAR Traps: trapvector); 

014754 FUNCTION X96toX80{x: Extended): extendedSO; 

014755 FUNCTION X80toX96{x: extendedSO): Extended; 

014756 {$IFC ElemsSSl = false) 
014757 

014758 { sine jFUNCTION Sin(x: Extended): Extended; 

014759 FUNCTION Cos(x: Extended): Extended; 

014760 FUNCTION ArcTan (x: Extended): Extended; 

014761 FUNCTION Exp(x: Extended): Extended; 

014762 FUNCTION Ln(x: Extended): Extended; 

014763 FUNCTION Log2{x: Extended): Extended; 

014764 FUNCTION Lnl(x: Extended): Extended; 

014765 FUNCTION Exp2{x: Extended): Extended; 

014766 FUNCTION Expl{x: Extended): Extended; 

014767 FUNCTION Tan(x: Extended): Extended; 

014768 {$ENDC} 
014769 

014770 {$ELSEC} 
014771 

014772 { return halt vector }FUNCTION GetHaltVector : LONGINT; 

014773 PROCEDURE SetHaltVector ( v : LONGINT); 

014774 FUNCTION X96toX80{x: Extended96): Extended; 

014775 FUNCTION X80toX96{x: Extended): Extended96; 

014776 FUNCTION Log2{x: Extended): Extended; 

014777 FUNCTION Lnl(x: Extended): Extended; 

014778 FUNCTION Exp2{x: Extended): Extended; 

014779 FUNCTION Expl{x: Extended): Extended; 

014780 FUNCTION Tan(x: Extended): Extended; 

014781 {$ENDC} 
014782 

014783 

014784 (*======================================================================* 

014785 * The common interface for the SANE library * 

014 7 8 6 *======================================================================* ) 

014787 

014788 { 

014789 * Conversions between numeric binary types. 

0147 90 } 

014791 

014792 FUNCTION Num2Integer (x: Extended): INTEGER; 

014793 FUNCTION Num2Longint (x: Extended): LONGINT; 

014794 FUNCTION Num2Real{x: Extended): real; 

014795 FUNCTION Num2Double (x: Extended): DOUBLE; 

014796 FUNCTION Num2Extended (x : Extended) : Extended; 

014797 FUNCTION Num2Comp(x: Extended): Comp; 

014798 PROCEDURE Num2Dec{f: decform;x: Extended;VAR d: decimal); 

014799 FUNCTION Dec2Num(d: decimal): Extended; 

014800 PROCEDURE Num2Str{f: decform;x: Extended;VAR s: DecStr); 

014801 FUNCTION Str2Num(s: DecStr): Extended; 

014802 PROCEDURE Str2Dec{s: DecStr;VAR Index: INTEGER;VAR d: decimal ; VAR ValidPrefix: BOOLEAN); 

014803 PROCEDURE CStr2Dec(s: CStrPtr;VAR Index: INTEGER; VAR d: decimal;VAR ValidPrefix: BOOLEAN); 

014804 PROCEDURE Dec2Str{f: decform;d: decimal;VAR s: DecStr); 

014805 FUNCTION Remainder(x: Extended;y: Extended;VAR quo: INTEGER): Extended; 

014806 FUNCTION Rint{x: Extended): Extended; 

014807 FUNCTION Scalb(n: INTEGER;x: Extended): Extended; 

014808 FUNCTION Logb{x: Extended): Extended; 
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014809 FUNCTION CopySign{x: Extended;y: Extended): Extended; 

014810 FUNCTION NextReal{x: real;y: real): real; 

014811 FUNCTION NextDouble (x: DOUBLE;y: DOUBLE): DOUBLE; 

014812 FUNCTION NextExtended (x : Extended;y: Extended): Extended; 

014813 FUNCTION Xpwrl(x: Extended;!: INTEGER): Extended; 

014814 FUNCTION XpwrY(x: Extended;y: Extended): Extended; 

014815 FUNCTION Compound{r: Extended;n: Extended): Extended; 

014816 FUNCTION Annulty(r: Extended;n: Extended): Extended; 

014817 FUNCTION RandomX (VAR x: Extended): Extended; 

014818 FUNCTION ClassReal(x: real): NumClass; 

014819 FUNCTION ClassDouble (x : DOUBLE): NumClass; 

014820 FUNCTION ClassComp(x: Comp) : NumClass; 

014821 FUNCTION ClassExtended (x : Extended): NumClass; 

014822 FUNCTION SignNum(x: Extended): INTEGER; 

014823 FUNCTION NAN(1: INTEGER): Extended; 

014824 PROCEDURE SetException (e : Exception;b: BOOLEAN); 

014825 FUNCTION TestException (e : Exception): BOOLEAN; 

014826 PROCEDURE SetHalt{e: Exception;b: BOOLEAN); 

014827 FUNCTION TestHalt{e: Exception): BOOLEAN; 

014828 PROCEDURE SetRound(r: RoundDir); 

014829 FUNCTION GetRound: RoundDir; 

014830 PROCEDURE SetPreclsion (p : RoundPre); 

014831 FUNCTION GetPrecision : RoundPre; 

014832 PROCEDURE SetEnvironment (e : environment); 

014833 PROCEDURE GetEnvironment (VAR e: environment); 

014834 PROCEDURE ProcEntry (VAR e: environment); 

014835 PROCEDURE ProcExit(e: environment); 

014836 FUNCTION Relation{x: Extended;y: Extended): RelOp; 
014837 

014838 {$ENDC) { UsingSANE ) 
014839 

014840 {$IFC NOT Usinglncludes ) 

014841 END. 

014842 {$ENDC} 
014843 

014844 

014845 ### END OF FILE SANE.p 

014846 
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014847 






014848 


##################################################################### 




014849 


### FILE: Scrap. p 




014850 


##################################################################### 




014851 






014852 


{ 




014853 


Created: Sunday, January 6, 1991 at 11:07 PM 




014854 


Scrap .p 




014855 


Pascal Interface to the Macintosh Libraries 




014856 






014857 


Copyright Apple Computer, Inc. 1985-1989 




014858 


All rights reserved 




014859 


) 




014860 






014861 






014862 


{$IFC UNDEFINED Usinglncludes } 




014863 


{$SETC Usinglncludes := 0} 




014864 


{$ENDC} 




014865 






014866 


{$IFC NOT Usinglncludes} 




014867 


UNIT Scrap; 




014868 


INTERFACE 




014869 


{$ENDC) 




014870 






014871 


{$IFC UNDEFINED UsingScrap} 




014872 


{$SETC UsingScrap := 1) 




014873 






014874 


{$1+) 




014875 


{$SETC Scraplncludes := Usinglncludes} 




014876 


{$SETC Usinglncludes := 1} 




014877 


{$IFC UNDEFINED UsingTypes} 




014878 


{$1 $$Shell (PInterfaces) Types. p} 




014879 


{$ENDC} 




014880 


{$SETC Usinglncludes := Scraplncludes} 




014881 






014882 


TYPE 




014883 


PScrapStuff = ''ScrapStuf f ; 




014884 


ScrapStuff = RECORD 




014885 


scrapSize: LONGINT; 




014886 


scrapHandle: Handle; 




014887 


scrapCount: INTEGER; 




014888 


scrapState: INTEGER; 




014889 


scrapName: StringPtr; 




014890 


END; 




014891 






014892 






014893 


FUNCTION InfoScrap: PScrapStuff; 




014894 


INLINE $A9F9; 




014895 


FUNCTION UnloadScrap: LONGINT; 




014896 


INLINE $A9FA; 




014897 


FUNCTION LoadScrap: LONGINT; 




014898 


INLINE $A9FB; 




014899 


FUNCTION GetScrap{hDest: Handle; thelype : ResType;VAR offset: LONGINT): LONGINT; 




014900 


INLINE $A9FD; 




014901 


FUNCTION ZeroScrap: LONGINT; 




014902 


INLINE $A9FC; 


J 
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014903 FUNCTION PutScrap { length : LONGINT; theType : ResType; source : Ptr) : LONGINT; 

014904 INLINE $A9FE; 
014905 

014906 

014907 {$ENDC) { UsingScrap ) 

014908 

014909 {$IFC NOT Uslnglncludes) 

014910 END. 

014911 {$ENDC} 
014912 

014913 

014914 ### END OF FILE Scrap. p 

014915 
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014916 






014917 


##################################################################### 




014918 


### FILE: Script. p 




014919 


##################################################################### 




014920 






014921 






014922 


{ 




014923 


Created: Tuesday, January 15, 1991 at 8:56 AM 




014924 


Script .p 




014925 


Pascal Interface to the Macintosh Libraries 




014926 






014927 


Copyright Apple Computer, Inc. 1986-1991 




014928 


All rights reserved 




014929 


) 




014930 






014931 






014932 


{$IFC UNDEFINED Usinglncludes } 




014933 


{$SETC Usinglncludes := 0} 




014934 


{$ENDC) 




014935 






014936 


{$IFC NOT Usinglncludes) 




014937 


UNIT Script; 




014938 


INTERFACE 




014939 


{$ENDC} 




014940 






014941 


{$IFC UNDEFINED UsingScript) 




014942 


{$SETC UsingScript := 1) 




014943 






014944 


{$!+) 




014945 


{$SETC Scriptlncludes := Usinglncludes) 




014946 


{$SETC Usinglncludes := 1) 




014947 


{$IFC UNDEFINED UsingTypes) 




014948 


{$1 $$Shell (PInterfaces) Types. p) 




014949 


{$ENDC) 




014950 


{$IFC UNDEFINED UsingOSUtils ) 




014951 


{$1 $$ Shell (PInterfaces) OSUtils .p) 




014952 


{$ENDC) 




014953 


{$IFC UNDEFINED UsingQuicltdraw) 




014954 


{ $1 $$ Shell (PInterfaces) Quicltdraw.p) 




014955 


{$ENDC) 




014956 


{$SETC Usinglncludes := Scriptlncludes) 




014957 






014958 


CONST 




014959 






014960 


{ Script System constants ) 




014961 


smSystemScript = -1; {designates system script.) 




014962 


smCurrentScript ^ -2; {designates current font script.) 




014963 


smAllScripts ^ -3; {designates any script.) 




014964 


smRoman ^ ; { Roman ) 




014965 


smjapanese = 1; {Japanese) 




014966 


smTradChinese ^ 2; {Traditional Chinese) 




014967 


smKorean ^ 3; {Korean) 




014968 


smArabic = 4; {Arabic) 




014969 


smHebrew = 5; {Hebrew) 




014970 


smGreek = 6; {Greek) 




014971 


smCyrillic = 7; {Cyrillic) 
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014972 


smRSymbol = 8; 








{Right-left symbol} 




014973 


smDevanagari ^ 9 








{Devanagari } 




014974 


smGurmukhi = 10; 








{Gurmukhi } 




014975 


smGujarati = 11; 








{Gu jarati } 




014976 


smOriya ^ 12; 








{Oriya} 




014977 


smBengali = 13; 








{Bengali} 




014978 


smTamil = 14; 








{Tamil} 




014979 


smTelugu = 15; 








{Telugu} 




014980 


smKannada = 16; 








{Kannada/Kanarese} 




014981 


smMalayalam ^ 17 








{Malayalam} 




014982 


smSinhalese ^ 18 








{ Sinhalese } 




014983 


smBurmese = 19; 








{Burmese) 




014984 


smKhmer = 20; 








{Khmer/Cambodian) 




014985 


smThai = 21; 








{Thai} 




014986 


smLaotian ^ 22; 








{Laotian) 




014987 


smGeorgian = 23; 








{Georgian) 




014988 


smArmenian = 24; 








{Armenian) 




014989 


smSimpChinese ^ 


25; 






{Simplified Chinese) 




014990 


smTibetan = 26; 








{Tibetan) 




014991 


smMongolian ^ 27 








{Mongolian} 




014992 


smGeez = 28; 








{Geez/Ethiopic} 




014993 


smEthiopic = 28; 








{Synonym for sraGeez) 




014994 


smEastEurRoman = 


29; 






{Synonym for sraSlavic} 




014995 


smVietnamese ^ 30; 






{Vietnamese ) 




014996 


smExtArabic = 31 








{extended Arabic) 




014997 


smUninterp = 32; 








{uninterpreted symbols, e.g. palette symbols) 




014998 














014999 


{Obsolete names 


for script 


systems 


(kept f 


or backward compatibility) ) 




015000 


smChinese = 2; 








{ (use smTradChinese or smSimpChinese) } 




015001 


smRussian = 7; 








{ (old name for smCyrillic) } 




015002 














015003 


{ smMaldivian ^ 


25; 


(no more smMaldivian!)} 




015004 


smAmharic = 28; 








{ (old name for smGeez) } 




015005 


smSlavic = 29; 








{ (old name for smEastEurRoman) } 




015006 


smSindhi ^ 31; 








{ (old name for smExtArabic) ) 




015007 














015008 


{ Calendar Codes 


} 










015009 


calGregorian = 












015010 


calArabicCivil = 


1; 










015011 


calArabicLunar = 


2; 










015012 


calJapanese ^ 3; 












015013 


calJewish = 4; 












015014 


calCoptic ^ 5; 












015015 


calPersian = 6; 












015016 














015017 


{ Integer Format 


Codes ) 










015018 


intWestern = 0; 












015019 


intArabic ^ 1; 












015020 


intRoman = 2; 












015021 


Int Japanese = 3; 












015022 


intEuropean ^ 4; 












015023 


intOutputMask ^ 


58000; 










015024 














015025 


{ CharByte byte 


;ypes ) 










015026 


smSingleByte ^ 












015027 


smFirstByte ^ -1 
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015028 


smLastByte = 1; 




015029 


smMiddleByte = 2; 




015030 






015031 


{ CharType field masks } 




015032 


smcTypeMask = $000F; 




015033 


smcReserved = $00F0; 




015034 


smcClassMask = $0F00; 




015035 


smcOrientationMask = SIOOO; {two-byte script glyph orientation} 




015036 


smcRightMask = $2000; 




015037 


smcUpperMask = $4000; 




015038 


smcDoubleMask = $8000; 




015039 






015040 


{ Basic CharType character types } 




015041 


smCharPunct = $0000; 




015042 


smCharAscii = $0001; 




015043 


smCharEuro = $0007; 




015044 


smCharExtAscii = $0007; { More correct synonym for smCharEuro } 




015045 






015046 


{ Additional CharType character types for script systems } 




015047 


smCharKatakana = $0002; {Japanese Katakana} 




015048 


smCharHiragana = $0003; {Japanese Hiragana} 




015049 


smCharldeographic = $0004; {Hanzi, Kanji, Hanja) 




015050 


smCharTwoByteGreek = $0005; {2-byte Greek in Far East systems} 




015051 


smCharTwoByteRussian = $0006; {2-byte Cyrillic in Far East systems} 




015052 


smCharBidirect = $0008; {Arabic/Hebrew} 




015053 


smCharHangul = $000C; {Korean Hangui} 




015054 


smCharJamo = $000D; {Korean Jamo } 




015055 






015056 


{ old names for some of above, for backward compatibility } 




015057 


smCharFISKana = $0002; {Katakana} 




015058 


smCharFISGana = $0003; {Hiragana} 




015059 


smCharFISIdeo = $0004; {Hanzi, Kanji, Hanja} 




015060 


smCharFISGreek = $0005; {2-byte Greek in Far East systems} 




015061 


smCharFISRussian = $0006; {2-byte Cyrillic in Far East systems} 




015062 






015063 


{ CharType classes for punctuation (smCharPunct) } 




015064 


smPunctNormal = $0000; 




015065 


smPunctNumber = $0100; 




015066 


smPunctSymbol = $0200; 




015067 


smPunctBlank = $0300; 




015068 






015069 


{ Additional CharType classes for punctuation in two-byte systems } 




015070 


smPunctRepeat ^ $0400; { repeat marker } 




015071 


smPunctGraphic = $0500; { line graphics } 




015072 






015073 


{ CharType Katakana and Hiragana classes for two-byte systems } 




015074 


smKanaSmall ^ $0100; {small kana character} 




015075 


smKanaHardOK = $0200; {can have dakuten} 




015076 


smKanaSoftOK = $0300; {can have dakuten or han-dakuten} 




015077 






015078 


{ CharType Ideographic classes for two-byte systems } 




015079 


smIdeographicLeveil ^ $0000; {level 1 char} 




015080 


smIdeographicLevei2 = $0100; {level 2 char} 




015081 


smIdeographicUser = $0200; {user char} 




015082 






015083 


{ old names for above, for backward compatibility } 
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015084 


smFISClassLvll = $0000; 


{level 1 char} 




015085 


smFISClassLvl2 = $0100; 


{level 2 char} 




015086 


smFISClassUser = $0200; 


{user char) 




015087 








015088 


{ CharType Jamo classes for Korean systems 


) 




015089 


smJamoJaeum = $0000; 


{simple consonant char} 




015090 


smJamoBogJaeum = $0100; 


{complex consonant char} 




015091 


smJamoMoeum ^ $02 00; 


{simple vowel char} 




015092 


smJamoBogMoeum = $0300; 


{complex vowel char} 




015093 








015094 


{ CharType glyph orientation for two-byte 


systems } 




015095 


smCharHorizontal = $0000; 


{ horizontal character form, or for both } 




015096 


smCharVerticai = $1000; 


{ vertical character form } 




015097 








015098 


{ CharType directions } 






015099 


smCharLeft = $0000; 






015100 


smCharRight = $2000; 






015101 








015102 


{ CharType case modifers } 






015103 


smCharLower = $0000; 






015104 


smCharUpper = $4000; 






015105 








015106 


{ CharType character size modifiers (1 or 


multiple bytes) . } 




015107 


smCharlbyte = $0000; 






015108 


smChar2byte = $8000; 






015109 








015110 


{ Char2Pixel directions } 






015111 


smLeftCaret = 0; 


{Place caret for left block} 




015112 


smRightCaret = -1; 


{Place caret for right block} 




015113 


smHilite = 1; 


{Direction is TESysJust} 




015114 








015115 


{ Transliterate target types for Roman ) 






015116 


smTransAscii = 0; 


{convert to ASCII} 




015117 


smTransNative = 1; 


{convert to font script} 




015118 


smTransCase = $FE; 


{convert case for all text} 




015119 


smTransSystem = $FF; 


{convert to system script} 




015120 








015121 


{ Transliterate target types for two-byte 


scripts } 




015122 


smTransAsciil ^ 2; 


{1-byte Roman} 




015123 


smTransAscii2 ^ 3; 


{2-byte Roman} 




015124 


smTransKanal = 4; 


{1-byte Japanese Katakana} 




015125 


smTransKana2 = 5; 


{2-byte Japanese Katakana} 




015126 


smTransGana2 ^ 7; 


{2-byte Japanese Hiragana (no 1-byte Hiragana) } 




015127 


smTransHangul2 = 8; 


{2-byte Korean Hangul } 




015128 


smTransJamo2 = 9; 


{2-byte Korean Jamo} 




015129 


smTransBopomof o2 = 10; 


{2-byte Chinese Bopomofo} 




015130 








015131 


{ Transliterate target modifiers } 






015132 


smTransLower = $4000; 


{target becomes lowercase} 




015133 


smTransUpper = $8000; 


{target becomes uppercase} 




015134 








015135 


{ Transliterate source mask - general } 






015136 


smMaskAll = $FFFFFFFF; 


{Convert all text} 




015137 








015138 


{ Transliterate source masks } 






015139 


smMaskAscii = $00000001; 


{ 2 ^smTransAscii } 
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015140 


smMaskNative = $00000002; 




{ 2^smTransNative } 




015141 










015142 


{ Transliterate source masks for two 


-byte 


scripts } 




015143 


smMaskAsclil = $00000004; 




{2''smTransAsciil ) 




015144 


smMaskAscli2 = $00000008; 




{2^smTransAscii2) 




015145 


smMaskKanal = $00000010; 




{ 2^smTransKanal } 




015146 


smMaskKana2 = $00000020; 




{2''smTransKana2 ) 




015147 


smMaskGana2 = $00000080; 




{2''smTransGana2) 




015148 


smMaskHangul2 = $00000100; 




{ 2^smTransHangul2 } 




015149 


smMaskJamo2 = $00000200; 




{2''smTransJamo2 ) 




015150 


smMaskBopomofo2 = $00000400; 




{ 2^smTransBoporaof o2 } 




015151 










015152 


{ Result values from GetEnvirons, Se 


tEnvirons, GetScript and SetScript calls. } 




015153 


smNotlnstalled = 0; 




{routine not available in script} 




015154 


smBadVerb = -1; 




{Bad verb passed to a routine} 




015155 


smBadScript ^ -2; 




{Bad script code passed to a routine} 




015156 










015157 


{ Values for script redraw flag. } 








015158 


smRedrawChar ^ 0; 




{Redraw character only} 




015159 


smRedrawWord ^ 1; 




{Redraw entire word (2-byte systems)} 




015160 


smRedrawLine ^ -1; 




{Redraw entire line (bidirectional systems)} 




015161 










015162 


{ GetEnvirons and SetEnvirons verbs 


) 






015163 


smVersion ^ 0; 




{Script Manager version number} 




015164 


smMunged ^ 2; 




{Globals change count} 




015165 


smEnabled = 4; 




{Count of enabled scripts, incl Roman} 




015166 


smBidirect = 6; 




{At least one bidirectional script} 




015167 


smFontForce ^ 8; 




{Force font flag} 




015168 


smIntlForce = 10; 




{Force intl flag} 




015169 


smForced = 12; 




{Script was forced to system script} 




015170 


smDefault = 14; 




{Script was defaulted to Roman script} 




015171 


smPrint ^ 16; 




{Printer action routine} 




015172 


smSysScript ^ 18; 




{System script} 




015173 


smLastScript = 20; 




{Last keyboard script} 




015174 


smKeyScript = 22; 




{Keyboard script} 




015175 


smSysRef = 24; 




{System folder refNum} 




015176 


smKeyCache = 2 6; 




{obsolete} 




015177 


smKeySwap = 28; 




{Swapping table handle} 




015178 


smGenFlags = 30; 




{General flags long} 




015179 


smOverride = 32; 




{Script override flags} 




015180 


smCharPortion = 34; 




{Ch vs SpExtra proportion} 




015181 










015182 


{ New for System 7.0: ) 








015183 


smDoubleByte ^ 36; 




{Flag for double-byte script installed} 




015184 


smKCHRCache = 38; 




{Returns pointer to KCHR cache} 




015185 


smRegionCode = 40; 




{Returns current region code (verXxx) } 




015186 










015187 


{ GetScript and SetScript verbs. 








015188 


Note: Verbs private to script systems are 


negative, while 




015189 


those general across script systems 


are non-negative. } 




015190 


smScript Version ^ 0; 




{Script software version} 




015191 


smScriptMunged = 2; 




{Script entry changed count} 




015192 


smScriptEnabled ^ 4; 




{Script enabled flag} 




015193 


smScriptRight = 6; 




{Right to left flag} 




015194 


smScript Just ^ 8; 




{Justification flag} 




015195 


smScriptRedraw = 10; 




{Word redraw flag} 
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015196 


smScriptSysFond ^ 12; 


{Preferred system font} 




015197 


smScriptAppFond ^ 14; 


{Preferred Application font} 




015198 


smScriptBundle = 16; 


{Beginning of itlb verbs} 




015199 


smScriptNuraber = 16; 


{Script itlO id} 




015200 


smScriptDate = 18; 


{Script itll id} 




015201 


smScriptSort = 20; 


{Script itl2 id} 




015202 


smScriptFlags = 22; 


{flags word} 




015203 


smScriptToken = 24; 


{Script itl4 id} 




015204 


smScriptEncoding = 26; 


{id of optional itl5, if present} 




015205 


smScriptLang ^ 28; 


{Current language for script} 




015206 


smScriptNuraDate ^ 30; 


{Script Number/Date formats.} 




015207 


smScriptKeys = 32; 


{Script KCHR id} 




015208 


smScriptlcon = 34; 


{ID # of SICN or kcs#/kcs4/kcs8 suite} 




015209 


smScriptPrint ^ 36; 


{Script printer action routine} 




015210 


smScriptTrap = 38; 


{Trap entry pointer} 




015211 


smScriptCreator = 40; 


{Script file creator} 




015212 


smScriptFile = 42; 


{Script file name} 




015213 


smScriptNarae ^ 44; 


{Script name} 




015214 








015215 


{ There is a hole here for old Kanji 


private verbs 46-75 




015216 








015217 


New for System 7.0: } 






015218 


smScriptMonoFondSize ^ 78; 


{default monospace FOND (hi) & size (lo) } 




015219 


smScriptPrefFondSize = 80; 


{preferred FOND (hi) s size (lo) } 




015220 


smScrlptSmallFondSize = 82; 


{default small FOND (hi) & size (lo) } 




015221 


smScrlptSysFondSlze = 84; 


{default system FOND (hi) s size (lo) } 




015222 


smScriptAppFondSize ^ 86; 


{default app FOND (hi) & size (lo) } 




015223 


smScriptHelpFondSlze = 88; 


{default Help Mgr FOND (hi) s size (lo) } 




015224 


smScriptValidStyles = 90; 


{mask of valid styles for script} 




015225 


smScriptAliasStyle = 92; 


{style (set) to use for aliases} 




015226 








015227 


{ Negative verbs for KeyScript } 






015228 


smKeyNextScript ^ -1; 


{ Switch to next available script } 




015229 


smKeySysScript = -2; 


{ Switch to the system script } 




015230 


smKeySwapScript ^ -3; 


{ Switch to previously-used script } 




015231 








015232 


{ New for System 7.0: ) 






015233 


smKeyNextKybd = -4; 


{ Switch to next keyboard in current keyscript } 




015234 


smKeySwapKybd ^ -5; 


{ Switch to previously-used keyboard in current keyscript } 




015235 








015236 


smKeyDisableKybds = -6; 


{ Disable keyboards not in system or Roman script } 




015237 


smKeyEnableKybds = -7; 


{ Re-enable keyboards for all enabled scripts } 




015238 


smKeyTogglelnline ^ -8; 


{ Toggle inline input for current keyscript } 




015239 


smKeyToggleDirection ^ -9; 


{ Toggle default line direction (TESysJust) } 




015240 


smKeyNextlnputMethod = -10; 


{ Switch to next input method in current keyscript } 




015241 


smKeySwapInputMethod = -11; 


{ Switch to last-used input method in current keyscript } 




015242 








015243 


smKeyDisableKybdSwitch = -12; 


{ Disable switching from the current keyboard } 




015244 








015245 








015246 


{ Bits in the smScriptFlags word 






015247 


(bits above 7 are non-static) } 






015248 


smsflntellCP = 0; 


{Script has intelligent cut & paste} 




015249 


smsfSingByte = 1; 


{Script has only single bytes} 




015250 


smsfNatCase = 2; 


{Native chars have upper & lower case} 




015251 


smsf Context ^ 3; 


{Script is contextual} 
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015252 


smsf NoForceFont ^ 4; {Script will not force characters} 




015253 


smsfBODigits = 5; {Script has alternate digits at B0-B9} 




015254 


smsf Autolnit ^ 6; {Auto initialize the script) 




015255 


smsfForms ^ 13; {Uses contextual forms for letters} 




015256 


smsf Ligatures ^ 14; {Uses contextual ligatures} 




015257 


smsfReverse ^ 15; {Reverses native text, right-left} 




015258 






015259 


{ Bits in the smGenFlags long. 




015260 


First (high-order) byte is set from itlc flags byte. } 




015261 


smfshowlcon ^ 31; {Show icon even if only one script) 




015262 


smfDualCaret ^ 30; {Use dual caret for mixed direction text) 




015263 


smfNameTagEnab = 29; {Reserved for internal use) 




015264 






015265 


{ Roman script constants 




015266 






015267 


The following are here for backward compatibility, but should not be used. 




015268 


This information should be obtained using GetScript . } 




015269 


roraanSysFond ^ $3FFF; {system font id number) 




015270 


romanAppFond ^ 3; {application font id number) 




015271 


roraanFlags = S0007; { roman settings) 




015272 






015273 


{ Script Manager font equates. ) 




015274 


smFondStart = $4000; {start from 16K) 




015275 


smFondEnd = 5C000; {past end of range at 48K} 




015276 






015277 


{ Miscellaneous font equates . } 




015278 


smUprHalfCharSet = $80; {first char code in top half of std char set) 




015279 






015280 


{ Character Set Extensions ) 




015281 


diaeresisUprY = $D9; 




015282 


fraction = $DA; 




015283 


intlCurrency = $DB; 




015284 


leftSingGuillemet = $DC; 




015285 


rightSingGuillemet = $DD; 




015286 


fiLigature = $DE; 




015287 


flLigature = $DF; 




015288 


dblDagger = $E0; 




015289 


centeredDot = $E1; 




015290 


baseSingQuote = $E2; 




015291 


baseDblQuote = $E3; 




015292 


perThousand = $E4; 




015293 


circumflexUprA = $E5; 




015294 


circumf lexUprE = $E6; 




015295 


acuteUprA = $E7; 




015296 


diaeresisUprE = $E8; 




015297 


graveUprE = $E9; 




015298 


acuteUprI = $EA; 




015299 


circumflexUprI = $EB; 




015300 


diaeresisUprI = $EC; 




015301 


graveUprI = $ED; 




015302 


acuteUprO = $EE; 




015303 


circumf lexUprO = $EF; 




015304 


appleLogo = $F0; 




015305 


graveUprO = $F1; 




015306 


acuteUprU = $F2; 




015307 


circumf lexUprU = $F3; 
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015308 graveUprU = $F4; 

015309 dotlessLwrl = $F5; 

015310 circumflex = $F6; 

015311 tilde = $F7; 

015312 macron = $F8; 

015313 breveMark = $F9; 

015314 overDot = $FA; 

015315 ringMark = $FB; 

015316 cedilla = $FC; 

015317 doubleAcute = $FD; 

015318 ogonek = $FE; 

015319 hachek = $FF; 
015320 

015321 { String2Date status values 

015322 fatalDateTime = 58000; 

015323 longDateFound = 1; 

015324 leftOverChars = 2; 

015325 sepNotlntlSep = 4; 

015326 fieldOrderNotlntl = 8; 

015327 extraneousStrings ^ 16; 

015328 tooManySeps = 32; 

015329 sepNotConsistent = 64; 

015330 tokenErr = $8100; 

015331 cantReadUtilities = $8200; 

015332 dateTimeNotFound = $8400; 

015333 dateTimelnvalid = $8800; 
015334 

015335 { TokenType values ) 

015336 tokenlntl = 4; 

015337 tokenEmpty = -1; 

015338 tokenUnknown = 0; 

015339 tokenWhite = 1; 

015340 tokenLeftLit = 2; 

015341 tokenRightLit = 3; 

015342 tokenAlpha = 4; 

015343 tokenNumeric ^ 5; 

015344 tokenNewLine = 6; 

015345 tokenLeftComment = 7; 

015346 tokenRightComment = 8; 

015347 tokenLiteral = 9; 

015348 tokenEscape = 10; 

015349 tokenAltNum = 11; 

015350 tokenRealNum = 12; 

015351 tokenAltReal = 13; 

015352 tokenReservel = 14; 

015353 tokenReserve2 = 15; 

015354 tokenLeftParen = 16; 

015355 tokenRightParen = 17; 

015356 tokenLeftBracket = 18; 

015357 tokenRightBracket = 19; 

015358 tokenLeftCurly = 20; 

015359 tokenRightCurly = 21; 

015360 tokenLeftEnclose = 22; 

015361 tokenRightEnclose = 23; 

015362 tokenPlus = 24; 

015363 tokenMinus = 25; 



{String2Date and String2Time mask to a fatal error} 
{String2Date mask to long date found) 

{String2Date & Time mask to warn of left over characters} 
{String2Date & Time mask to warn of non-standard separators} 
{String2Date & Time mask to warn of non-standard field order} 
{String2Date & Time mask to warn of unparsable strings in text} 
{String2Date & Time mask to warn of too many separators} 
{String2Date & Time mask to warn of inconsistent separators} 
{String2Date & Time mask for 'tokenizer err encountered'} 



the itl resource number of the tokenizer} 

used internally as an empty flag} 

chars that do not match a defined token type} 

white space} 

literal begin} 

literal end} 

alphabetic } 

numeric } 

new line} 

open comment } 

close comment} 

literal} 

character escape (e.g. '\' in "\n", "\t") } 

alternate number (e.g. $B0-B9 in Arabic, Hebrew) } 

real number) 

alternate real number} 

reserved} 

reserved} 

open parenthesis} 

close parenthesis) 

open square bracket ) 

close square bracket) 

open curly bracket } 

close curly bracket) 

open guillemet) 

close guillemet) 
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015364 
015365 
015366 
015367 
015368 
015369 
015370 
015371 
015372 
015373 
015374 
015375 
015376 
015377 
015378 
015379 
015380 
015381 
015382 
015383 
015384 
015385 
015386 
015387 
015388 
015389 
015390 
015391 
015392 
015393 
015394 
015395 
015396 
015397 
015398 
015399 
015400 
015401 
015402 
015403 
015404 
015405 
015406 
015407 
015408 
015409 
015410 
015411 
015412 
015413 
015414 
015415 
015416 
015417 
015418 
015419 



tokenAsterisk - 26; 
tokenDivide ^ 27; 
tokenPlusMinus = 28; 
tokenSlash = 29; 
tokenBackSlash — 30; 
tokenLess - 31; 
tokenGreat — 32; 
tokenEqual — 33; 
tokenLessEqual2 — 34; 
tokenLessEquall ^ 35; 
tokenGreatEqual2 ^ 36; 
tokenGreatEquall ^ 37; 
token2Equal = 38; 
tokenColonEqual ^ 39; 
tokenNotEqual = 40; 
tokenLessGreat = 41; 
tokenExclaraEqual ^ 42; 
tokenExclara ^ 43; 
tokenTilde = 44; 
tokenComma — 45; 
tokenPeriod — 46; 
tokenLeft2Quote = 47; 
tokenRight2Quote = 48; 
tokenLeftlQuote = 49; 
tokenRightlQuote = 50; 
token2Quote ^ 51; 
tokenlQuote = 52; 
tokenSemicolon — 53; 
tokenPercent - 54; 
tokenCaret = 55; 
tokenUnderline — 56; 
tokenAmpersand — 57; 
tokenAtSign = 58; 
tokenBar = 59; 
tokenQuestion = 60; 
tokenPi ^ 61; 
tokenRoot ^ 62; 
tokenSigma = 63; 
tokenlntegral - 64; 
tokenMicro = 65; 
tokenCapPi = 66; 
tokeninf inity ^ 67; 
tokenColon = 68; 
tokenHash ^ 69; 
tokenDollar = 70; 
tokenNoBreakSpace ^ 71; 
tokenFraction ^ 72; 
tokenint ICurrency - 73; 
tokenLef tSingGuillemet = 74; 
tokenRightSingGuillemet ^ 75; 
tokenPerThousand ^ 76; 
tokenEllipsis ^ 77; 
tokenCenterDot = 78; 
tokenNil = 127; 
delimPad = -2; 



{ times /multiply } 

{plus or minus symbol} 



{less than symbol} 
{greater than symbol) 

{less than or equal, 2 characters (e.g. 

{less than or equal, 1 character} 

{greater than or equal, 2 characters {e, 

{greater than or equal, 1 character} 

{double equal (e.g. ==) } 

{colon equal} 

{not equal, 1 character} 

{less/greater, Pascal not 

{exclamation equal, C not 

{exclamation point} 

{centered tilde} 



{open double quote} 
{close double quote} 
{open single quote} 
{close single quote} 
{double quote} 
{single quote} 



<=) } 



g. >=) } 



equal (e.g. 
equal (e.g. 



<>) } 

!=) } 



{vertical bar} 

{lower-case pi} 
{square root symbol} 
{capital sigma} 
{integral sign} 

{capital pi} 

{e.g. #} 
{non-breaking space} 
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015420 
015421 
015422 
015423 
015424 
015425 
015426 
015427 
015428 
015429 
015430 
015431 
015432 
015433 
015434 
015435 
015436 
015437 
015438 
015439 
015440 
015441 
015442 
015443 
015444 
015445 
015446 
015447 
015448 
015449 
015450 
015451 
015452 
015453 
015454 
015455 
015456 
015457 
015458 
015459 
015460 
015461 
015462 
015463 
015464 
015465 
015466 
015467 
015468 
015469 
015470 
015471 
015472 
015473 
015474 
015475 



{ obsolete, misspelled token names kept for backward compatibility } 
tokenTilda = 44; 
tokenCarat — 55; 



{ the NumberParts indices } 
tokLeftQuote = 1; 
tokRight Quote = 2; 
tokLeadPlacer = 3; 
tokLeader = 4; 
tokNonLeader ^ 5; 
tokZeroLead ^ 6; 
tokPercent = 7; 
tokPlusSign = 8; 
tokMinusSign = 9; 
tokThousands ^ 10; 
tokSeparator = 12; 
tokEscape - 13; 
tokDecPoint = 14; 
tokEPlus = 15; 
tokEMinus = 16; 
tokMaxSymbols = 31; 



curNumberPartsVersion - 
fVNumber = 0; 

{ Date equates ) 
smallDateBit = 31; 
togCharl2HourBit = 30; 
togCharZCycleBit = 29; 
togDeltal2HourBit = 28; 
genCdevRangeBit ^ 27; 
validDateFields = -1; 
maxDateField = 10; 

eraMask = $000 
yearMask = $00 
monthMask = $0 
dayMask = $000 
hourMask = $00 
minuteMask = $ 
secondMask = $ 
dayOfWeekMask 
dayOfYearMask 
weekOf YearMask 
pmMask = $0400; 
dateStdMask = $007F; 

{ Toggle results } 
toggleUndef ined = 0; 
toggleOK = 1; 
toggleBadField = 2; 
toggleBadDelta = 3; 
toggleBadChar ^ 4; 
toggleUnknown - 5; 
toggleBadNum ^ 6; 
togqleOutOfRanqe ^ 7; 



1; 


02; 


004; 


8; 


10; 


0020; 


0040; 


= $0080; 


= $0100; 


= $0200 



[11 is a reserved field) 



{ current version of NumberParts record} 
{ first version of NumFormat String } 



{ Restrict valid date/time to range of Time global } 

{If toggling hour by char, accept hours 1..12 only} 

{Modifier for togCharl2HourBit : accept hours 0..11 only} 

{ If toggling hour up/down, restrict to 12-hour range (am/pm) } 

{Restrict date/time to range used by genl CDEV} 



{default for ValidDate flags and ToggleDate TogglePB . togFlags } 



{synonym for toggleErrS} 
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015476 
015477 
015478 
015479 
015480 
015481 
015482 
015483 
015484 
015485 
015486 
015487 
015488 
015489 
015490 
015491 
015492 
015493 
015494 
015495 
015496 
015497 
015498 
015499 
015500 
015501 
015502 
015503 
015504 
015505 
015506 
015507 
015508 
015509 
015510 
015511 
015512 
015513 
015514 
015515 
015516 
015517 
015518 
015519 
015520 
015521 
015522 
015523 
015524 
015525 
015526 
015527 
015528 
015529 
015530 
015531 



toggleErr3 — 7 
toggleErr4 = 8 
toggleErrS = 9 



{ New constants for System 7.0: 

Constants for truncWhere argument in TruncString and TruncText } 
smTruncEnd ^ 0; { Truncate at end } 

smTruncMlddle = $4000; { Truncate in middle } 



{ Constants for TruncString and TruncText results } 



smNotTruncated ^ 0; 
smTruncated ^ 1; 
smTruncErr — -1; 



{ No truncation was necessary } 
{ Truncation performed } 
{ General error } 



{Constants for styleRunPosition argument in NPortionText , NDrawJust, 

NMeasureJust, NChar2Pixel, and NPixel2Char . ) 
smOnlyStyleRun = 0; 
smLef tStyleRun ^ 1; 
smRightStyleRun = 2; 
smMiddleStyleRun ^ 3; 

is neither the leftmost nor the rightmost. } 



{ This is the only style run on the line } 

{ This is leftmost of multiple style runs on the line } 

{ This is rightmost of multiple style runs on the line } 

{ There are multiple style runs on the line and this 



TYPE 

TokenResults - (tokenOK, tokenOverf low, stringOverf low, badDelim, badEnding, 
crash) ; 

LongDateField ^ (eraField, yearField, monthField, dayField, hourField, minuteField, 
secondField, dayOfWeekField, dayOf YearField, weekOf YearField, pmField, reslField, 
res2Field, res3Field) ; 

StyledLineBreakCode ^ (smBreakWord, smBreakChar, smBreakOverf low) ; 

FormatClass ^ (f Positive, fNegative, f Zero) ; 

FormatResultType ^ (fFormatOK, fBestGuess, fOutOfSynch, f SpuriousChars , fMissingDelimiter, 
fExtraDecimal, f MissingLiteral, fExtraExp, fFormatOverf low, f FormStrlsNAN, 
fBadPartsTable, f ExtraPercent, fExtraSeparator, f EmptyFormatString) ; 



CharByteTable = PACKED ARRAY [0..255] OF SignedByte; 
ToggleResults = INTEGER; 

BreakTablePtr = ^BreakTable; 
BreakTable = RECORD 

charTypes: ARRAY [0..255] OF SignedByte; 

tripleLength: INTEGER; 

triples: ARRAY [0..0] OF INTEGER; 

END; 

{ New NBreakTable for System 7.0: } 
NBreakTablePtr = -^NBreakTable; 
NBreakTable = RECORD 

flagsl: SignedByte; 

flags2: SignedByte; 

version: INTEGER; 
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015532 


classTableOff : INTEGER; 












015533 


auxCTableOff : INTEGER; 












015534 


backwdTableOff : INTEGER; 












015535 


forwdTableOff : INTEGER; 












015536 


doBackup: INTEGER; 












015537 


reserved: INTEGER; 












015538 


charTypes: ARRAY [0..255] 


OF 


SignedByte; 








015539 


tables: ARRAY [0..0] OF INTEGER; 








015540 


END; 












015541 














015542 


OffPair = RECORD 












015543 


off First: INTEGER; 












015544 


offSecond: INTEGER; 












015545 


END; 












015546 














015547 














015548 


OffsetTable = ARRAY [0..2] 


OF 


OffPair; 








015549 














015550 


ItlcRecord = RECORD 












015551 


itlcSystem: INTEGER; 








{default system script} 




015552 


itlcReserved: INTEGER; 








{reserved} 




015553 


itlcFontForce : SignedByte 








{default font force flag} 




015554 


itlcIntlForce : SignedByte 








{default intl force flag} 




015555 


itlcOldKybd: SignedByte; 








{MacPlus intl keybd flag} 




015556 


itlcFlags: SignedByte; 








{general flags) 




015557 


itlcIconOffset: INTEGER; 








{keyboard icon offset; not used in 7.0} 




015558 


itlcIconSide : SignedByte; 








{keyboard icon side; not used in 7.0} 




015559 


itlcIconRsvd: SignedByte; 








{rsvd for other icon info} 




015560 


itlcRegionCode: INTEGER; 








{preferred verXxx code} 




015561 


itlcReserved3: ARRAY [0.. 


33] 


OF SignedByt 


e; 


{for future use} 




015562 


END; 












015563 














015564 


ItlbRecord = RECORD 












015565 


itlbNumber: INTEGER; 








{itlO id number} 




015566 


itlbDate: INTEGER; 








{itll id number} 




015567 


itlbSort: INTEGER; 








{itl2 id number} 




015568 


itlbFlags: INTEGER; 








{Script flags} 




015569 


itlbToken: INTEGER; 








{itl4 id number} 




015570 


itlbEncoding: INTEGER; 








{itl5 ID # (optional; char encoding) } 




015571 


itlbLang: INTEGER; 








{current language for script } 




015572 


itlbNumRep: SignedByte; 








{number representation code) 




015573 


itlbDateRep: SignedByte; 








{date representation code ) 




015574 


itlbKeys: INTEGER; 








{KCHR id number) 




015575 


itlblcon: INTEGER; 








{ID # of SIGN or kcs#/kcs4/kcs8 suite.) 




015576 


END; 












015577 














015578 


{ New ItlbExtRecord structure 


for System 7 


.0 } 






015579 


ItlbExtRecord = RECORD 












015580 


base: ItlbRecord; 








{un-extended ItlbRecord) 




015581 


itlbLocalSize: LONGINT; 








{size of script's local record) 




015582 


itlbMonoFond: INTEGER; 








{default monospace FOND ID) 




015583 


itlbMonoSize: INTEGER; 








{default monospace font size) 




015584 


itlbPrefFond: INTEGER; 








{preferred FOND ID) 




015585 


itlbPrefSize: INTEGER; 








{preferred font size) 




015586 


itlbSmallFond: INTEGER; 








{default small FOND ID) 




015587 


itlbSmallSize: INTEGER; 








{default small font size) 
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015588 


itlbSysFond: INTEGER 










{default system FOND ID) 




015589 


itlbSysSize: INTEGER 










{default system font size} 




015590 


itlbAppFond: INTEGER 










{default application FOND ID) 




015591 


itlbAppSize: INTEGER 










{default application font size) 




015592 


itlbHelpFond: INTEGER; 








{default Help Mgr FOND ID} 




015593 


itlbHelpSize: INTEGER; 








{default Help Mgr font size) 




015594 


itlbValidStyles : Style; 








{set of valid styles for script) 




015595 


itlbAliasStyle: Style; 








{style (set) to mark aliases) 




015596 


END; 












015597 














015598 


MachineLocation = RECORD 












015599 


latitude: Fract; 












015600 


longitude: Fract; 












015601 


CASE INTEGER OF 












015602 


0: 












015603 


(dlsDelta: SignedByte) ; 








{signed byte; daylight savings delta) 




015604 


1: 












015605 


(gmtDelta: LONGINT) ; 








{must mask - see documentation) 




015606 


END; 












015607 














015608 














015609 


String2DateStatus = INTEGER 


; 










015610 


TokenType = INTEGER; 












015611 


DelimType = ARRAY [0..1] OF 


TokenType; 






015612 


CommentType = ARRAY [0..3] 


OF 


Toke 


nType; 






015613 














015614 


TokenRecPtr = ''TokenRec; 












015615 


TokenRec = RECORD 












015616 


theToken: TokenType; 












015617 


position: Ptr; 








{pointer into original source} 




015618 


length: LONGINT; 








{length of text in original source) 




015619 


stringPosition : StringPtr; 








{Pascal/C string copy of identifier) 




015620 


END; 












015621 














015622 


TokenBlockPtr = ^TokenBlock 


; 










015623 


TokenBlock = RECORD 












015624 


source: Ptr; 








{pointer to stream of characters) 




015625 


sourceLength: LONGINT; 








{length of source stream) 




015626 


tokenList: Ptr; 








{pointer to array of tokens) 




015627 


tokenLength: LONGINT; 








{maximum length of TokenList) 




015628 


tokenCount: LONGINT; 








{number tokens generated by tokenizer} 




015629 


stringList : Ptr; 








{pointer to stream of identifiers} 




015630 


stringLength: LONGINT; 








{length of string list) 




015631 


stringCount: LONGINT; 








{number of bytes currently used) 




015632 


doString: BOOLEAN; 








{make strings & put into StringList) 




015633 


doAppend: BOOLEAN; 








{append to TokenList rather than replace) 




015634 


doAlphanumeric: BOOLEAN; 








{identifiers may include numeric) 




015635 


doNest: BOOLEAN; 








{do comments nest?) 




015636 


leftDelims: ARRAY [0..1] OF Token 


Type; 






015637 


rightDelims: ARRAY [0..1] 


OF 


TokenType; 






015638 


leftComment : ARRAY [0..3] 


OF 


TokenType; 






015639 


rightComment : ARRAY [0..3] 


OF Tok 


enType; 






015640 


escapeCode: TokenType; 








{escape symbol code) 




015641 


decimalCode : TokenType; 












015642 


itlResource: Handle; 








{handle to iti4 resource of current script} 




015643 


reserved: ARRAY [0.. 


7] OF 


LONGINT 




{must be zero ! } 
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015644 
015645 
015646 
015647 
015648 
015649 
015650 
015651 
015652 
015653 
015654 
015655 
015656 
015657 
015658 
015659 
015660 
015661 
015662 
015663 
015664 
015665 
015666 
015667 
015668 
015669 
015670 
015671 
015672 
015673 
015674 
015675 
015676 
015677 
015678 
015679 
015680 
015681 
015682 
015683 
015684 
015685 
015686 
015687 
015688 
015689 
015690 
015691 
015692 
015693 
015694 
015695 
015696 
015697 
015698 
015699 



END; 

UntokenTablePtr = ''UntokenTable; 
UntokenTableHandle = -^UntokenTablePtr; 
UntokenTable = RECORD 

len: INTEGER; 

lastToken: INTEGER; 

index: ARRAY [0..255] OF INTEGER; 

END; 

DateCachePtr = ^DateCacheRecord; 
DateCacheRecord = PACKED RECORD 

hidden: ARRAY [0..255] OF INTEGER; 

END; 



LongDateTime - comp; 

LongDateCvt = RECORD 
CASE INTEGER OF 
0: 
(c : Comp) ; 
1: 
(IHigh: LONGINT; 
ILow: LONGINT) ; 
END; 

LongDateRec = RECORD 
CASE INTEGER OF 

0: 
(era: INTEGER; 
year: INTEGER; 
month: INTEGER; 
day: INTEGER; 
hour: INTEGER; 
minute: INTEGER; 
second: INTEGER; 
dayOfWeek: INTEGER; 
dayOfYear: INTEGER; 
weekOfYear: INTEGER; 
pm: INTEGER; 
resl: INTEGER; 
res2: INTEGER; 
res3: INTEGER); 

1: 

ARRAY [0..13] OF INTEGER), 



{index table; last ^ lastToken} 



{only for temporary use) 



(list: 
2: 

(eraAlt: INTEGER; 
oldDate: DateTimeRec) ; 
END; 



DateDelta ^ SignedByte; 

TogglePB = RECORD 
togFlags: LONGINT; 



[Index by LongDateField! ' 



{caller normally sets low word to dateStdMask^$7F} 
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015700 


araChars : ResType; 


{from ' itlO ' , but uppercased} 




015701 


praChars : ResType; 


{from ' itlO ' , but uppercased} 




015702 


reserved: ARRAY [0..3] OF LONGINT; 








015703 


END; 








015704 










015705 










015706 


FormatOrder = ARRAY [0..0] OF INTEGER; 








015707 


FormatOrderPtr = -^FormatOrder; 








015708 


FormatStatus = INTEGER; 








015709 










015710 


WideChar = RECORD 








015711 


CASE BOOLEAN OF 








015712 


TRUE: 








015713 


(a: PACKED ARRAY [0..1] OF CHAR); 


{0 is the high order character} 




015714 


FALSE: 








015715 


(b: INTEGER); 








015716 


END; 








015717 










015718 


WideCharArr = RECORD 








015719 


size: INTEGER; 








015720 


data: PACKED ARRAY [0..9] OF WideChar; 








015721 


END; 








015722 










015723 


NumFormatString = PACKED RECORD 








015724 


f Length: Byte; 








015725 


fVersion: Byte; 








015726 


data: PACKED ARRAY [Q..253] OF SignedByte 


; {private data} 




015727 


END; 








015728 










015729 


Itl4Ptr = "Itl4Rec; 








015730 


Itl4Handle = •^Itl4Ptr; 








015731 


Itl4Rec = RECORD 








015732 


flags: INTEGER; 


{ reserved} 






015733 


resourceType: LONGINT; 


{ contains 


itl4' ) 




015734 


resourceNum: INTEGER; 


{ resource 


ED) 




015735 


version: INTEGER; 


{version number} 




015736 


resHeaderl: LONGINT; 


{ reserved} 






015737 


resHeader2: LONGINT; 


{ reserved} 






015738 


numTables: INTEGER; 


{number of 


tables, one-based} 




015739 


mapOffset: LONGINT; 


{offset to 


table that maps byte to to}:en} 




015740 


strOffset: LONGINT; 


{offset to 


routine that copies canonical string} 




015741 


fetchOffset: LONGINT; 


{offset to 


routine that gets next byte of character) 




015742 


unTokenOffset : LONGINT; 


{offset to 


table that maps tol^en to canonical string) 




015743 


defPartsOff set : LONGINT; 


{offset to 


default number parts table} 




015744 


resOffsete: LONGINT; 


{ reserved} 






015745 


resOffset7: LONGINT; 


{reserved} 






015746 


resOffsetS: LONGINT; 


{reserved) 






015747 


END; 








015748 










015749 


{ New NItl4Rec for System 7.0: ) 








015750 


NItl4Ptr = ^NItl4Rec; 








015751 


NItl4Handle = '■NItl4Ptr; 








015752 


NItl4ReC = RECORD 








015753 


flags: INTEGER; 


{ reserved} 






015754 


resourceType: LONGINT; 


{ contains 


itl4' } 




015755 


resourceNum: INTEGER; 


{ resource 


ED) 
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015756 
015757 
015758 
015759 
015760 
015761 
015762 
015763 
015764 
015765 
015766 
015767 
015768 
015769 
015770 
015771 
015772 
015773 
015774 
015775 
015776 
015777 
015778 
015779 
015780 
015781 
015782 
015783 
015784 
015785 
015786 
015787 
015788 
015789 
015790 
015791 
015792 
015793 
015794 
015795 
015796 
015797 
015798 
015799 
015800 
015801 
015802 
015803 
015804 
015805 
015806 
015807 
015808 
015809 
015810 
015811 



version: INTEGER; 
format: INTEGER; 
resHeader: INTEGER; 
resHeader2: LONGINT; 
numTables: INTEGER; 
mapOffset: LONGINT; 
strOffset: LONGINT; 
fetchOffset: LONGINT; 
unTokenOffset : LONGINT; 
defPartsOff set : LONGINT; 
whtSpListOf fset : LONGINT; 
resOffset7: LONGINT; 
resOffsetS: LONGINT; 



resLengthl : 
resLength2 : 
resLength3 : 



INTEGER; 
INTEGER; 
INTEGER; 



unTokenLength: INTEGER; 
defPartsLength: INTEGER; 
whtSpListLength: INTEGER; 
resLength7: INTEGER; 
resLengthS: INTEGER; 
END; 

NuraberPartsPtr ^ ^NumberPart s ; 
NumberParts = RECORD 

version: INTEGER; 

data: ARRAY [1..31] OF WideChar; 

pePlus : WideCharArr; 

peMinus : WideCharArr; 

peMinusPlus : WideCharArr; 

aitNumTabie: WideCharArr; 

reserved: PACKED ARRAY [0..19] OF CHAR; 

END; 

FVector = RECORD 
start: INTEGER; 
length: INTEGER; 
END; 



Tripleint = ARRAY [0..2] OF FVector; 

ScriptRunStatus = RECORD 
script: SignedByte; 
variant: SignedByte; 
END; 



{ New types for System 7.0: 

type for truncWhere parameter in new TruncString, TruncText } 
TruncCode = INTEGER; 

{ type for styleRunPosition parameter in NPixel2Char etc. } 
JustStyleCode = INTEGER; 



{version number} 

{ format code ) 

{ reserved} 

{ reserved} 

{number of tables, one-based} 

{offset to table that maps byte to token) 

{offset to routine that copies canonical string) 

{offset to routine that gets next byte of character) 

{offset to table that maps token to canonical string) 

{offset to default number parts table} 

{offset to white space code list) 

{ reserved} 

{ reserved} 

{ reserved} 

{ reserved} 

{ reserved} 

{length of untoken table) 

{length of default number parts table} 

{length of white space code list) 

{ reserved} 

{ reserved} 



{index by [tokLef tQuote . . tokMaxSymbols] ) 



{ index by [f Positive .. f Zero] } 



' N 
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INTEGER) : INTEGER; 



015812 FUNCTION FontScrlpt : INTEGER; 

015813 INLINE $2F3C, $82 00 , $0000, $A8B5; 

015814 FUNCTION IntlScript : INTEGER; 

015815 INLINE $2F3C, $82 00 , $0002 , $A8B5; 

015816 PROCEDURE KeyScript (code : INTEGER); 

015817 INLINE $2F3C, $8002 , $0004 , $A8B5; 

015818 FUNCTION Font2Script (fontNumber: 

015819 INLINE $2E3C, $8202, $0006, $A8B5; 

015820 FUNCTION GetEnvirons (verb: INTEGER): LONGINT; 

015821 INLINE $2E3C, $84 02 , $0008 , $A8B5; 

015822 FUNCTION SetEnvirons (verb : INTEGER; param : LONGINT): OSErr; 

015823 INLINE $2F3C, $8206, $000A, $A8B5; 

015824 FUNCTION GetScript (script : INTEGER; verb : INTEGER): LONGINT; 

015825 INLINE $2F3C, $8404, $000C, $A8B5; 

015826 FUNCTION SetScript (script : INTEGER; verb : INTEGER; param: LONGINT): OSErr; 

015827 INLINE $2E3C, $8208, $000E, $A8B5; 

015828 FUNCTION CharByte (textBuf : Ptr; textOf f set : INTEGER): INTEGER; 

015829 INLINE $2F3C, $8206, $0010, $A8B5; 

015830 FUNCTION CharType (textBuf : Ptr; textOf f set : INTEGER): INTEGER; 

015831 INLINE $2F3C, $82 06, $0012, $A8B5; 

015832 FUNCTION Pixel2Char (textBuf : Ptr;textLen: INTEGER; slop : INTEGER;pixelWidth : INTEGER; 

015833 VAR leadingEdge : BOOLEAN): INTEGER; 

015834 INLINE $2F3C, $820E, $0014 , $A8B5; 

015835 FUNCTION Char2Pixel (textBuf : Ptr;textLen: INTEGER; slop : INTEGER; of f set : INTEGER; 

015836 direction: INTEGER) : INTEGER; 

015837 INLINE $2E3C, $82 OC, $001 6, $A8B5; 

015838 FUNCTION Transliterate (srcHandle: Handle; dstHandle : Handle; target : INTEGER; 

015839 srcMask: LONGINT) : OSErr; 

015840 INLINE $2E3C, $820E, $0018, $A8B5; 

015841 PROCEDURE FindWord (textPtr : Ptr; textLength : INTEGER; of f set : INTEGER; leadingEdge : BOOLEAN; 

015842 breaks: BreakTablePtr; VAR offsets: Of f setTable) ; 

015843 INLINE $2E3C, $8012, $001A, $A8B5; 

015844 PROCEDURE HiliteText (textPtr : Ptr; textLength : INTEGER; firstOff set : INTEGER; 

015845 secondOf fset : INTEGER; VAR offsets: Of f setTable) ; 

015846 INLINE $2E3C, $800E, $001C, $A8B5; 

015847 PROCEDURE Drawjust (textPtr : Ptr; textLength : INTEGER; slop : INTEGER); 

015848 INLINE $2E3C, $8008, $001E, $A8B5; 

015849 PROCEDURE Measure Just (textPtr : Ptr; textLength : INTEGER; slop : INTEGER; charLocs : Ptr); 

015850 INLINE $2E3C, $8000, $0020, $A8B5; 

015851 FUNCTION ParseTable (VAR table: CharByteTable) : BOOLEAN; 

015852 INLINE $2E3C, $8204, $0022, $A8B5; 

015853 FUNCTION GetDefFontSize: INTEGER; 

015854 INLINE $3EB8, $0BA8, $6604, $3EBC, $000C; 

015855 FUNCTION GetSysFont: INTEGER; 

015856 INLINE $3EB8,$0BA6; 

015857 FUNCTION GetAppFont: INTEGER; 

015858 INLINE $3EB8,$0984; 

015859 FUNCTION GetMBarHeight : INTEGER; 

015860 INLINE $3EB8,$0BAA; 

015861 FUNCTION GetSysJust: INTEGER; 

015862 INLINE $3EB8,$0BAC; 

015863 PROCEDURE SetSys Just (newJust : INTEGER); 

015864 INLINE $31DF,$0BAC; 

015865 PROCEDURE ReadLocation (VAR loc: MachineLocation) ; 

015866 INLINE $205F, $2030, $000C, $00E4, $A051; 
.015867 PROCEDURE WriteLocation ( loc : MachineLocation); 
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015868 
015869 
015870 
015871 
015872 
015873 
015874 
015875 
015876 
015877 
015878 
015879 
015880 
015881 
015882 
015883 
015884 
015885 
015886 
015887 
015888 
015889 
015890 
015891 
015892 
015893 
015894 
015895 
015896 
015897 
015898 
015899 
015900 
015901 
015902 
015903 
015904 
015905 
015906 
015907 
015908 
015909 
015910 
015911 
015912 
015913 
015914 
015915 
015916 
015917 
015918 
015919 
015920 
015921 
015922 
015923 



INLINE $205F, $203C, 5000C, $00E4, $A052; 
PROCEDURE UprText (textPtr: Ptr;len: INTEGER) 

INLINE $301F, $205F, 5A054; 
PROCEDURE LwrText (textPtr: Ptr;len: INTEGER) 

INLINE $301F, $205F, $A056; 



{ New for 7.0 ) 

PROCEDURE LowerText (textPtr: Ptr;len: INTEGER); 

INLINE $301F, $205F, 5A056; 
PROCEDURE StripText (textPtr: Ptr;len: INTEGER); 

INLINE $301F, $205F, $A256; 
PROCEDURE UpperText (textPtr: Ptr;len: INTEGER); 

INLINE $301F, $205F, $A456; 
PROCEDURE StripUpperText (textPtr: Ptr;len: INTEGER); 

INLINE $301F, $205F, $A656; 

FUNCTION StyledLlneBreak (textPtr: Ptr;textLen: LONGINT; textStart : LONGINT; 

textEnd: LONGINT; flags : LONGINT; VAR textWidth: Fixed; VAR textOff set : LONGINT): StyledLineBreakCode; 

INLINE $2F3C, $821C, $FFFE, $A8B5; 
PROCEDURE GetFormatOrder (ordering: FormatOrderPtr ; f irstFormat : INTEGER; 

lastFormat : INTEGER; lineRight : BOOLEAN; rlDirProc : Ptr; dirParam: Ptr) ; 

INLINE $2F3C, $8012, 5FFFC, $A8B5; 
FUNCTION IntlTokenize (tokenParam: TokenBlockPtr) : TokenResults; 

INLINE $2F3C, $8204, $FFFA, $A8B5; 
FUNCTION InitDateCache (theCache: DateCachePtr) : OSErr; 

INLINE $2F3C, $8204, $FFF8, $A8B5; 
FUNCTION Strlng2Date (textPtr : Ptr;textLen: LONGINT; theCache : DateCachePtr; 

VAR lengthUsed: LONGINT;VAR dateTime: LongDateRec) : String2DateStatus; 

INLINE $2F3C, $8214, 5FFF6, $A8B5; 
FUNCTION String2Time (textPtr : Ptr;textLen: LONGINT; theCache : DateCachePtr; 

VAR lengthUsed: LONGINT;VAR dateTime: LongDateRec) : String2DateStatus; 

INLINE $2F3C, $8214, 5FFF4, $A8B5; 
PROCEDURE LongDate2Secs (IDate: LongDateRec; VAR ISecs : LongDateTime) ; 

INLINE $2F3C, $8008, $FFF2, $A8B5; 
PROCEDURE LongSecs2Date (VAR ISecs: LongDateTime; VAR IDate: LongDateRec); 

INLINE $2F3C, $8008, $FFFO, $A8B5; 
FUNCTION ToggleDate (VAR ISecs: LongDateTime; field: LongDateField; delta : DateDelta; 

ch: INTEGER; params : TogglePB) : ToggleResults; 

INLINE $2F3C, $820E, 5FFEE, $A8B5; 
FUNCTION Str2Format (inString: Str255 ; partsTable : NumberPart s ; VAR outString: NumFormatString) : FormatStatus; 

INLINE $2F3C, $8200, $FFEC, $A8B5; 
FUNCTION Format2Str (myCanonical : NumFormatString; partsTable : NumberParts; 

VAR outString: Str255;VAR positions: Tripleint): FormatStatus; 

INLINE $2F3C, $8210, $FFEA, $A8B5; 
FUNCTION FormatX2Str (x: ExtendedSO; myCanonical : NumFormatString;partsTable : NumberParts; 

VAR outString: Str255) : FormatStatus; 

INLINE $2F3C, $8210, $FFE8, $A8B5; 
FUNCTION FormatStr2X (source : St r255; myCanonical : NumFormatString; partsTable : NumberParts; 

VAR x: ExtendedSO): FormatStatus; 

INLINE $2F3C, $8210, $FFE6, $A8B5; 
FUNCTION PortionText (textPtr : Ptr;textLen: LONGINT): Fixed; 

INLINE $2F3C, $8408, $0024, $A8B5; 
FUNCTION FindScriptRun (textPtr: Ptr;textLen: LONGINT;VAR lenUsed: LONGINT): ScriptRunStatus; 

INLINE $2F3C, $8200, $0026, $A8B5; 
FUNCTION VisibleLength (textPtr: Ptr;textLen: LONGINT): LONGINT; 
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015924 
015925 
015926 
015927 
015928 
015929 
015930 
015931 
015932 
015933 
015934 
015935 
015936 
015937 
015938 
015939 
015940 
015941 
015942 
015943 
015944 
015945 
015946 
015947 
015948 
015949 
015950 
015951 
015952 
015953 
015954 
015955 
015956 
015957 
015958 
015959 
015960 
015961 
015962 
015963 
015964 
015965 



INLINE $2F3C, $8408, $0028, $A8B5; 
FUNCTION ValldDate (vDate: LongDateRec; flags : 
INLINE $2F3C, $820C, $FFE4, $A8B5; 



LONGINT;VAR newSecs : LongDateTime) : INTEGER; 



{ New for 7.0 ) 

PROCEDURE NFlndWord(textPtr: Ptr ; textLength : INTEGER; of f set : INTEGER; leadingEdge : BOOLEAN; 

nbreaks : NBreakTablePtr; VAR offsets: Of fsetTable) ; 

INLINE $2F3C, $8012, $FFE2, $A8B5; 
FUNCTION TruncString (width: INTEGER;VAR theString: Str255 ; truncWhere : TruncCode) : INTEGER; 

INLINE $2F3C, $8208, $FFEO, $A8B5; 
FUNCTION TruncText (width: INTEGER; textPtr : Ptr;VAR length: INTEGER; truncWhere : TruncCode): INTEGER; 

INLINE $2F3C, $820C, $FFDE, $A8B5; 
FUNCTION ReplaceText (baseText : Handle; substitutionText : Handle;key: Strl5): INTEGER; 

INLINE $2F3C, $820C, $FFDC, $A8B5; 
FUNCTION NPixel2Char (textBuf: Ptr;textLen: LONGINT; slop : Fixed; pixelWidth: Fixed; 

VAR leadingEdge: BOOLEAN;VAR widthRemaining : Fixed; styleRunPositicn: JustStyleCode; 

numer: Point ;denom: Point): INTEGER; 

INLINE $2F3C, $8222, $002E, $A8B5; 
FUNCTION NChar2Pixel (textBuf : Ptr;textLen: LONGINT; slop : Fixed; of f set : LONGINT; 

direction: INTEGER; styleRunPosition : JustStyleCode; numer : Point ; denom: Point): INTEGER; 

INLINE $2F3C, $821C, $0030, $A8B5; 
PROCEDURE NDrawJust (textPtr: Ptr ; textLength : LONGINT; slop : Fixed; StyleRunPosition : JustStyleCode; 

numer: Point; denom: Point); 

INLINE $2F3C, $8016, $0032, $A8B5; 
PROCEDURE NMeasure Just (textPtr : Ptr; textLength : LONGINT; slop : Fixed; charLocs : Ptr; 

StyleRunPosition: JustStyleCode; numer : Point;denom: Point); 

INLINE $2F3C, $801A, $0034, $A8B5; 
FUNCTION NPortionText (textPtr: Ptr;textLen: LONGINT; styleRunPosition: JustStyleCode; 

numer: Point; denom: Point) : Fixed; 

INLINE $2F3C, $8412, $0036, $A8B5; 



{$ENDC) { UsingScript ) 



{$IFC NOT Usinglncludes) 
END. 
{$ENDC} 



### END OF FILE Script. p 
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015966 






015967 


##################################################################### 




015968 


### FILE: SCSI.p 




015969 


##################################################################### 




015970 






015971 


{ 




015972 


Created: Sunday, January 6, 1991 at 11:14 PM 




015973 


SCSI.p 




015974 


Pascal Interface to the Macintosh Libraries 




015975 






015976 


Copyright Apple Computer, Inc. 1986-1990 




015977 


All rights reserved 




015978 


) 




015979 






015980 






015981 


{$IFC UNDEFINED Usinglncludes } 




015982 


{$SETC Usinglncludes := 0} 




015983 


{$ENDC} 




015984 






015985 


{$IFC NOT Usinglncludes} 




015986 


UNIT SCSI; 




015987 


INTERFACE 




015988 


{$ENDC) 




015989 






015990 


{$IFC UNDEFINED UsingSCSI} 




015991 


{$SETC UsingSCSI := 1} 




015992 






015993 


{$!+) 




015994 


{$SETC SCSIIncludes := Usinglncludes) 




015995 


{$SETC Usinglncludes := 1} 




015996 


{$IFC UNDEFINED UsingTypes) 




015997 


{$1 $$Shell (PInterfaces) Types. p) 




015998 


{$ENDC) 




015999 


{$SETC Usinglncludes := SCSIIncludes) 




016000 






016001 


CONST 




016002 


scinc ^ 1; 




016003 


scNoInc ^ 2; 




016004 


scAdd = 3; 




016005 


scMove = 4; 




016006 


scLoop = 5; 




016007 


scNop = 6; 




016008 


scStop = 7; 




016009 


scComp = 8; 




016010 


scCommErr = 2; {communications error, operation timeout) 




016011 


scArbNBErr = 3; {arbitration timeout waiting for not BSY) 




016012 


scBadParmsErr ^ 4; {bad parameter or TIB opcode) 




016013 


scPhaseErr = 5; {SCSI bus not in correct phase for attempted operation} 




016014 


scCompareErr = 6; {data compare error) 




016015 


scMgrBusyErr = 7; {SCSI Manager busy ) 




016016 


scSequenceErr ^ 8; {attempted operation is out of sequence) 




016017 


scBusTOErr = 9; {CPU bus timeout) 




016018 


scComplPhaseErr ^ 10; {SCSI bus wasn't in Status phase) 




016019 


sbSIGWord = $4552; 




016020 


pMapSIG = $504D; 




016021 
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016022 


TYPE 










016023 


BlockO = PACKED RECORD 










016024 


sbSig: INTEGER; 






{unique value for SCSI block 0) 




016025 


sbBlkSize: INTEGER; 






{block size of device} 




016026 


sbBlkCount: LONGINT; 






{number of blocks on device} 




016027 


sbDevType: INTEGER; 






{device type} 




016028 


sbDevId: INTEGER; 






{device id} 




016029 


sbData: LONGINT; 






{not used} 




016030 


sbDrvrCount: INTEGER; 






{driver descriptor count} 




016031 


ddBlock: LONGINT; 






{1st driver's starting block} 




016032 


ddSize: INTEGER; 






{size of 1st driver (512-byte blks)} 




016033 


ddType: INTEGER; 






{system type (1 for Mac+) } 




016034 


ddPad: ARRAY [0..242] OF 


INTEGER; 




{ARRAY[0. .242] OF INTEGER; not used] 




016035 


END; 










016036 












016037 


Partition = PACKED RECORD 










016038 


pmSig: INTEGER; 






{unique value for map entry blk} 




016039 


pmSigPad: INTEGER; 






{currently unused] 




016040 


pmMapBlkCnt: LONGINT; 






{# of blks in partition map] 




016041 


pmPyPartStart : LONGINT; 






{pliysical start blk of partition} 




016042 


pmPartBlkCnt : LONGINT; 






{# of blks in this partition} 




016043 


pmPartName : PACKED ARRAY 


[0. .31] OF 


CHAR; 


{ASCII partition name] 




016044 


pmParType: PACKED ARRAY 


Q..31] OF 


:har; 


{ASCII partition type] 




016045 


pmLgDataStart : LONGINT; 






{log. # of partition's 1st data blk} 




016046 


pmDataCnt: LONGINT; 






{# of blks in partition's data area} 




016047 


pmPartStatus : LONGINT; 






{bit field for partition status] 




016048 


pmLgBootStart : LONGINT; 






{log. blk of partition's boot code] 




016049 


pmBootSize: LONGINT; 






{number of bytes in boot code] 




016050 


pmBootAddr: LONGINT; 






{memory load address of boot code] 




016051 


pmBootAddr2 : LONGINT; 






{currently unused] 




016052 


pmBootEntry : LONGINT; 






{entry point of boot code] 




016053 


pmBootEntry2 : LONGINT; 






{currently unused} 




016054 


pmBootCksum: LONGINT; 






{cliecksum of boot code] 




016055 


pmProcessor: PACKED ARRAY [0..15] OF CHAR 


{ASCII for ttie processor type] 




016056 


pmPad: ARRAY [0..187] OF 


INTEGER; 




{512 bytes long currently unused} 




016057 


END; 










016058 












016059 


SCSIInstr = RECORD 










016060 


scOpcode: INTEGER; 










016061 


scParaml: LONGINT; 










016062 


scParam2: LONGINT; 










016063 


END; 










016064 












016065 












016066 


FUNCTION SCSIReset: OSErr; 










016067 


INLINE $4267,$A815; 










016068 


FUNCTION SCSIGet: OSErr; 










016069 


INLINE $3F3C, $0001, $A815 










016070 


FUNCTION SCSISelect (targetID 


INTEGER) : 


OSErr 






016071 


INLINE $3F3C,$0002,$A815 










016072 


FUNCTION SCSICmd (buffer: Ptr 


count: INTEGER) : 


OSErr; 




016073 


INLINE $3F3C, $0003, $A815 










016074 


FUNCTION SCSIRead{tibPtr: Ptr) : OSErr; 








016075 


INLINE $3F3C,$0005,$A815 










016076 


FUNCTION SCSIRBllnd(tibPtr: Ptr): OSErr 








016077 


INLINE $3F3C, $0008, $A815 
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016078 
016079 
016080 
016081 
016082 
016083 
016084 
016085 
016086 
016087 
016088 
016089 
016090 
016091 
016092 
016093 
016094 
016095 
016096 
016097 
016098 
016099 
016100 
016101 
016102 



FUNCTION SCSIWrite (tibPtr: Ptr) : OSErr; 

INLINE $3F3C, $0006, $A815; 
FUNCTION SCSIWBlind(tibPtr: Ptr): OSErr; 

INLINE $3F3C, $0009, $A815; 
FUNCTION SCSIComplete (VAR Stat: INTEGER;VAR message: INTEGER; wait : LONGINT) : OSErr; 

INLINE $3F3C, $0004, $A815; 
FUNCTION SCSIStat: INTEGER; 

INLINE $3F3C, $000A, $A815; 
FUNCTION SCSISelAtn (targetID: INTEGER): OSErr; 

INLINE $3F3C, $000B, $A815; 
FUNCTION SCSIMsgIn (VAR message: INTEGER): OSErr; 

INLINE $3F3C, $000C, $A815; 
FUNCTION SCSIMsgOut (message: INTEGER): OSErr; 

INLINE $3F3C, $000D, $A815; 



{$ENDC) 



{ UsingSCSI ) 



{$IFC NOT Uslnglncludes) 

END. 
{$ENDC} 



### END OF FILE SCSI.p 
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016103 

016104 ##################################################################### 

016105 ### FILE: SCSIIntf.p 

016106 ##################################################################### 
016107 

016108 { 

016109 File: SCSIIntf.p 
016110 

016111 As of MPW 3.0, interface files were reorganized to more closely 

016112 match "Inside Macintosh" reference books and be more consistant 

016113 from language to language. 
016114 

016115 Interfaces for the SCSI Manager are now found in SCSI. p. 

016116 This file, which includes SCSI.p, is provided for compatibility 

016117 with old sources. 
016118 

016119 Pascal Interface to the Macintosh Libraries 

016120 Copyright Apple Computer, Inc. 1988 

016121 All Rights Reserved 

016122 ) 
016123 

016124 {$IFC UNDEFINED Usinglncludes } 

016125 {$SETC Usinglncludes := 0} 

016126 {$ENDC) 
016127 

016128 {$IFC NOT Usinglncludes) 

016129 UNIT SCSIIntf; 

016130 INTERFACE 

016131 {$ENDC) 
016132 

016133 {$IFC UNDEFINED UsingSCSIInt f } 

016134 {$SETC UsingSCSIIntf := 1} 
016135 

016136 {$1+) 

016137 {$SETC SCSIIntflncludes := Usinglncludes) 

016138 {$SETC Usinglncludes := 1} 

016139 {$IFC UNDEFINED UsingSCSI} 

016140 {$1 $$Shell (PInterfaces) SCSI .p) 

016141 {$ENDC) 

016142 {$SETC Usinglncludes := SCSIIntflncludes) 
016143 

016144 {$ENDC} { UsingSCSIIntf ) 
016145 

016146 {$IFC NOT Usinglncludes) 

016147 END. 

016148 {$ENDC} 
016149 

016150 

016151 ### END OF FILE SCSIIntf.p 

016152 
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016153 

016154 ##################################################################### 

016155 ### FILE: SegLoad.p 

016156 ##################################################################### 
016157 

016158 { 

016159 Created: Sunday, January 6, 1991 at 11:15 PM 

016160 SegLoad.p 

016161 Pascal Interface to the Macintosh Libraries 
016162 

016163 Copyright Apple Computer, Inc. 1985-1990 

016164 All rights reserved 

016165 ) 
016166 
016167 

016168 {$IFC UNDEFINED Usinglncludes } 

016169 {$SETC Usinglncludes := 0} 

016170 {$ENDC} 
016171 

016172 {$IFC NOT Usinglncludes) 

016173 UNIT SegLoad; 

016174 INTERFACE 

016175 {$ENDC) 
016176 

016177 {$IFC UNDEFINED UsingSegLoad) 

016178 {$SETC UsingSegLoad := 1) 
016179 

016180 {$1+) 

016181 {$SETC SegLoadlncludes := Usinglncludes) 

016182 {$SETC Usinglncludes := 1} 

016183 {$IFC UNDEFINED UsingTypes) 

016184 {$1 $$Shell (PInterfaces) Types. p) 

016185 {$ENDC) 

016186 {$SETC Usinglncludes := SegLoadlncludes) 
016187 

016188 CONST 

016189 appOpen = 0; {Open the Document (s) ) 

016190 appPrint = 1; {Print the Document (s) ) 
016191 

016192 TYPE 

016193 AppFile = RECORD 

016194 vRefNum: INTEGER; 

016195 fType: OSType; 

016196 versNum: INTEGER; {versNum in high byte} 

016197 fName: Str255; 

016198 END; 
016199 

016200 

016201 PROCEDURE UnloadSeg (routineAddr : Ptr) ; 

016202 INLINE $A9F1; 

016203 PROCEDURE ExitToShell; 

016204 INLINE $A9F4; 

016205 PROCEDURE GetAppParms (VAR apName : Str255;VAR apRefNum: INTEGER;VAR apParam: Handle); 

016206 INLINE $A9F5; 

016207 PROCEDURE CountAppFiles (VAR message: INTEGER;VAR count: INTEGER); 
.016208 PROCEDURE GetAppFiles { index : INTEGER;VAR theFile: AppFile); 
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016209 
016210 
016211 
016212 
016213 
016214 
016215 
016216 
016217 
016218 
016219 
016220 



PROCEDURE ClrAppFiles (index: INTEGER); 



{$ENDC) 



{ UsingSegLoad } 



{$IFC NOT Uslnglncludes) 
END. 

{$ENDC} 



### END OF FILE SegLoad.p 
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016221 






016222 


##################################################################### 




016223 


### FILE: Serial. p 




016224 


##################################################################### 




016225 






016226 


{ 




016227 


Created: Sunday, January 6, 1991 at 11:15 PM 




016228 


Serial .p 




016229 


Pascal Interface to the Macintosh Libraries 




016230 






016231 


Copyright Apple Computer, Inc. 1985-1990 




016232 


All rights reserved 




016233 


) 




016234 






016235 






016236 


{$IFC UNDEFINED Usinglncludes } 




016237 


{$SETC Usinglncludes := 0} 




016238 


{$ENDC} 




016239 






016240 


{$IFC NOT Usinglncludes) 




016241 


UNIT Serial; 




016242 


INTERFACE 




016243 


{$ENDC) 




016244 






016245 


{$IFC UNDEFINED UsingSerial) 




016246 


{$SETC UsingSerial := 1) 




016247 






016248 


{$1+) 




016249 


{$SETC Seriallncludes := Usinglncludes} 




016250 


{$SETC Usinglncludes := 1} 




016251 


{$IFC UNDEFINED UsingTypes) 




016252 


{$1 $$Shell (PInterfaces) Types. p) 




016253 


{$ENDC) 




016254 


{$SETC Usinglncludes := Seriallncludes) 




016255 






016256 


CONST 




016257 


baud300 = 380 






016258 


baudeOO = 189 






016259 


baudl200 = 94 






016260 


baudl800 = 62 






016261 


baud2400 = 46 






016262 


baud3600 = 30 






016263 


baud4800 = 22 






016264 


baud7200 = 14 






016265 


baud9600 = 10 






016266 


baudl9200 = 4 






016267 


baud57600 = 






016268 


stoplO = 16384; 




016269 


stopl5 = -32768; 




016270 


stop20 = -16384; 




016271 


noParity ^ 0; 




016272 


oddParity = 4096; 




016273 


evenParity = 12288; 




016274 


data5 = 0; 




016275 


data6 = 2048; 




016276 


data7 = 1024; 
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016277 


data8 = 3072; 




016278 


ctsEvent = 32; 




016279 


breakEvent = 128; 




016280 


xOffWasSent = 128; 




016281 


dtrNegated = 64; 




016282 


ainRefNum ^ -6; {serial port A input} 




016283 


aoutRefNum = -7; {serial port A output} 




016284 


binRefNum = -8; {serial port B input} 




016285 


boutRefNum = -9; {serial port B output} 




016286 






016287 


TYPE 




016288 


SPortSel = (sPortA, sPortB) ; 




016289 






016290 






016291 


SerStllt = PACKED RECORD 




016292 


fXOn: Byte; {XOn flow control enabled flag} 




016293 


fCTS: Byte; {CTS flow control enabled flag} 




016294 


xOn: CHAR; {XOn cliaracter} 




016295 


xOff 


CHAR; {XOff character) 




016296 


errs 


Byte; {errors mask bits} 




016297 


evts 


Byte; {event enable mask bits} 




016298 


fInX 


Byte; {Input flow control enabled flag) 




016299 


fDTR 


Byte; {DTR input flow control flag} 




016300 


END; 




016301 






016302 


SerStaRec = PACKED RECORD 




016303 


curaErrs : Byte; 




016304 


xOffSent: Byte; 




016305 


rdPend: Byte; 




016306 


wrPend: Byte; 




016307 


ctsHold: Byte; 




016308 


xOffHold: Byte; 




016309 


END; 




016310 






016311 






016312 


FUNCTION SerReset (refNum: INTEGER; serConfig: INTEGER): OSErr; 




016313 


FUNCTION SerSetBuf (refNum: INTEGER; serBPtr : Ptr;serBLen: INTEGER): OSErr; 




016314 


FUNCTION SerHSha]<e (refNum: INTEGER; flags : SerShk) : OSErr; 




016315 


FUNCTION SerSetBrk (refNum: INTEGER): OSErr; 




016316 


FUNCTION SerClrBrk (refNum: INTEGER): OSErr; 




016317 


FUNCTION SerGetBuf (refNum: INTEGER; VAR count: LONGINT) : OSErr; 




016318 


FUNCTION SerStatus (refNum: INTEGER; VAR serSta: SerStaRec): OSErr; 




016319 






016320 






016321 


{$ENDC} { UsingSerlal } 




016322 






016323 


{$IFC NOT Usinglncludes) 




016324 


END. 




016325 


{$ENDC} 




016326 






016327 






016328 


### END OF FILE Serial. p 




016329 
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016330 

016331 ##################################################################### 

016332 ### FILE: ShutDown.p 

016333 ##################################################################### 
016334 

016335 { 

016336 Created: Sunday, January 6, 1991 at 11:15 PM 

016337 ShutDown.p 

016338 Pascal Interface to the Macintosh Libraries 
016339 

016340 Copyright Apple Computer, Inc. 1987-1989 

016341 All rights reserved 

016342 ) 
016343 
016344 

016345 {$IFC UNDEFINED Usinglncludes } 

016346 {$SETC Usinglncludes := 0} 

016347 {$ENDC} 
016348 

016349 {$IFC NOT Usinglncludes} 

016350 UNIT ShutDown; 

016351 INTERFACE 

016352 {$ENDC) 
016353 

016354 {$IFC UNDEFINED UsingShutDown } 

016355 {$SETC UsingShutDown := 1} 
016356 

016357 {$1+) 

016358 {$SETC ShutDownlncludes := Usinglncludes) 

016359 {$SETC Usinglncludes := 1} 

016360 {$IFC UNDEFINED UsingTypes) 

016361 {$1 $$Shell (PInterfaces) Types. p) 

016362 {$ENDC) 

016363 {$SETC Usinglncludes := ShutDownlncludes) 
016364 

016365 CONST 

016366 sdOnPowerOff ^ 1; {call procedure before power off.) 



016367 sdOnRestart = 2 

016368 sdOnUnmount = 4 

016369 sdOnDrivers = 8 



{call procedure before restart.) 
{call procedure before unmounting.} 
{call procedure before closing drivers.) 

016370 sdRestartOrPower - 3; {call before either power off or restart.} 

016371 

016372 PROCEDURE ShutDwnPower; 

016373 INLINE $3F3C, $0001 , $A8 95 ; 

016374 PROCEDURE ShutDwnStart ; 

016375 INLINE $3F3C, $0002 , $A8 95 ; 

016376 PROCEDURE ShutDwnlnstall (shutDownProc : ProcPtr; flags : INTEGER); 

016377 INLINE $3F3C, $0003, $A8 95 ; 

016378 PROCEDURE ShutDwnRemove ( shutDownProc : ProcPtr); 

016379 INLINE $3F3C, $0004 , $A8 95 ; 
016380 

016381 

016382 {$ENDC} { UsingShutDown ) 
016383 

016384 {$IFC NOT Usinglncludes) 
.016385 END. 
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016386 {$ENDC) 

016387 

016388 

016389 ### END OF FILE ShutDown.p 

016390 
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016391 








016392 


##################################################################### 




016393 


### FILE: Signal. p 






016394 


##################################################################### 




016395 








016396 








016397 


{ 






016398 


Created: Friday, August 2, 1991 


at 11:40 PM 




016399 


Signal .p 






016400 


Pascal Interface to the Macintosh Libraries 




016401 








016402 


Signal Handling interface. 






016403 


This must be compatible with 


C's <signal.h> 




016404 








016405 


Copyright Apple Computer, Inc. 


1986, 1987, 1988, 1991 




016406 


All rights reserved 






016407 


) 






016408 








016409 








016410 


{$IFC UNDEFINED Usinglncludes } 






016411 


{$SETC Usinglncludes := 0} 






016412 


{$ENDC} 






016413 








016414 


{$IFC NOT Usinglncludes) 






016415 


UNIT Signal; 






016416 


INTERFACE 






016417 


{$ENDC) 






016418 








016419 


{$IFC UNDEFINED UsingSignal) 






016420 


{$SETC UsingSignal := 1) 






016421 








016422 








016423 


TYPE 






016424 


SignalMap = INTEGER; 






016425 


SignalHandler = ^LONGINT; 


{ Pointer to function } 




016426 








016427 


CONST 






016428 


SIG_ERR = -1 




{ Returned by lEsignal on error ) 




016429 


SIG_IGN = 








016430 


SIG_DFL = 1 








016431 


SIG_HOLD = 3 








016432 


SIG_RELEASE = 5 








016433 








016434 


SIGABRT = $0001 








016435 


SIGINT = $0002 




{ Currently only SIGINT implemented ) 




016436 


SIGFPE = $0004 








016437 


SIGILL = $0008 








016438 


SIGSEGV = $0010 








016439 


SIGTERM = $0020 








016440 








016441 


{ Signal Handling Functions } 






016442 








016443 


FUNCTION 






016444 


lEsignal (sigNum: LONGINT; si 


gHdlr: UNIV SignalHandler) : 




016445 


SignalHandler; C; 






016446 
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016447 FUNCTION 

016448 lEraise (sigNum: LONGINT) : 

016449 LONGINT; C; 
016450 

016451 

016452 {$ENDC) { UslngSlgnal } 

016453 

016454 {$IFC NOT Uslnglncludes) 

016455 END. 

016456 {$ENDC} 
016457 

016458 ### END OF FILE Signal. p 
016459 
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016460 
016461 
016462 
016463 
016464 
016465 
016466 
016467 
016468 
016469 
016470 
016471 
016472 
016473 
016474 
016475 
016476 
016477 
016478 
016479 
016480 
016481 
016482 
016483 
016484 
016485 
016486 
016487 
016488 
016489 
016490 
016491 
016492 
016493 
016494 
016495 
016496 
016497 
016498 
016499 
016500 
016501 
016502 
016503 
016504 
016505 
016506 
016507 
016508 
016509 
016510 
016511 
016512 
016513 
016514 
016515 



##################################################################### 
### FILE: Slots. p 
##################################################################### 



Created: Sunday, January 6, 1991 at 11:16 PM 
Slots. p 
Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 

{$ENDC} 

{$IFC NOT Usinglncludes} 

UNIT Slots; 

INTERFACE 
{$ENDC) 

{$IFC UNDEFINED UsingSlots} 
{$SETC UsingSlots := 1) 

($1+) 

{$SETC Slotslncludes := Usinglncludes} 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingTypes} 

{$1 $$Shell (PInterfaces) Types. p} 

{$ENDC} 

{$IFC UNDEFINED UsingOSEvent s } 

{$1 $$ Shell (PInterfaces) OSE vents .p} 

{$ENDC} 

{$IFC UNDEFINED UsingOSUtils } 

{$1 $$ Shell (PInterfaces) OSUtils.p} 

{$ENDC} 

{$IFC UNDEFINED UsingFiles} 

{$1 $$Shell (Plnterfaces)Files.p} 

{$ENDC} 

{$SETC Usinglncludes := Slotslncludes} 

CONST 

f CardlsChanged = 1; 
fCkForSame = 0; 
fCkForNext = 1; 
fWarmStart = 2; 

stateNil = 0; 
stateSDMInit = 1; 
statePRAMInit = 2; 
statePInit = 3; 
stateSInit = 4; 



1986-1990 



{Card is Changed field in StatusFlags field of sInfoArray} 
{For SearchSRT. Flag to check for SAME sResource in the table. 
{For SearchSRT. Flag to check for NEXT sResource in the table. 
{If this bit is set then warm start else cold start.} 

{State} 



Slot declaration manager Init} 
sPRAM record init} 
Primary init} 
Secondary init } 
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016516 


{ flags for spParamData } 








016517 


fall = 0; 




{ bit 0: set^search enabled/disabled sRsrc's } 




016518 


foneslot ^ 1; 




{ 1: set^search sRsrc's in given slot only } 




016519 


fnext = 2; 




{ 2; set^search for next sRsrc } 




016520 










016521 


TYPE 








016522 


SQElemPtr = -^SlotlntQElement ; 








016523 


SlotlntQElement = RECORD 








016524 


sqLink: Ptr; 




{ptr to next element) 




016525 


sqType : INTEGER; 




{queue type ID for validity) 




016526 


sqPrlo: INTEGER; 




{priority} 




016527 


sqAddr: ProcPtr; 




{interrupt service routine} 




016528 


sqParm: LONGINT; 




{optional Al parameter} 




016529 


END; 








016530 










016531 


SpBlockPtr = ^SpBlock; 








016532 


SpBlock = PACKED RECORD 








016533 


spResult: LONGINT; 




{FUNCTION Result) 




016534 


spsPointer: Ptr; 




{structure pointer} 




016535 


spSize: LONGINT; 




{size of structure} 




016536 


spOffsetData: LONGINT; 




{offset/data field used by sOffsetData} 




016537 


spIOFileName: Ptr; 




{ptr to lOFile name for sDisDrvrName ) 




016538 


spsExecPBlk: Ptr; 




{pointer to sExec parameter block.} 




016539 


spParamData: LONGINT; 




{misc parameter data (formerly spStackPtr) . ) 




016540 


spMisc: LONGINT; 




{misc field for SDM. ) 




016541 


spReserved: LONGINT; 




{reserved for future expansion} 




016542 


spIOReserved: INTEGER; 




{Reserved field of Slot Resource Table} 




016543 


spRefNum: INTEGER; 




{RefNum) 




016544 


spCategory: INTEGER; 




{sType: Category) 




016545 


spCType: INTEGER; 




{Type} 




016546 


spDrvrSW: INTEGER; 




{DrvrSW) 




016547 


spDrvrHW: INTEGER; 




{DrvrHW) 




016548 


spTBMask: SignedByte; 




{type bit mask bits 0..3 mask words 0..3) 




016549 


spSlot: SignedByte; 




{slot number) 




016550 


spID: SignedByte; 




{structure ID} 




016551 


spExtDev: SignedByte; 




{ID of the external device} 




016552 


spHwDev: SignedByte; 




{Id of the hardware device.) 




016553 


spByteLanes: SignedByte; 




{bytelanes from card ROM format block} 




016554 


spFlags : SignedByte; 




{standard flags) 




016555 


spKey: SignedByte; 




{Internal use only} 




016556 


END; 








016557 










016558 


SInfoRecPtr = ^Slnf oRecord; 








016559 


SInfoRecord = PACKED RECORD 








016560 


siDirPtr: Ptr; 




{Pointer to directory} 




016561 


silnitStatusA: INTEGER; 




{initialization E} 




016562 


silnitStatusV: INTEGER; 




{status returned by vendor init code) 




016563 


siState: SignedByte; 




{initialization state} 




016564 


siCPUByteLanes : SignedByte; 




{0=[d0..d7] I=[d8..dl5]) 




016565 


siTopOfROM: SignedByte; 




{Top of ROM= $FssFFFFx: x is TopOfROM} 




016566 


siStatusFlags : SignedByte; 




{bit - card is changed) 




016567 


siTOConst: INTEGER; 




{Time Out C for BusErr} 




016568 


siReserved: PACKED ARRAY [0 


.1] OF SignedByte; 


{ reserved} 




016569 


siROMAddr: Ptr; 




{ addr of top of ROM } 




016570 


siSlot: CHAR; 




{ slot number } 




016571 


siPadding: PACKED ARRAY [0. 


2] OF SignedByte; 


{ reserved ) 
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016572 


END; 












016573 














016574 


SDMRecord = PACKED RECORD 












016575 


sdBEVSave: ProcPtr; 








{Save old BusErr vector) 




016576 


sdBusErrProc : ProcPtr; 








{Go here to determine if it is a BusErr) 




016577 


sdErrorEntry : ProcPtr; 








{Go here if BusErrProc finds real BusErr) 




016578 


sdReserved: LONGINT; 








{Reserved} 




016579 


END; 












016580 














016581 


FHeaderRecPtr = "FHeaderRec; 












016582 


FHeaderRec = PACKED RECORD 












016583 


fhDirOffset: LONGINT; 








{offset to directory) 




016584 


fhLength: LONGINT; 








{length of ROM} 




016585 


fhCRC: LONGINT; 








{CRC) 




016586 


fhROMRev: SignedByte; 








{revision of ROM) 




016587 


f hFormat : SignedByte; 








{ format - 2 ) 




016588 


fhTstPat: LONGINT; 








{test pattern} 




016589 


fhReserved: SignedByte; 








{ reserved} 




016590 


fhByteLanes: SignedByte; 








{ByteLanes} 




016591 


END; 












016592 














016593 


SEBlock = PACKED RECORD 












016594 


seSlot: SignedByte; 








{ Slot number . } 




016595 


sesRsrcId; SignedByte; 








{ sResource Id. } 




016596 


seStatus: INTEGER; 








{Status of code executed by sExec.} 




016597 


seFlags: SignedByte; 








{Flags} 




016598 


seFillerO: SignedByte; 








{Filler, must be SignedByte to align on odd boundry) 




016599 


seFillerl: SignedByte; 








{Filler) 




016600 


seFiller2: SignedByte; 








{Filler) 




016601 


seResult: LONGINT; 








{Result of sLoad. } 




016602 


selOFileName: LONGINT; 








{Pointer to lOFile name.) 




016603 


seDevice: SignedByte; 








{Which device to read from. ) 




016604 


sePartition: SignedByte; 








{The partition. ) 




016605 


seOSType: SignedByte; 








{Type of OS. ) 




016606 


seReserved: SignedByte; 








{Reserved field.) 




016607 


seRefNum: SignedByte; 








{RefNum of the driver.} 




016608 


seNumDevices : SignedByte 








{ Number of devices to load.) 




016609 


seBootState: SignedByte; 








{State of StartBoot code.} 




016610 


END; 












016611 














016612 














016613 














016614 


{ Principle } 












016615 


FUNCTION SReadByte (spBlkPtr: 


SpBloc 


kPtr) : 


OSErr; 






016616 


INLINE $205F,$7000,$A06E 


$3E80; 










016617 


FUNCTION SReadWord(spBlkPtr: 


SpBloc 


kPtr) : 


OSErr; 






016618 


INLINE $205F, $7001, $A06E 


$3E80; 










016619 


FUNCTION SReadLong(spBlkPtr: 


SpBloc 


kPtr) : 


OSErr; 






016620 


INLINE $205F,$7002,$A06E 


$3E80; 










016621 


FUNCTION SGetCString(spBlkPtr: SpBl 


ockPtr 


: OSErr; 






016622 


INLINE $205F, $7003, $A06E 


$3E80; 










016623 


FUNCTION SGetBlock (spBlkPtr: 


SpBloc 


kPtr) : 


OSErr; 






016624 


INLINE $205F,$7005,$A06E 


$3E80; 










016625 


FUNCTION SFindStruct (spBlkPtr: SpBl 


ockPtr 


: OSErr; 






016626 


INLINE $205F, $7006, $A06E 


$3E80; 










016627 


FUNCTION SReadStruct (spBlkPtr: SpBl 


ockPtr 


: OSErr; 
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016628 


INLINE $205F,$7007,$A06E,$3E80; 




016629 






016630 






016631 


{ Special ) 




016632 


FUNCTION SReadInfo(spBlkPtr: SpBlockPtr) : OSErr; 




016633 


INLINE $205F,$7010,$A06E,$3E80; 




016634 


FUNCTION SReadPRAMRec (spBlkPtr: SpBlockPtr): OSErr; 




016635 


INLINE $205F,$7011,$A06E,$3E80; 




016636 


FUNCTION SPutPRAMRec(spBlkPtr: SpBlockPtr): OSErr; 




016637 


INLINE $205F, $7012, $A06E, $3E80; 




016638 


FUNCTION SReadFHeader (spBlkPtr: SpBlockPtr): OSErr; 




016639 


INLINE $205F,$7013,$A06E,$3E80; 




016640 


FUNCTION SNextSRsrc(spBlkPtr: SpBlockPtr): OSErr; 




016641 


INLINE $205F, $7014, $A06E, $3E80; 




016642 


FUNCTION SNextTypeSRsrc (spBlkPtr : SpBlockPtr): OSErr; 




016643 


INLINE $205F,$7015,$A06E,$3E80; 




016644 


FUNCTION SRsrcInfo(spBlkPtr: SpBlockPtr): OSErr; 




016645 


INLINE $205F, $7016, $A06E, $3E80; 




016646 


FUNCTION SCkCardStat (spBlkPtr: SpBlockPtr): OSErr; 




016647 


INLINE $205F, $7018, $A06E, $3E80; 




016648 


FUNCTION SReadDrvrName(spBlkPtr: SpBlockPtr): OSErr; 




016649 


INLINE $205F,$7019,$A06E,$3E80; 




016650 


FUNCTION SFindDevBase (spBlkPtr: SpBlockPtr): OSErr; 




016651 


INLINE $205F, $701B, $A06E, $3E80; 




016652 


FUNCTION SFindBigDevBase(spBlkPtr: SpBlockPtr): OSErr; 




016653 


INLINE $205F,$701C,$A06E,$3E80; 




016654 






016655 






016656 


{ Advanced } 




016657 


FUNCTION InitSDeclMgr{spBlkPtr: SpBlockPtr): OSErr; 




016658 


INLINE $205F, $7020, $A06E, $3E80; 




016659 


FUNCTION SPrimarylnit (spBlkPtr: SpBlockPtr): OSErr; 




016660 


INLINE $205F,$7021,$A06E,$3E80; 




016661 


FUNCTION SCardChanged{spBlkPtr: SpBlockPtr) : OSErr; 




016662 


INLINE $205F,$7022,$A06E,$3E80; 




016663 


FUNCTION SExec (spBlkPtr: SpBlockPtr): OSErr; 




016664 


INLINE $205F,$7023,$A06E,$3E80; 




016665 


FUNCTION SOffsetData(spBlkPtr: SpBlockPtr): OSErr; 




016666 


INLINE $205F, $7024, $A06E, $3E80; 




016667 


FUNCTION SInitPRAMRecs (spBlkPtr: SpBlockPtr): OSErr; 




016668 


INLINE $205F,$7025,$A06E,$3E80; 




016669 


FUNCTION SReadPBSize(spBlkPtr: SpBlockPtr): OSErr; 




016670 


INLINE $205F, $7026, $A06E, $3E80; 




016671 


FUNCTION SCalcStep (spBlkPtr: SpBlockPtr): OSErr; 




016672 


INLINE $205F,$7028,$A06E,$3E80; 




016673 


FUNCTION SInitSRsrcTable(spBlkPtr: SpBlockPtr): OSErr; 




016674 


INLINE $205F, $7029, $A06E, $3E80; 




016675 


FUNCTION SSearchSRT (spBlkPtr: SpBlockPtr): OSErr; 




016676 


INLINE $205F,$702A, $A06E,$3E80; 




016677 


FUNCTION SUpdateSRT(spBlkPtr: SpBlockPtr): OSErr; 




016678 


INLINE $205F, $702B, $A06E, $3E80; 




016679 


FUNCTION SCalcSPointer (spBlkPtr: SpBlockPtr): OSErr; 




016680 


INLINE $205F,$702C,$A06E,$3E80; 




016681 


FUNCTION SGetDriver(spBlkPtr: SpBlockPtr): OSErr; 




016682 


INLINE $205F, $702D, $A06E, $3E80; 




016683 


FUNCTION SPtrToSlot (spBlkPtr : SpBlockPtr): OSErr; 
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016684 INLINE $205F, $702E, $A06E, $3E80; 

016685 FUNCTION SFindSInfoRecPtr (spBlkPtr: SpBlockPtr) : OSErr; 

016686 INLINE $205F, $702F, $A06E, $3E8Q; 

016687 FUNCTION SFindSRsrcPtr (spBlkPtr: SpBlockPtr): OSErr; 

016688 INLINE $2Q5F, $7030, $A06E, $3E80; 

016689 FUNCTION SDeleteSRTRec (spBlkPtr: SpBlockPtr): OSErr; 

016690 INLINE $205F, $7031, $A06E, $3E80; 
016691 

016692 FUNCTION OpenSlot (paramBlock : ParmBlkPtr; async : BOOLEAN): OSErr; 

016693 FUNCTION OpenSlotSync (paramBlock : ParmBlkPtr): OSErr; 

016694 INLINE $205F, $A200, $3E80; 

016695 FUNCTION OpenSlotAsync (paramBlock: ParmBlkPtr): OSErr; 

016696 INLINE $205F, $A600, $3E80; 
016697 

016698 

016699 { Device Manager Slot Support ) 

016700 FUNCTION SInt Install (sIntQElemPtr : SQElemPtr ; theSlot : INTEGER): OSErr; 

016701 INLINE $301F, $205F, $A075, $3E80; 

016702 FUNCTION SIntRemove ( sIntQElemPtr : SQElemPtr; theSlot : INTEGER): OSErr; 

016703 INLINE $301F, $205F, $A07 6, $3E80; 
016704 

016705 FUNCTION SVersion ( spBlkPtr : SpBlockPtr): OSErr; 

016706 INLINE $205F, $7008 , $A06E, $3E80; 

016707 FUNCTION SetSRsrcState ( spBlkPtr : SpBlockPtr): OSErr; 

016708 INLINE $205F, $700 9, $A06E, $3E80; 

016709 FUNCTION InsertSRTRec (spBlkPtr : SpBlockPtr): OSErr; 

016710 INLINE $205F, $700A, $A06E, $3E80; 

016711 FUNCTION SGetSRsrc ( spBlkPtr : SpBlockPtr): OSErr; 

016712 INLINE $205F, $700B, $A06E, $3E80; 

016713 FUNCTION SGetTypeSRsrc ( spBlkPtr : SpBlockPtr): OSErr; 

016714 INLINE $205F, $7000, $A06E, $3E80; 

016715 FUNCTION SGetSRsrcPtr ( spBlkPtr : SpBlockPtr): OSErr; 

016716 INLINE $205F, $701D, $A06E, $3E80; 
016717 

016718 

016719 {$ENDC) { UsingSlots ) 

016720 

016721 {$IFC NOT Usinglncludes ) 

016722 END. 

016723 {$ENDC} 
016724 

016725 

016726 ### END OF FILE Slots. p 

016727 
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016728 






016729 


##################################################################### 




016730 


### FILE: Sound. p 




016731 


##################################################################### 




016732 






016733 






016734 


{ 




016735 


Created: Monday, December 2, 1991 at 5:09 PM 




016736 


Sound. p 




016737 


Pascal Interface to the Macintosh Libraries 




016738 






016739 


Copyright Apple Computer, Inc. 1986-1991 




016740 


All rights reserved 




016741 


) 




016742 






016743 






016744 


{$IFC UNDEFINED Usinglncludes } 




016745 


{$SETC Usinglncludes := 0} 




016746 


{$ENDC) 




016747 






016748 


{$IFC NOT Usinglncludes) 




016749 


UNIT Sound; 




016750 


INTERFACE 




016751 


{$ENDC} 




016752 






016753 


{$IFC UNDEFINED UsingSound} 




016754 


{$SETC UsingSound := 1) 




016755 






016756 


{$!+) 




016757 


{$SETC Soundlncludes := Usinglncludes} 




016758 


{$SETC Usinglncludes := 1} 




016759 


{$IFC UNDEFINED UsingTypes) 




016760 


{$1 $$Shell (PInterfaces) Types. p) 




016761 


{$ENDC) 




016762 


{$IFC UNDEFINED UsingFiles) 




016763 


{$1 5$Shell (Plnterfaces)Files.p) 




016764 


{$ENDC) 




016765 


{$SETC Usinglncludes := Soundlncludes} 




016766 






016767 


CONST 




016768 


swMode ^ -1; { Sound Driver modes } 




016769 


ftMode = 1; 




016770 


ffMode = 0; 




016771 






016772 


synthCodeRsrc ^ 'snth'; { Resource types used by Sound Manager } 




016773 


soundListRsrc ^ ' snd ' ; 




016774 






016775 


twelfthRootlwo = 1.05946309434; 




016776 


rate22khz = $56EE8BA3; { 22254.54545 in fixed-point } 




016777 


ratellkhz = $2B7745D1; { 11127.27273 in fixed-point } 




016778 






016779 


{ synthesizer numbers for SndNewChannel } 




016780 


squareWaveSynth ^ 1; {square wave synthesizer) 




016781 


waveTableSynth = 3; {wave table synthesizer) 




016782 


sampledSynth ^ 5; {sampled sound synthesizer} 




016783 




J 
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016784 { old Sound Manager MACE synthesizer numbers } 

016785 MACE3snthID = 11; 

016786 MACE6snthID = 13; 
016787 

016788 { command numbers for SndDoCommand and SndDoImmediate } 

016789 nullCmd = 0; 

016790 initCmd = 1; 

016791 freeCmd = 2; 

016792 quietCmd = 3; 

016793 flushCmd = 4; 

016794 relnitCmd = 5; 
016795 

016796 waitCmd = 10; 

016797 pauseCmd = 11; 

016798 resumeCmd = 12; 

016799 callBackCmd = 13; 

016800 syncCmd = 14; 

016801 emptyCmd = 15; 
016802 

016803 tickleCmd = 20; 

016804 requestNextCmd = 21; 

016805 howOftenCmd = 22; 

016806 wakeUpCmd = 23; 

016807 availableCmd = 24; 

016808 versionCmd = 25; 

016809 totalLoadCmd = 26; 

016810 loadCmd = 27; 
016811 

016812 scaleCmd = 30; 

016813 tempoCmd = 31; 
016814 

016815 freqDurationCmd = 40; 

016816 restCmd = 41; 

016817 freqCmd = 42; 

016818 ampCmd = 43; 

016819 timbreCmd = 44; 

016820 getAmpCmd = 45; 
016821 

016822 waveTableCmd = 60; 

016823 phaseCmd = 61; 
016824 

016825 soundCmd = 80; 

016826 bufferCmd = 81; 

016827 rateCmd = 82; 

016828 continueCmd = 83; 

016829 doubleBuf ferCmd = 84; 

016830 getRateCmd = 85; 
016831 

016832 sizeCmd = 90; 

016833 convertCmd = 91; 
016834 

016835 stdQLength = 128; 

016836 dataOffsetFlag = $8000; 
016837 

016838 wavelnitChannelMask = $07; 

.016839 wavelnitChannelO = $04; 
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016840 


wavelnitChannell ^ $05; 






016841 


waveInitChannel2 ^ $06; 






016842 


waveInitChannel3 = $07; 






016843 








016844 


{ channel initialization parameters } 






016845 


initPanMask = $0003; 


mask for right/left pan values } 




016846 


initSRateMask = $0030; 


mask for sample rate values } 




016847 


initStereoMask = $00C0; 


mask for mono/stereo values } 




016848 


initCompMask = $FF00; 


mask for compression IDs } 




016849 








016850 


initChanLeft = $0002; 


left stereo channel } 




016851 


initChanRight = $0003; 


right stereo channel ) 




016852 


initNoInterp = $0004; 


no linear interpolation } 




016853 


initNoDrop = $0008; 


no drop-sample conversion } 




016854 


initMono = $0080; 


monophonic channel } 




016855 


initStereo = $00C0; 


stereo channel } 




016856 


initMACE3 = $0300; 


MACE 3:1 ) 




016857 


initMACE6 = $0400; 


MACE 6:1 ) 




016858 








016859 


initChanO = $0004 




channel - wave table only } 




016860 


initChanl = $0005 




channel 1 - wave table only } 




016861 


initChan2 = $0006 




channel 2 - wave table only } 




016862 


initChan3 = $0007 




channel 3 - wave table only } 




016863 








016864 


stdSH = $00; 


Standard sound header encode value } 




016865 


extSH = $FF; 


Extended sound header encode value } 




016866 


cmpSH = $FE; 


Compressed sound header encode value } 




016867 








016868 


notCompressed ^ 0; 


compression ID ' s } 




016869 


twoToOne = 1; 






016870 


eightToThree = 2; 






016871 


threeToOne = 3; 






016872 


sixToOne = 4; 






016873 








016874 


outsideCmpSH = 0; 


MACE constants } 




016875 


insideCmpSH = 1; 






016876 


aceSuccess = 0; 






016877 


aceMemFull = 1; 






016878 


aceNilBlock = 2; 






016879 


aceBadComp = 3; 






016880 


aceBadEncode = 4; 






016881 


aceBadDest = 5; 






016882 


aceBadCmd ^ 6; 






016883 


sixToOnePacketSize = 8; 






016884 


threeToOnePacketSize = 16; 






016885 


stateBlockSize = 64; 






016886 


leftOverBlockSize = 32; 






016887 








016888 


firstSoundFormat = $0001; 


general sound format } 




016889 


secondSoundForraat = $0002; 


special sampled sound format (HyperCard) } 




016890 








016891 


dbBufferReady = $00000001; 


double buffer is filled } 




016892 


dbLastBuffer = $00000004; 


last double buffer to play } 




016893 








016894 


sysBeepDisable = $0000; 


SysBeep ( ) enable flags } 




016895 


sysBeepEnable = $0001; 
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016896 

016897 unitTypeNoSelection = $FFFF; { unltTypes for AudioSelection .unitType ) 

016898 unitTypeSeconds = $0000; 
016899 

016900 TYPE 

016901 { Structures for Sound Driver } 
016902 

016903 

016904 FreeWave = PACKED ARRAY [0.. 30000] OF Byte; 

016905 

016906 FFSynthPtr = -^FFSynthRec; 

016907 FFSynthRec = RECORD 

016908 mode: INTEGER; 

016909 count: Fixed; 

016910 waveBytes : FreeWave; 

016911 END; 
016912 

016913 Tone = RECORD 

016914 count: INTEGER; 

016915 amplitude: INTEGER; 

016916 duration: INTEGER; 

016917 END; 
016918 
016919 

016920 Tones = ARRAY [0..5000] OF Tone; 
016921 

016922 SWSynthPtr = -^SWSynthRec; 

016923 SWSynthRec = RECORD 

016924 mode: INTEGER; 

016925 triplets: Tones; 

016926 END; 
016927 
016928 

016929 Wave = PACKED ARRAY [0..255] OF Byte; 

016930 WavePtr = ''Wave; 
016931 

016932 FTSndRecPtr = ''FTSoundRec; 

016933 FTSoundRec = RECORD 

016934 duration: INTEGER; 

016935 soundlRate: Fixed; 

016936 soundlPhase: LONGINT; 

016937 sound2Rate: Fixed; 

016938 sound2Phase: LONGINT; 

016939 sound3Rate: Fixed; 

016940 sound3Phase: LONGINT; 

016941 sound4Rate: Fixed; 

016942 sound4Phase: LONGINT; 

016943 soundlWave: WavePtr; 

016944 sound2Wave: WavePtr; 

016945 sound3Wave: WavePtr; 

016946 sound4Wave: WavePtr; 

016947 END; 
016948 

016949 FTSynthPtr = ^FTSynthRec; 

016950 FTSynthRec = RECORD 

016951 mode: INTEGER; 
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016952 
016953 
016954 
016955 
016956 
016957 
016958 
016959 
016960 
016961 
016962 
016963 
016964 
016965 
016966 
016967 
016968 
016969 
016970 
016971 
016972 
016973 
016974 
016975 
016976 
016977 
016978 
016979 
016980 
016981 
016982 
016983 
016984 
016985 
016986 
016987 
016988 
016989 
016990 
016991 
016992 
016993 
016994 
016995 
016996 
016997 
016998 
016999 
017000 
017001 
017002 
017003 
017004 
017005 
017006 
017007 



sndRec: FTSndRecPtr; 
END; 

{ Structures for Sound Manager 

SndCommand = PACKED RECORD 
cmd: INTEGER; 
paraml : INTEGER; 
param2 : LONGINT; 
END; 



Time = LONGINT; 



{ in half milliseconds } 



{ reserved for the Sound Manager } 



{ The following is for internal Sound Manager use only.} 



SndChannelPtr = -^SndChannel; 
SndChannel = PACKED RECORD 

nextChan; SndChannelPtr; 

firstMod: Ptr; 

callBack; ProcPtr; 

userlnfo: LONGINT; 

wait ; Time; 

cmdInProgress : SndCommand; 

flags: INTEGER; 

qLength: INTEGER; 

qHead: INTEGER; { next spot to read or -1 if empty } 

qTail: INTEGER; { next spot to write = qHead if full } 

queue: ARRAY [0. .stdQLength - 1] OF SndCommand; 

END; 



{ MACE structures ) 
StateBlockPtr = ^StateBlock; 
StateBlock = RECORD 

stateVar: ARRAY [0 . . stateBlockSize 

END; 



1] OF INTEGER; 



LeftOverBlockPtr = ^LeftOverBlock; 
LeftOverBlock = RECORD 

count: LONGINT; 

sampleArea: PACKED ARRAY [0 . . lef tOverBlockSize - 1] OF Byte; 

END; 

ModRef = RECORD 
modNumber: INTEGER; 
modlnit: LONGINT; 
END; 



SndListPtr — "^SndListResource; 
SndListResource = RECORD 

format : INTEGER; 

numModif iers : INTEGER; 

modifierPart : ARRAY [0..0] OF ModRef; 

numCommands : INTEGER; 

commandPart: ARRAY [0. 

dataPart: PACKED ARRAY 



{This is a variable length array} 



0] OF SndCommand; 
[0. . 0] OF Byte; 



{This is 
{This is 



variable length array} 
variable length array} 
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017008 


END; 






017009 








017010 


SoundHeaderPtr = "^SoundHeader ; 






017011 


SoundHeader = PACKED RECORD 






017012 


samplePtr: Ptr; 


if NIL then samples are in sampleArea } 




017013 


length: LONGINT; 


length of sound in bytes } 




017014 


sampleRate : Fixed; 


sample rate for this sound } 




017015 


loopStart: LONGINT; 


start of looping portion } 




017016 


loopEnd: LONGINT; 


end of looping portion } 




017017 


encode: Byte; 


header encoding } 




017018 


baseFrequency : Byte; 


baseFrequency value } 




017019 


sampleArea: PACKED ARRAY [0..0] OF Byte; 






017020 


END; 






017021 








017022 


CmpSoundHeaderPtr ^ ^CrapSoundHeader; 






017023 


CmpSoundHeader = PACKED RECORD 






017024 


samplePtr: Ptr; 


if nil then samples are in sample area } 




017025 


numChannels: LONGINT; 


number of channels i.e. mono = 1 ) 




017026 


sampleRate : Fixed; 


sample rate in Apples Fixed point representation } 




017027 


loopStart: LONGINT; 


loopStart of sound before compression ) 




017028 


loopEnd: LONGINT; 


loopEnd of sound before compression } 




017029 


encode: Byte; 


data structure used , stdSH, extSH, or cmpSH ) 




017030 


baseFrequency: Byte; 


same meaning as regular SoundHeader } 




017031 


numFrames: LONGINT; 


length in frames ( packetFrames or sampleFrames ) } 




017032 


AIFFSampleRate: Extended80; 


IEEE sample rate ) 




017033 


markerChunk : Ptr; 


sync track } 




017034 


futureUsel: Ptr; 


reserved by Apple } 




017035 


futureUse2 : Ptr; 


reserved by Apple } 




017036 


stateVars: StateBlockPtr ; 


pointer to State Block } 




017037 


lef tOverSamples : Lef tOverBlockPtr; 


used to save truncated samples between compression calls ) 




017038 


compressionID: INTEGER; 


means no compression, non zero means compressionID } 




017039 


packetSlze: INTEGER; 


number of bits in compressed sample packet } 




017040 


snthlD: INTEGER; 


resource ID of Sound Manager snth that contains NRT C/E } 




017041 


sampleSize: INTEGER; 


number of bits in non-compressed sample } 




017042 


sampleArea: PACKED ARRAY [0..0] OF Byte; 


space for when samples follow directly } 




017043 


END; 






017044 








017045 


ExtSoundHeaderPtr = ^ExtSoundHeader; 






017046 


Ext SoundHeader = PACKED RECORD 






017047 


samplePtr: Ptr; 


if nil then samples are in sample area } 




017048 


numChannels: LONGINT; 


number of channels, ie mono = 1 } 




017049 


sampleRate : Fixed; 


sample rate in Apples Fixed point representation ) 




017050 


loopStart: LONGINT; 


same meaning as regular SoundHeader } 




017051 


loopEnd: LONGINT; 


same meaning as regular SoundHeader } 




017052 


encode: Byte; 


data structure used , stdSH, extSH, or cmpSH } 




017053 


baseFrequency: Byte; 


same meaning as regular SoundHeader } 




017054 


numFrames: LONGINT; 


length in total number of frames } 




017055 


AIFFSampleRate: Extended80; 


IEEE sample rate ) 




017056 


markerChunk: Ptr; 


sync track } 




017057 


instrumentChunks ; Ptr; 


AIFF instrument chunks } 




017058 


AESRecording: Ptr; 






017059 


sampleSize: INTEGER; 


number of bits in sample ) 




017060 


futureUsel: INTEGER; 


reserved by Apple ) 




017061 


futureUse2: LONGINT; 


reserved by Apple } 




017062 


futureUseS: LONGINT; 


reserved by Apple } 




017063 


futureUse4: LONGINT; 


reserved by Apple } 
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017064 sampleArea: PACKED ARRAY [0..0] OF Byte; { space for when samples follow directly } 

017065 END; 
017066 

017067 ConversionBlockPtr = ^ConversionBlock; 

017068 ConversionBlock = RECORD 

017069 destination: INTEGER; 

017070 unused: INTEGER; 

017071 inputPtr: CmpSoundHeaderPt r; 

017072 outputPtr: CmpSoundHeaderPtr ; 
01707 3 END; 

017074 

017075 SMStatusPtr = ^SMStatus; 

01707 6 SMStatus = PACKED RECORD 

017077 smMaxCPULoad: INTEGER; 

017078 smNumChannels: INTEGER; 
01707 9 smCurCPULoad: INTEGER; 
017080 END; 

017081 

017082 SCStatusPtr = ^SCStatus; 

017083 SCStatus = RECORD 

017084 scStartTime: Fixed; 

017085 scEndTime: Fixed; 

017086 scCurrentTime: Fixed; 

017087 scChannelBusy : BOOLEAN; 

017088 scChannelDisposed: BOOLEAN; 

017089 scChannelPaused: BOOLEAN; 

017090 scUnused: BOOLEAN; 

017091 scChannelAttributes : LONGINT; 

017092 scCPULoad: LONGINT; 

017093 END; 
017094 

017095 AudioSelectionPtr = ^AudloSelectlon; 

017096 AudioSelection = PACKED RECORD 

017097 unitType: LONGINT; 

017098 selStart: Fixed; 

017099 selEnd: Fixed; 

017100 END; 
017101 

017102 SndDoubleBuf ferPtr = -^SndDoubleBuf f er; 

017103 SndDoubleBuf fer = PACKED RECORD 

017104 dbNumFrames: LONGINT; 

017105 dbFlags: LONGINT; 

017106 dbUserlnfo: ARRAY [0..1] OF LONGINT; 

017107 dbSoundData: PACKED ARRAY [0..0] OF Byte; 

017108 END; 
017109 

017110 SndDoubleBuf ferHeaderPtr = ^SndDoubleBuf ferHeader; 

017111 SndDoubleBufferHeader = PACKED RECORD 

017112 dbhNumChannels: INTEGER; 

017113 dbhSampleSize: INTEGER; 

017114 dbhCompressionID: INTEGER; 

017115 dbhPacketSize: INTEGER; 

017116 dbhSampleRate: Fixed; 

017117 dbhBufferPtr: ARRAY [0..1] OF SndDoubleBuf ferPtr; 

017118 dbhDoubleBack: ProcPtr; 
.017119 END ; 
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017120 
017121 

017122 FUNCTION SndDoCommand { chan : SndChannelPtr ; cmd: SndCommand; noWait : BOOLEAN): OSErr; 

017123 INLINE $A803; 

017124 FUNCTION SndDoImmediate (chan : SndChannelPtr; cmd : SndCommand): OSErr; 

017125 INLINE $A804; 

017126 FUNCTION SndNewChannel (VAR chan: SndChannelPtr; synth : INTEGER; init : LONGINT; 

017127 userRoutine: ProcPtr): OSErr; 

017128 INLINE $A807; 

017129 FUNCTION SndDisposeChannel (chan : SndChannelPtr; quietNow : BOOLEAN): OSErr; 

017130 INLINE 5A801; 

017131 FUNCTION SndPlay (chan : SndChannelPtr ; sndHdl : Handle; async : BOOLEAN): OSErr; 

017132 INLINE $A805; 

017133 FUNCTION SndAddModif ier (chan : SndChannelPtr; modifier : ProcPtr; id: INTEGER; 

017134 init: LONGINT): OSErr; 

017135 INLINE $A802; 

017136 FUNCTION SndControl (id : INTEGER; VAR cmd: SndCommand): OSErr; 

017137 INLINE $A806; 
017138 

017139 PROCEDURE SetSoundVol (level : INTEGER); 

017140 PROCEDURE GetSoundVol (VAR level: INTEGER); 

017141 PROCEDURE Start Sound (synthRec : Ptr; numBytes : LONGINT; completionRtn : ProcPtr); 

017142 PROCEDURE StopSound; 

017143 FUNCTION SoundDone : BOOLEAN; 
017144 

017145 FUNCTION SndSoundManagerVersion : NumVersion; 

017146 INLINE $203C, $000C, $0008, $A800; 

017147 FUNCTION SndStartFilePlay ( chan : SndChannelPtr ; fRefNum: INTEGER; resNum: INTEGER; 

017148 bufferSize: LONGINT; theBuffer : Ptr; theSelection: AudioSelectionPtr; theCompletion : ProcPtr; 

017149 async: BOOLEAN) : OSErr; 

017150 INLINE $203C, $0D00, $0008, $A800; 

017151 FUNCTION SndPauseFilePlay ( chan : SndChannelPtr): OSErr; 

017152 INLINE $203C, $0204 , $0008, $A800 ; 

017153 FUNCTION SndStopFilePlay (chan : SndChannelPtr ; async : BOOLEAN): OSErr; 

017154 INLINE $2 03C, $0308 , $0008 , $A800 ; 

017155 FUNCTION SndChannelStatus ( chan : SndChannelPtr ; theLength : INTEGER; theStatus : SCStatusPtr) : OSErr; 

017156 INLINE $203C, $0010, $0008, $A800; 

017157 FUNCTION SndManagerStatus (theLength : INTEGER; theStatus : SMStatusPtr) : OSErr; 

017158 INLINE $203C, $0014 , $0008 , $A800 ; 

017159 PROCEDURE SndGetSysBeepState (VAR sysBeepState : INTEGER); 

017160 INLINE $2a3C, $0018, $0008, $A800; 

017161 FUNCTION SndSetSysBeepState ( SysBeepState : INTEGER): OSErr; 

017162 INLINE $203C, $001C, $0008, $A80a ; 

017163 FUNCTION SndPlayDoubleBuf f er (chan : SndChannelPtr; theParams : SndDoubleBufferHeaderPtr) : OSErr; 

017164 INLINE $203C, $0020 , $0008, $A800 ; 
017165 

017166 FUNCTION MACEVersion: NumVersion; 

017167 INLINE $2030, $0000 , $0010, $A800 ; 

017168 PROCEDURE Comp3tol ( inBuf f er : Ptr; outBuf f er : Ptr;cnt: LONGINT; instate : Ptr; 

017169 outState: Ptr; numChannels : LONGINT; whichChannel : LONGINT); 

017170 INLINE $2030, $0004 , $0010, $A80a ; 

017171 PROCEDURE Explto3 ( inBuf fer : Ptr; outBuf f er : Ptr;cnt: LONGINT; instate : Ptr; 

017172 outState: Ptr; numChannels : LONGINT; whichChannel : LONGINT); 

017173 INLINE $2030, $0008 , $0010, $A800 ; 

017174 PROCEDURE Competol ( inBuf fer : Ptr ; outBuf fer : Ptr;cnt: LONGINT; instate : Ptr; 

017175 outState: Ptr; numChannels : LONGINT; whichChannel : LONGINT); 
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017176 INLINE $203C, $000C, $0010, $A800 ; 

017177 PROCEDURE Explto6 { inBuf f er : Ptr; outBuf f er : Ptr;cnt: LONGINT; Instate : 

017178 outState: Ptr; numChannels : LONGINT; whichChannel : LONGINT); 

017179 INLINE $2 03C, $0010 , $0010 , $A800 ; 
017180 

017181 

017182 {$ENDC) { UslngSound } 

017183 

017184 {$IFC NOT Uslnglncludes ) 

017185 END. 

017186 {$ENDC} 
017187 

017188 

017189 ### END OF FILE Sound. p 

017190 
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017191 
017192 
017193 
017194 
017195 
017196 
017197 
017198 
017199 
017200 
017201 
017202 
017203 
017204 
017205 
017206 
017207 
017208 
017209 
017210 
017211 
017212 
017213 
017214 
017215 
017216 
017217 
017218 
017219 
017220 
017221 
017222 
017223 
017224 
017225 
017226 
017227 
017228 
017229 
017230 
017231 
017232 
017233 
017234 
017235 
017236 
017237 
017238 
017239 
017240 
017241 
017242 
017243 
017244 
017245 
017246 



##################################################################### 
### FILE: Soundlnput.p 
##################################################################### 



Created: Tuesday, September 10, 1991 at 2:15 PM 
Soundlnput . p 
Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 1990-1991 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 
{$ENDC) 

{$IFC NOT Usinglncludes) 

UNIT Soundlnput; 

INTERFACE 
{$ENDC} 

{$IFC UNDEFINED UsingSoundlnput ) 
{$SETC UsingSoundlnput := 1) 

{$!+) 

{SSETC Soundlnputlncludes := Usinglncludes} 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingTypes) 

{$1 $$Shell (Plnterfaces)Types.p) 

{$ENDC) 

{$IFC UNDEFINED UsingDialogs ) 

{$1 $$ Shell (P Interfaces) Dialogs .p} 

{$ENDC) 

{$IFC UNDEFINED UsingFiles) 

{$1 $$Shell (Plnterfaces)Files.p) 

{$ENDC) 

{SSETC Usinglncludes :^ Soundlnputlncludes) 



CONST 

siDevicelsConnected ^ 1; 
siDeviceNotConnected - 0; 
siDontKnowIf Connected - -1; 
siReadPermission - 0; 
siWritePerraission - 1; 



{ input device is connected and ready for input 

{ input device is not connected ) 

{ can't tell if input device is connected ) 

{ permission passed to SPBOpenDevice } 

{ permission passed to SPBOpenDevice } 



{ Info Selectors for Sound Input Drivers } 



siDeviceConnected - ' dcon ' ; 
siAGCOnOff = 'age ' ; 
siPlayThruOnOff = 'pith'; 
siTwosComplementOnOf f ^ 'twos' 
siLevelMeterOnOf f = ' Imet ' ; 
siRecordingQuality — 'qual'; 



{ input device connection status } 

{ automatic gain control state ) 

{ playthrough state ) 

{ two's complement state } 

{ level meter state ) 

{ recording quality ) 
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017247 


siVoxRecordInf o ^ 'voxr'; 


VOX record parameters ) 




017248 


siVoxStopInf o ^ 'voxs'; 


VOX stop parameters } 




017249 


siNumberChannels ^ ' chan ' ; 


current number of channels } 




017250 


siSampleSize ^ ' ssiz ' ; 


current sample size } 




017251 


siSampleRate ^ ' srat ' ; 


current sample rate } 




017252 


siCompressionType ^ ' comp ' ; 


current compression type ) 




017253 


siCompressionFactor ^ ' cmf a ' ; 


current compression factor } 




017254 


siCompressionHeader ^ 'cmhd'; 


return compression header ) 




017255 


siDeviceName ^ 'name'; 


input device name ) 




017256 


siDevicelcon ^ 'icon'; 


input device icon ) 




017257 


siDeviceBuf f erinf o = 'dbin'; 


size of interrupt buffer } 




017258 


siSampleSizeAvailable = 'ssav'; 


sample sizes available } 




017259 


siSampleRateAvailable = 'srav'; 


sample rates available } 




017260 


siCompressionAvailable = ' cmav ' ; 


compression types available } 




017261 


siChannelAvailable = 'chav'; 


number of channels available } 




017262 


siAsync ^ 'asyn'; 


asynchronous capability } 




017263 


siOptionsDialog ^ 'optd'; 


display options dialog } 




017264 


siContinuous ^ ' cont ' ; 


continous recording } 




017265 


siActiveChannels ^ ' chac ' ; 


active channels } 




017266 


siActiveLevels = ' Imac ' ; 


active meter levels } 




017267 


silnputSource = 'sour'; 


input source selector ) 




017268 


silnitializeDriver = ' init ' ; 


reserved for internal use only } 




017269 


siCloseDriver ^ 'clos'; 


reserved for internal use only } 




017270 


siPauseRecording ^ 'paus'; 


reserved for internal use only } 




017271 


siUserlnterruptProc ^ 'user'; 


reserved for internal use only } 




017272 








017273 


{ Qualities ) 






017274 


siBestQuality ^ 'best'; 






017275 


siBetterQuality ^ 'betr'; 






017276 


siGoodQuality = 'good'; 






017277 








017278 


TYPE 






017279 


{ Sound Input Parameter Block ) 






017280 


SPBPtr = "SPB; 






017281 


SPB = RECORD 






017282 


InRefNum: LONGINT; 


reference number of sound input device } 




017283 


count: LONGINT; 


number of bytes to record } 




017284 


milliseconds: LONGINT; 


number of milliseconds to record } 




017285 


buf ferLength: LONGINT; 


length of buffer in bytes } 




017286 


bufferPtr: Ptr; 


buffer to store sound data in ) 




017287 


completionRoutine : ProcPtr; 


completion routine } 




017288 


interruptRoutine : ProcPtr; 


interrupt routine ) 




017289 


userLong: LONGINT; 


user-defined field } 




017290 


error: OSErr; 


error ) 




017291 


unusedl: LONGINT; 


reserved - must be zero } 




017292 


END; 






017293 








017294 








017295 


FUNCTION SPBVersion: NumVersion; 






017296 


INLINE $203C, $0000, $0014, $A800; 






017297 


FUNCTION SndRecord(filterProc: Modall 


"ilterProcPtr; corner : Point ; quality : OSType; 




017298 


VAR sndHandle: Handle): OSErr; 






017299 


INLINE $203C, $0804, $0014, $A800; 






017300 


FUNCTION SndRecordToFile (filterProc: 


ModalFilterProcPtr; corner : Point ; quality : OSType; 




017301 


fRefNum: INTEGER) : OSErr; 






017302 


INLINE $203C, $0708, $0014, $A800; 
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017303 FUNCTION SPBSlgnlnDevice (cieviceRef Num: INTEGER; deviceName : Str255): OSErr; 

017304 INLINE $203C, $030C, $0014 , $A800 ; 

017305 FUNCTION SPBSignOutDevice (deviceRef Num: INTEGER): OSErr; 

017306 INLINE $203C, $0110 , $0014 , $A800 ; 

017307 FUNCTION SPBGetlndexedDevice (count : INTEGER;VAR deviceName: Str255;VAR devicelconHandle : Handle): OSErr; 

017308 INLINE $203C, $0514 , $0014 , $A800 ; 

017309 FUNCTION SPBOpenDevice (deviceName : Str255; permission : INTEGER; VAR inRefNum: LONGINT) : OSErr; 

017310 INLINE $203C, $0518, $0014, $A800; 

017311 FUNCTION SPBCloseDevice (inRefNum : LONGINT): OSErr; 

017312 INLINE $203C, $021C, $0014 , $A800 ; 

017313 FUNCTION SPBRecord ( inParamPtr : SPBPtr; asynchFlag : BOOLEAN): OSErr; 

017314 INLINE $2a3C, $0320, $0014 , $A800 ; 

017315 FUNCTION SPBRecordToFile ( f Ref Num : INTEGER; inParamPtr : SPBPtr ; asynchFlag : BOOLEAN): OSErr; 

017316 INLINE $203C, $0424, $0014, $A800; 

017317 FUNCTION SPBPauseRecording ( inRefNum : LONGINT): OSErr; 

017318 INLINE $203C, $0228 , $0014 , $A800 ; 

017319 FUNCTION SPBResumeRecording (inRefNum : LONGINT): OSErr; 

017320 INLINE $203C, $0220, $0014 , $A800 ; 

017321 FUNCTION SPBStopRecording { inRefNum: LONGINT): OSErr; 

017322 INLINE $203C, $02 30 , $0014 , $A800 ; 

017323 FUNCTION SPBGetRecordingStatus ( inRefNum : LONGINT; VAR recordingStatus : INTEGER; 

017324 VAR meterLevel: INTEGER;VAR totalSamplesToRecord: LONGINT;VAR numberOf SamplesRecorded: LONGINT; 

017325 VAR totalMsecsToRecord: LONGINT; VAR numberOfMsecsRecorded: LONGINT): OSErr; 

017326 INLINE $203C, $0E34 , $0014 , $A800 ; 

017327 FUNCTION SPBGetDeviceInf o { inRefNum: LONGINT; infoType : OSType; inf oData : Ptr) : OSErr; 

017328 INLINE $203C, $0 638 , $0014 , $A800 ; 

017329 FUNCTION SPBSetDeviceInf o { inRefNum: LONGINT; inf oType : OSType; inf oData : Ptr): OSErr; 

017330 INLINE $203C, $0 630, $0014 , $A800 ; 

017331 FUNCTION SPBMillisecondsToBytes (inRefNum : LONGINT; VAR milliseconds : LONGINT): OSErr; 

017332 INLINE $203C, $0440 , $0014 , $A800 ; 

017333 FUNCTION SPBBytesToMilliseconds (inRefNum : LONGINT; VAR byteCount : LONGINT): OSErr; 

017334 INLINE $203C, $0444 , $0014, $A800 ; 

017335 FUNCTION SetupSndHeader (sndHandle : Handle; numChannels : INTEGER; sampleRate : Fixed; 

017336 sampleSize: INTEGER; compressionType : OSType; baseNote : INTEGER; numBytes : LONGINT; 

017337 VAR headerLen: INTEGER) : OSErr; 

017338 INLINE $203C, $0D48 , $0014 , $A800 ; 

017339 FUNCTION SetupAIFFHeader ( f Ref Num: INTEGER; numChannels : INTEGER; sampleRate : Fixed; 

017340 sampleSize: INTEGER; compressionType : OSType; numBytes : LONGINT; numFrames : LONGINT): OSErr; 

017341 INLINE $203C, $0B4C, $0014 , $A800 ; 
017342 

017343 

017344 {$ENDC) { UsingSoundlnput } 

017345 

017346 {$IFC NOT Usinglncludes } 

017347 END. 

017348 {$ENDC} 
017349 

017350 

017351 ### END OF FILE Soundlnput.p 

017352 
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017353 






017354 


##################################################################### 




017355 


### FILE: StandardFile.p 




017356 


##################################################################### 




017357 






017358 


{ 




017359 


Created: Sunday, January 6, 1991 at 11:19 PM 




017360 


StandardFile .p 




017361 


Pascal Interface to the Macintosh Libraries 




017362 






017363 


Copyright Apple Computer, Inc. 1990 




017364 


All rights reserved 




017365 






017366 


) 




017367 






017368 






017369 


{$IFC UNDEFINED Usinglncludes } 




017370 


{$SETC Usinglncludes := 0} 




017371 


{$ENDC) 




017372 






017373 


{$IFC NOT Usinglncludes) 




017374 


UNIT StandardFile; 




017375 


INTERFACE 




017376 


{$ENDC} 




017377 






017378 


{$IFC UNDEFINED UsingStandardFile } 




017379 


{$SETC UsingStandardFile := 1} 




017380 






017381 


{$1+) 




017382 


{$SETC StandardFilelncludes := Usinglncludes) 




017383 


{$SETC Usinglncludes := 1} 




017384 


{$IFC UNDEFINED UsingTypes} 




017385 


{$1 $$Shell (PInterfaces) Types. p) 




017386 


{$ENDC} 




017387 


{$IFC UNDEFINED UsingDialogs ) 




017388 


{$1 5$ Shell (PInterfaces) Dialogs .p} 




017389 


{$ENDC) 




017390 


{$IFC UNDEFINED UsingFiles) 




017391 


{$1 $$Shell(PInterfaces)Files.p) 




017392 


{$ENDC) 




017393 


{$SETC Usinglncludes := StandardFilelncludes) 




017394 






017395 


CONST 




017396 






017397 


{ resource IDs and item offsets of pre-7.0 dialogs ) 




017398 


putDlgID = -3999; 




017399 


put Save ^ 1; 




017400 


putCancel = 2; 




017401 


putEject = 5; 




017402 


putDrive ^ 6; 




017403 


putName ^ 7; 




017404 






017405 


getDlgID = -4000; 




017406 


getOpen ^ 1; 




017407 


getCancel ^ 3; 




017408 


getEiect = 5; 


J 
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017409 getDrlve = 6; 

017410 getNmList = 7; 

017411 getScroll = 8; 
017412 

017413 { resource IDs and item offsets of 7.0 dialogs } 

017414 sfPutDialogID = -6043; 

017415 sfGetDialogID = -6042; 

017416 sf ItemOpenButton = 1; 

017417 sf ItemCancelButton = 2; 

017418 sf ItemBalloonHelp = 3; 

017419 sf ItemVolumeUser = 4; 

017420 sf ItemEjectButton = 5; 

017421 sf ItemDesktopButton = 6; 

017422 sf ItemFileListUser = 7; 

017423 sf ItemPopUpMenuUser = 8; 

017424 sf ItemDividerLinePict = 9; 

017425 sf ItemFileNameTextEdlt = 10; 

017426 sf ItemPromptStaticText = 11; 

017427 sfltemNewFolderUser = 12; 
017428 

017429 

017430 { pseudo-item hits for use in DlgHook } 

017431 sfHookFirstCall = -1; 

017432 sfHookCharOf fset = $1000; 

017433 sfHookNullEvent = 100; 

017434 sfHookRebuildList = 101; 

017435 sfHookFolderPopUp = 102; 

017436 sfHookOpenFolder = 103; 
017437 

017438 

017439 { the following are only in system 7.0+ } 

017440 sfHookOpenAlias = 104; 

017441 sfHookGoToDesktop = 105; 

017442 sfHookGoToAliasTarget = 106; 

017443 sfHookGoToParent = 107; 

017444 sfHookGoToNextDrive = 108; 

017445 sfHookGoToPrevDrive = 109; 

017446 sfHookChangeSelection = 110; 

017447 sfHookSetActiveOf fset = 200; 

017448 sfHookLastCall = -2; 
017449 

017450 { the refcon field of the dialog record during a 

017451 modalfilter or dialoghook contains one of the following } 

017452 sfMainDialogRefCon = 'stdf; 

017453 sfNewFolderDialogRefCon = 'nfdr'; 

017454 sfReplaceDialogRefCon = ' rplc ' ; 

017455 sfStatWarnDialogRefCon = 'stat'; 

017456 sfLockWarnDialogRefCon = 'lock'; 

017457 sfErrorDialogRefCon = 'err '; 
017458 

017459 TYPE 

0174 60 SFReply = RECORD 

017461 good: BOOLEAN; 

0174 62 copy: BOOLEAN; 

017463 fType: OSType; 

017464 vRefNum: INTEGER; 
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017465 
017466 
017467 
017468 
017469 
017470 
017471 
017472 
017473 
017474 
017475 
017476 
017477 
017478 
017479 
017480 
017481 
017482 
017483 
017484 
017485 
017486 
017487 
017488 
017489 
017490 
017491 
017492 
017493 
017494 
017495 
017496 
017497 
017498 
017499 
017500 
017501 
017502 
017503 
017504 
017505 
017506 
017507 
017508 
017509 
017510 
017511 
017512 
017513 
017514 
017515 
017516 
017517 
017518 
017519 
017520 



version: INTEGER; 
fName: Str63; 
END; 

StandardFileReply = RECORD 
sfGood: BOOLEAN; 
sfReplacing: BOOLEAN; 
sfType: OSType; 
sfFile: FSSpec; 
sf Script: ScrlptCode; 
sfFlags: INTEGER; 
sflsFolder: BOOLEAN; 
sflsVolume: BOOLEAN; 
sfReservedl: LONGINT; 
sfReserved2: INTEGER; 
END; 



DlgHookProcPtr = ProcPtr; 
FileFilterProcPtr = ProcPtr; 



{ FUNCTION Hook(item: INTEGER; theDialog: DialogPtr) : INTEGER; 
{ FUNCTION FlleFllter (PB: CInfoPBPtr) : BOOLEAN; ) 



{ the following also include an extra parameter of "your data pointer" } 

DigHookYDProcPtr = ProcPtr; { FUNCTION Hook(item: INTEGER; theDialog: DialogPtr; yourDataPtr: Ptr) : INTEGER; ) 

ModalFilterYDProcPtr = ProcPtr; { FUNCTION Filter (theDialog : DialogPtr; VAR theEvent : EventRecord; VAR itemHit : INTEGER 

FileFilterYDProcPtr = ProcPtr; { FUNCTION FileFilter (PB : CInfoPBPtr; yourDataPtr: Ptr): BOOLEAN; ) 

ActivateYDProcPtr = ProcPtr; { PROCEDURE Activate (theDialog; DialogPtr; itemNo: INTEGER; activating: BOOLEAN; yourDataPtr 

SFTypeList = ARRAY [0..3] OF OSType; 

PROCEDURE SFPutFile (where: Point; 

prompt: Str255; 
origName: Str255; 
dlgHook: DlgHookProcPtr; 
VAR reply: SFReply) ; 
INLINE $3F3C, $0001, $A9EA; 

PROCEDURE SFGetFile (where: Point; 

prompt: Str255; 

fileFilter: FileFilterProcPtr; 
numTypes: INTEGER; 
typeList: SFTypeList; 
dlgHook: DlgHookProcPtr; 
VAR reply: SFReply); 
INLINE $3F3C, $0002, $A9EA; 

PROCEDURE SFPPutFile (where: Point; 

prompt: Str255; 
origName: Str255; 
dlgHook: DlgHookProcPtr; 
VAR reply: SFReply; 
dlglD: INTEGER; 

filterProc: ModalFilterProcPtr) ; 
INLINE $3F3C, $0003, $A9EA; 

PROCEDURE SFPGetFile (where: Point; 

prompt: Str255; 



yourDataPtr: Ptr) 
Ptr); ) 
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017521 






fiieFiiter: FiieFiiterProcPtr; 




017522 






numlypes: INTEGER; 




017523 






typeList: SFTypeList; 




017524 






dlgHook: DlgHookProcPtr; 




017525 






VAR reply: SFReply; 




017526 






dlglD: INTEGER; 




017527 






filterProc: ModalFilterProcPtr) ; 




017528 


INLINE 


$3F3C, 


$0004,$A9EA; 




017529 










017530 


PROCEDURE 


StandardPutFile (prompt : Str255; 




017531 






defaultName: Str255; 




017532 






VAR reply: StandardFileReply) ; 




017533 


INLINE 


$3F3C, 


$0005,$A9EA; 




017534 










017535 


PROCEDURE 


StandardGetFile (fileF titer: FiieFiiterProcPtr; 




017536 






numTypes : INTEGER; 




017537 






typeList: SFTypeList; 




017538 






VAR reply: StandardFileReply); 




017539 


INLINE 


$3F3C, 


$0006,$A9EA; 




017540 










017541 


PROCEDURE 


CustomPutFile (prompt : Str255; 




017542 






defaultName: Str255; 




017543 






VAR reply: StandardFileReply; 




017544 






dlglD: INTEGER; 




017545 






where: Point; 




017546 






dlgHook: DlgHookYDProcPtr; 




017547 






filterProc: ModalFilterYDProcPtr; 




017548 






activeList: Ptr; 




017549 






activateProc : ActivateYDProcPtr; 




017550 






yourDataPtr: UNIV Ptr) ; 




017551 


INLINE 


$3F3C, 


$0007,$A9EA; 




017552 










017553 


PROCEDURE 


CustomGetFile (fiieFiiter: FiieFiiterYDProcPtr; 




017554 






numTypes: INTEGER; 




017555 






typeList: SFTypeList; 




017556 






VAR reply: StandardFileReply; 




017557 






dlglD: INTEGER; 




017558 






where: Point; 




017559 






dlgHook: DlgHookYDProcPtr; 




017560 






filterProc : ModalFilterYDProcPtr; 




017561 






activeList: Ptr; 




017562 






activateProc : ActivateYDProcPtr; 




017563 






yourDataPtr: UNIV Ptr) ; 




017564 


INLINE 


$3F3C, 


$0008,$A9EA; 




017565 










017566 










017567 


{ 








017568 


New StandardFile routine comments; 




017569 










017570 


activeList is 


pointer to array of integer (16-bits) . 




017571 


first 


integer is length of list . 




017572 


following integers are possible activatable DITL items, in 




017573 


the or 


der that the tab key will cycle through. The first 




017574 


in the 


list is the item made active when dialog is first shown. 




017575 










017576 


activateProc 


is a pointer to a procedure like; 


J 
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017577 

017578 PROCEDURE MyActivateProc (theDialog : DialogPtr; 

017579 itemNo: INTEGER; 

017580 activating: BOOLEAN; 

017581 yourDataPtr: Ptr) ; 
017582 

017583 The activateProc is called with activating^FALSE on the itemNo 

017584 about to deactivate then with activating—TRUE on the itemNo 

017585 about to become the active item, (like activate event) 
017586 

017587 yourDataPtr is a nice little extra that makes life easier without 

017588 globals . CustomGetFile & CustomPPutFile when calling any of their 

017589 call back procedures, pushes the extra parameter of yourDataPtr on 

017590 the stack. 
017591 

017592 In addition the filterProc in CustomGetFile s CustomPPutFile is called 

017593 before before SF does any mapping, instead of after. 

017594 } 
017595 
017596 
017597 

017598 {$ENDC) { UsingStandardFile ) 
017599 

017600 {$IFC NOT Usinglncludes ) 

017601 END. 

017602 {$ENDC} 
017603 

017604 

017605 ### END OF FILE StandardFile . p 

017606 
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017607 






017608 


##################################################################### 




017609 


### FILE: Start. p 




017610 


##################################################################### 




017611 






017612 


{ 




017613 


Created: Sunday, January 6, 1991 at 11:20 PM 




017614 


Start .p 




017615 


Pascal Interface to the Macintosh Libraries 




017616 






017617 


Copyright Apple Computer, Inc. 1987-1990 




017618 


All rights reserved 




017619 


) 




017620 






017621 






017622 


{$IFC UNDEFINED Usinglncludes } 




017623 


{$SETC Usinglncludes := 0} 




017624 


{$ENDC} 




017625 






017626 


{$IFC NOT Usinglncludes} 




017627 


UNIT Start; 




017628 


INTERFACE 




017629 


{$ENDC) 




017630 






017631 


{$IFC UNDEFINED UsingStart} 




017632 


{$SETC UsingStart := 1) 




017633 






017634 


{$1+) 




017635 


{$SETC Startlncludes := Usinglncludes} 




017636 


{$SETC Usinglncludes := 1} 




017637 


{$IFC UNDEFINED UsingTypes} 




017638 


{$1 $$Shell (PInterfaces) Types. p} 




017639 


{$ENDC} 




017640 


{$SETC Usinglncludes := Startlncludes} 




017641 






017642 


TYPE 




017643 


DefStartType = (slotDev, scsiDev) ; 




017644 






017645 






017646 


DefStartPtr = '"Def StartRec; 




017647 


DefStartRec = RECORD 




017648 


CASE DefStartType OF 




017649 


slotDev: 




017650 


(sdExtDevID: SignedByte; 




017651 


sdPartition: SignedByte; 




017652 


sdSlotNum: SignedByte; 




017653 


sdSRsrcID: SignedByte); 




017654 


scsiDev: 




017655 


(sdReservedl : SignedByte; 




017656 


sdReserved2 : SignedByte; 




017657 


sdRefNum: INTEGER); 




017658 


END; 




017659 






017660 


DefVideoPtr = ^DefVideoRec; 




017661 


DefVideoRec = RECORD 




017662 


sdSlot: SignedByte; 


J 
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017563 sdsResource : SignedByte; 

017 6 6 4 END ; 

017665 

017666 DefOSPtr = ^DefOSRec; 

017667 DefOSRec = RECORD 

017668 sdReserved: SignedByte; 

017669 sdOSType: SignedByte; 

017670 END; 
017671 

017672 

017673 PROCEDURE GetDef aultStartup (paramBlock : Def StartPtr ) ; 

017674 INLINE $205F,$A07D; 

017675 PROCEDURE SetDef aultStartup (paramBlock : Def StartPtr) , 

017676 INLINE $205F,$A07E; 

017677 PROCEDURE GetVideoDefauIt (paramBlock : DefVideoPtr) ; 

017678 INLINE $205F,$A080; 

017679 PROCEDURE SetVideoDefauIt (paramBlock : DefVideoPtr); 

017680 INLINE $205F,$A081; 

017681 PROCEDURE GetOSDefault (paramBlock : DefOSPtr); 

017682 INLINE $205F,$A084; 

017683 PROCEDURE SetOSDefault (paramBlock : DefOSPtr); 

017684 INLINE $205F,$A083; 

017685 PROCEDURE SetTimeout (count : INTEGER); 

017686 PROCEDURE GetTimeout (VAR count: INTEGER); 
017687 

017688 

017689 {$ENDC) { UsingStart ) 

017690 

017691 {$IFC NOT Usinglncludes ) 

017692 END. 

017693 {$ENDC} 
017694 

017695 

017696 ### END OF FILE Start. p 

017697 
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017698 

017 69 9 ##################################################################### 

017700 ### FILE: Strings. p 

017701 ##################################################################### 
017702 

017703 { 

017704 Created: Friday, October 20, 1989 at 3:26 PM 

017705 Strings. p 

017706 Pascal Interface to the Macintosh Libraries 
017707 

017708 Copyright Apple Computer, Inc. 1985-1989 

017709 All rights reserved 

017710 ) 
017711 
017712 

017713 {$IFC UNDEFINED Usinglncludes } 

017714 {$SETC Usinglncludes := 0} 

017715 {$ENDC} 
017716 

017717 {$IFC NOT Usinglncludes) 

017718 UNIT Strings; 

017719 INTERFACE 

017720 {$ENDC) 
017721 

017722 {$IFC UNDEFINED UsingStrings ) 

017723 {$SETC UsingStrings := 1) 
017724 

017725 {$1+) 

017726 {$SETC Stringslncludes := Usinglncludes) 

017727 {$SETC Usinglncludes := 1} 

017728 {$IFC UNDEFINED UsingTypes) 

017729 {$1 $$Shell (PInterfaces) Types. p) 

017730 {$ENDC) 

017731 {$SETC Usinglncludes := Stringslncludes) 
017732 

017733 

017734 FUNCTION C2PStr (cString : UNIV Ptr): StringPtr; 

017735 PROCEDURE C2PStrProc (cString : UNIV Ptr); 

017736 FUNCTION P2CStr (pString : StringPtr): Ptr; 

017737 PROCEDURE P2CStrProc (pString : StringPtr); 
017738 

017739 {$ENDC) { UsingStrings ) 
017740 

017741 {$IFC NOT Usinglncludes) 

017742 END. 

017743 {$ENDC} 
017744 

017745 

017746 ### END OF FILE Strings. p 

017747 
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017748 












017749 


##################################################################### 




017750 


### FILE: SysEqu.p 










017751 


##################################################################### 




017752 












017753 












017754 


{ 










017755 


Created: Friday, November 15, 1991 at 9:35 AM 






017756 


SysEqu .p 










017757 


Pascal Interface to the Macintosh Libraries 






017758 












017759 


Copyright Apple Computer, Inc. 


1985-1991 






017760 


All rights reserved 










017761 


) 










017762 












017763 












017764 


{$IFC UNDEFINED Usinglncludes } 










017765 


{$SETC Usinglncludes := 0} 










017766 


{$ENDC) 










017767 












017768 


{$IFC NOT Usinglncludes) 










017769 


UNIT SysEqu; 










017770 


INTERFACE 










017771 


{$ENDC} 










017772 












017773 


{$IFC UNDEFINED UsingSysEqu) 










017774 


{$SETC UsingSysEqu := 1) 










017775 












017776 












017777 


CONST 










017778 


PCDeskPat = 520B; 


[GLOBAL 


VAR] 


desktop pat, top bit only! others are in use} 




017779 


HiKeyLast = $216; 


[GLOBAL 


VAR] 


Same as KbdVars} 




017780 


KbdLast = $218; 


[GLOBAL 


VAR] 


Same as KbdVars+2 ) 




017781 


ExpandMem = $2B6; 


[GLOBAL 


VAR] 


pointer to expanded memory block) 




017782 


SCSIBase = $0C00; 


[GLOBAL 


VAR] 


(long) base address for SOSI chip read} 




017783 


SCSIDMA = $0004; 


[GLOBAL 


VAR] 


(long) base address for SOSI DMA) 




017784 


SCSIHsk = $0008; 


[GLOBAL 


VAR] 


(long) base address for SOSI handshake} 




017785 


SCSIGlobals = $0000; 


[GLOBAL 


VAR] 


(long) ptr for SOSI mgr locals} 




017786 


RGBBlack = $0010; 


[GLOBAL 


VAR] 


(6 bytes) the black field for color) 




017787 


RGBWhite = $0016; 


[GLOBAL 


VAR] 


(6 bytes) the white field for color} 




017788 


RowBits = $0020; 


[GLOBAL 


VAR] 


(word) screen horizontal pixels) 




017789 


OolLines = $0022; 


[GLOBAL 


VAR] 


(word) screen vertical pixels) 




017790 


ScreenBytes = $0024; 


[GLOBAL 


VAR] 


(long) total screen bytes) 




017791 


NMIFlag = $0020; 


[GLOBAL 


VAR] 


(byte) flag for NMI debounce) 




017792 


VidType = $002D; 


[GLOBAL 


VAR] 


(byte) video board type ID} 




017793 


VidMode = $002E; 


[GLOBAL 


VAR] 


(byte) video mode (4^4bit color)) 




017794 


SOSIPoll = $002F; 


[GLOBAL 


VAR] 


(byte) poll for device zero only once.} 




017795 


SEVarBase = $0030; 


[GLOBAL 


VAR] 


) 




017796 


MMUFlags = $0OB0; 


[GLOBAL 


VAR] 


(byte) cleared to zero (reserved for future use)) 




017797 


MMUType = $0OBl; 


[GLOBAL 


VAR] 


(byte) kind of MMU present} 




017798 


MMU32bit = $0OB2; 


[GLOBAL 


VAR] 


(byte) boolean reflecting current machine MMU mode} 




017799 


MMUFluff = $0OB3; 


[GLOBAL 


VAR] 


(byte) fluff byte forced by reducing MMUMode to MMU32bit . ) 




017800 


MMUTbl = $0OB4; 


[GLOBAL 


VAR] 


(long) pointer to MMU Mapping table} 




017801 


MMUTblSize = $0OB8; 


[GLOBAL 


VAR] 


(long) size of the MMU mapping table) 




017802 


SInfoPtr = $0OBO; 


[GLOBAL 


VAR] 


(long) pointer to Slot manager information} 




017803 


ASOBase = $0000; 


[GLOBAL 


VAR] 


(long) pointer to Sound Ohip) 
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017804 


SMGlobals = $0CC4; { 


(long) 


pointer to Sound Manager Globals} 




017805 


TheGDevice = $0CC8; { 


[GLOBAL 


VAR 


(long) the current graphics device} 




017806 


CQDGlobals = $OCCC; { 


(long) 


quickDraw global extensions) 




017807 


ADBBase = $0CF8; { 


[GLOBAL 


VAR 


(long) pointer to Front Desk Buss Variables} 




017808 


WarmStart = $0CFC; { 


[GLOBAL 


VAR 


(long) flag to indicate it is a warm start} 




017809 


TimeDBRA = $0D00; { 


[GLOBAL 


VAR 


(word) number of iterations of DBRA per millisecond} 




017810 


TimeSCCDB = $0D02; { 


[GLOBAL 


VAR 


(word) number of iter's of SCC access S DBRA.) 




017811 


SlotQDT = $0D04; { 


[GLOBAL 


VAR 


ptr to slot queue table} 




017812 


SlotPrTbl = $0D08; { 


[GLOBAL 


VAR 


ptr to slot priority table} 




017813 


SlotVBLQ = $ODOC; { 


[GLOBAL 


VAR 


ptr to slot VBL queue table} 




017814 


ScrnVBLPtr = $0D10; { 


[GLOBAL 


VAR 


save for ptr to main screen VBL queue) 




017815 


SlotTICKS = $0D14; { 


[GLOBAL 


VAR 


ptr to slot tickcount table} 




017816 


TableSeed = $0D20; { 


[GLOBAL 


VAR 


(long) seed value for color table ID ' s } 




017817 


SRsrcTblPtr = $0D24; { 


[GLOBAL 


VAR 


(long) pointer to slot resource table.} 




017818 


JVBLTask = $0D28; { 


[GLOBAL 


VAR 


vector to slot VBL task interrupt handler) 




017819 


WMgrCPort = $0D2C; { 


[GLOBAL 


VAR 


window manager color port } 




017820 


VertRRate = $0D30; { 


[GLOBAL 


VAR 


(word) Vertical refresh rate for start manager. ) 




017821 


ChunkyDepth = $OD60; { 


[GLOBAL 


VAR 


depth of the pixels} 




017822 


CrsrPtr = $0D62; { 


[GLOBAL 


VAR 


pointer to cursor save area} 




017823 


PortList = $0D66; { 


[GLOBAL 


VAR 


list of grafports) 




017824 


MickeyBytes = $0D6A; { 


[GLOBAL 


VAR 


long pointer to cursor stuff} 




017825 


QDErrLM = $0D6E; { 


[GLOBAL 


VAR 


QDErr has name conflict w/ type. QuickDraw error code [word]} 




017826 


VIA2DT = $0D70; { 


[GLOBAL 


VAR 


32 bytes for VIA2 dispatch table for NuMac} 




017827 


SInitFlags = $0D90; { 


[GLOBAL 


VAR 


Startlnit.a flags [word]} 




017828 


DTQueue = $0D92; { 


[GLOBAL 


VAR 


(10 bytes) deferred task queue header) 




017829 


DTQFlags = $0D92; { 


[GLOBAL 


VAR 


flag word for DTQueue) 




017830 


DTskQHdr = $0D94; { 


[GLOBAL 


VAR 


ptr to head of queue) 




017831 


DTskQTail = 50D98; { 


[GLOBAL 


VAR 


ptr to tail of queue} 




017832 


JDTInstall = $0D9C; { 


[GLOBAL 


VAR 


(long) ptr to deferred task install routine} 




017833 


HiliteRGB = $0DA0; { 


[GLOBAL 


VAR 


5 bytes: rgb of hilite color) 




017834 


TimeSCSIDB = $0B24; { 


[GLOBAL 


VAR 


(word) number of iter's of SCSI access s DBRA) 




017835 


DSCtrAdj = $0DA8; { 


[GLOBAL 


VAR 


(long) Center adjust for DS rect . ) 




017836 


IconTLAddr = $ODAC; { 


[GLOBAL 


VAR 


(long) pointer to where start icons are to be put.} 




017837 


VideoInfoOK = $ODBO; { 


[GLOBAL 


VAR 


(long) Signals to CritErr that the Video card is ok} 




017838 


EndSRTPtr = 50DB4; { 


[GLOBAL 


VAR 


(long) Pointer to the end of the Slot Resource Table (Not the SRT buffer) . } 




017839 


SDMJmpTblPtr = $0DB8; { 


[GLOBAL 


VAR 


(long) Pointer to the SDM jump table) 




017840 


JSwapMMU = $ODBC; { 


[GLOBAL 


VAR 


(long) jump vector to SwapMMU routine) 




017841 


SdmBusErr = $ODCO; { 


[GLOBAL 


VAR 


(long) Pointer to the SDM busErr handler) 




017842 


LastTxGDevice = $0DC4; { 


[GLOBAL 


VAR 


(long) copy of TheGDevice set up for fast text measure} 




017843 


NewCrsrJTbl = $88C; { 


[GLOBAL 


VAR 


location of new crsr jump vectors) 




017844 


JAllocCrsr = $88C; { 


[GLOBAL 


VAR 


(long) vector to routine that allocates cursor] 




017845 


JSetCCrsr = $890; { 


[GLOBAL 


VAR 


(long) vector to routine that sets color cursor] 




017846 


JOpcodeProc = $894; { 


[GLOBAL 


VAR 


(long) vector to process new picture opcodes) 




017847 


CrsrBase = $898; { 


[GLOBAL 


VAR 


(long) scrnBase for cursor] 




017848 


CrsrDevice = $89C; { 


[GLOBAL 


VAR 


(long) current cursor device) 




017849 


SrcDevice = $8A0; { 


[GLOBAL 


VAR 


(LONG) Src device for Stretchbits) 




017850 


MainDevice = $8A4; { 


[GLOBAL 


VAR 


(long) the main screen device) 




017851 


DeviceList = $8A8; { 


[GLOBAL 


VAR 


(long) list of display devices] 




017852 


CrsrRow = $8AC; { 


[GLOBAL 


VAR 


(word) rowbytes for current cursor screen) 




017853 


QDColors = $8B0; { 


[GLOBAL 


VAR 


(long) handle to default colors} 




017854 


HiliteMode = $938; { 


[GLOBAL 


VAR 


used for color highlighting] 




017855 


BusErrVct = $08; { 


[GLOBAL 


VAR 


bus error vector) 




017856 


RestProc = $A8C; { 


[GLOBAL 


VAR 


Resume procedure f InitDialogs [pointer] ) 




017857 


ROM85 = $28E; { 


[GLOBAL 


VAR 


(word) actually high bit - for ROM vers $75 (sic) and later) 




017858 


ROMMapHndl = $B0 6; { 


[GLOBAL 


VAR 


(long) handle of ROM resource map] 




017859 


ScrVRes = $102; { 


[GLOBAL 


VAR 


Pixels per inch vertically (word) 
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017860 


screen vertical dots/inch [word] } 










017861 


ScrHRes = $104; { [GLOBAL 


VAR] 


Pixels per inch horizontally (word) 






017862 


screen horizontal dots/inch [word] } 










017863 


ScrnBase = $824; { [GLOBAL 


VAR] 


Address of main screen buffer 






017864 


Screen Base [pointer] } 










017865 


ScreenRow = $106; { [GLOBAL 


VAR] 


rowBytes of screen [word] ) 






017866 


MBTiclts = $16E; { [GLOBAL 


VAR] 


tick count Q last mouse button [long] } 






017867 


JKybdTask = $21A; { [GLOBAL 


VAR] 


keyboard VBL task hook [pointer] } 






017868 


KeyLast = $184; { [GLOBAL 


VAR] 


ASCII for last valid keycode [word] } 






017869 


KeyTime = $186; { [GLOBAL 


VAR] 


tickcount when KEYLAST was rec'd [long]} 






017870 


KeyRepTime = $18A; ( [GLOBAL 


VAR] 


tickcount when key was last repeated [long]} 






017871 


SPConfig = $1FB; { [GLOBAL 


VAR] 


Use types for serial ports (byte) 






017872 


config bits: 4-7 A, 0-3 B (see use type below)} 






017873 


SPPortA = $1FC; { [GLOBAL 


VAR] 


Modem port configuration (word) 






017874 


sec port A configuration [word] } 










017875 


SPPortB = $1FE; { [GLOBAL 


VAR] 


Printer port configuration (word) 






017876 


sec port B configuration [word] } 










017877 


SCCRd = $1D8; { [GLOBAL 


VAR] 


sec read base address 






017878 


sec base read address [pointer] } 










017879 


SCCWr = $1DC; { [GLOBAL 


VAR] 


see write base address 






017880 


sec base write address [pointer] } 










017881 


DoubleTime = $2F0; { [GLOBAL 


VAR] 


Double-click interval in ticks (long) 






017882 


double click ticks [long]) 










017883 


CaretTime = $2F4; { [GLOBAL 


VAR] 


Caret-blink interval in ticks (long) 






017884 


caret blink ticks [long]} 










017885 


KeyThresti = $18E; { [GLOBAL 


VAR] 


Auto-key threshold (word) 






017886 


threshold for key repeat [word] } 










017887 


KeyRepThresh = $190; { [GLOBAL 


VAR] 


Auto-key rate (word) 






017888 


key repeat speed [word] } 










017889 


SdVolume = $260; { [GLOBAL 


VAR] 


Current speaker volume (byte: low-order three bits only) 






017890 


Global volume (sound) control [byte] } 










017891 


Ticks = $16A; { [GLOBAL 


VAR] 


Current number of ticks since system startup (long) 






017892 


Tick count, time since boot [unsigned 


long] } 






017893 


TimeLM = $200; { [GLOBAL 


VAR] 


Time has name conflict w/ type. Clock time (extrapolated) 


[long] } 




017894 


MonkeyLives = $100; { [GLOBAL 


VAR] 


monkey lives if >^ [word] } 






017895 


SEvtEnb = $15C; { [GLOBAL 


VAR] 


if SystemEvent should return FALSE (byte) 






017896 


enable SysEvent calls from GNE [byte] 










017897 


JournalFlag = $8DE; { [GLOBAL 


VAR] 


Journaling mode (word) 






017898 


journaling state [word] } 










017899 


JournalRef = $8E8; { [GLOBAL 


VAR] 


Reference number of journaling device driver (word) 






017900 


Journalling driver's refnum [word]} 










017901 


BufPtr = $10C; { [GLOBAL 


VAR] 


Address of end of jump table 






017902 


top of application memory [pointer] } 










017903 


StkLowPt = $110; { [GLOBAL 


VAR] 


Lowest stack as measured in VBL task [pointer] } 






017904 


TheZone = $118; { [GLOBAL 


VAR] 


Address of current heap zone 






017905 


current heap zone [pointer] } 










017906 


ApplLimit = $130; { [GLOBAL 


VAR] 


Application heap limit 






017907 


application limit [pointer] } 










017908 


SysZone = $2A6; { [GLOBAL 


VAR] 


Address of system heap zone 






017909 


system heap zone [pointer] } 










017910 


ApplZone = $2AA; { [GLOBAL 


VAR] 


Address of application heap zone 






017911 


application heap zone [pointer] } 










017912 


HeapEnd = $114; { [GLOBAL 


VAR] 


Address of end of application heap zone 






017913 


end of heap [pointer] ) 










017914 


HiHeapMark = $BAE; { [GLOBAL 


VAR] 


(long) highest address used by a zone below sp<01Nov85 JTO } 




017915 


MemErr = $220; { [GLOBAL 


VAR] 


last memory manager error [word] } 




J 
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017916 


UTableBase = $11C; 


{ [GLOBAL 


VAR] 


Base address of unit table 




017917 


unit I/O table [pointer] } 










017918 


UnitNtryCnt = $1D2; 


{ [GLOBAL 


VAR] 


count of entries in unit table [word] } 




017919 


JFetch = $8F4; 


{ [GLOBAL 


VAR] 


Jump vector for Fetch function 




017920 


fetch a byte routine for drivers [pointer] 


} 




017921 


JStasln = $8F8; 


{ [GLOBAL 


VAR] 


Jump vector for Stash function 




017922 


stash a byte routine for drivers [pointer] 


} 




017923 


JIODone = $8FC; 


{ [GLOBAL 


VAR] 


Jump vector for lODone function 




017924 


lODone entry location [pointer] } 








017925 


DrvQHdr = $308; 


{ [GLOBAL 


VAR] 


Drive queue header (10 bytes) 




017926 


queue header of drives in sy 


stem [10 bytes 


] } 




017927 


BootDrive = $210; 


{ [GLOBAL 


VAR] 


drive number of boot drive [word] } 




017928 


EjectNotify = $338; 


{ [GLOBAL 


VAR] 


eject notify procedure [pointer] } 




017929 


lAZNotify = $33C; 


{ [GLOBAL 


VAR] 


world swaps notify procedure [pointer] } 




017930 


SFSaveDis]< = $214; 


{ [GLOBAL 


VAR] 


Negative of volume reference number used by Standard File Paclcage (word) 




017931 


last vRefNura seen by standar 


d file [word] } 






017932 


CurDirStore = $398; 


{ [GLOBAL 


VAR] 


save dir across calls to Standard File [long]} 




017933 


OneOne = $A02; 


{ [GLOBAL 


VAR] 


$00010001 




017934 


constant $00010001 [long] } 










017935 


MinusOne = $A06; 


{ [GLOBAL 


VAR] 


$FFFFFFFF 




017936 


constant $FFFFFFFF [long] } 










017937 


LoSBytes = $31A; 


{ [GLOBAL 


VAR] 


$00FFFFFF 




017938 


constant $00FFFFFF [long] } 










017939 


ROMBase = $2AE; 


{ [GLOBAL 


VAR] 


Base address of ROM 




017940 


ROM base address [pointer] } 










017941 


RAMBase = $2B2; 


{ [GLOBAL 


VAR] 


Trap dispatch table's base address for routines in RAM 




017942 


RAM base address [pointer] } 










017943 


SysVersion = $15A; 


{ [GLOBAL 


VAR] 


version # of RAM-based system [word] } 




017944 


RndSeed = $156; 


{ [GLOBAL 


VAR] 


Random number seed (long) 




017945 


random seed/number [long]} 










017946 


Scratch20 = $1E4; 


{ [GLOBAL 


VAR] 


20-byte scratch area 




017947 


scratch [20 bytes] } 










017948 


ScratchS = $9FA; 


{ [GLOBAL 


VAR] 


8-byte scratch area 




017949 


scratch [8 bytes] ) 










017950 


ToolScratch = $9CE; 


{ [GLOBAL 


VAR] 


8-byte scratch area 




017951 


scratch [8 bytes] } 










017952 


ApplScratch = $A7 8; 


{ [GLOBAL 


VAR] 


12-byte application scratch area 




017953 


scratch [12 bytes] } 










017954 


ScrapSize = $960; 


{ [GLOBAL 


VAR] 


Size in bytes of deslc scrap (long) 




017955 


scrap length [long]} 










017956 


ScrapHandie = $964; 


{ [GLOBAL 


VAR] 


Handle to deslc scrap in memory 




017957 


memory scrap [handle]} 










017958 


ScrapCount = $968; 


{ [GLOBAL 


VAR] 


Count changed by ZeroScrap (word) 




017959 


validation byte [word] } 










017960 


ScrapState = $96A; 


{ [GLOBAL 


VAR] 


Tells where des>: scrap is (word) 




017961 


scrap state [word] } 










017962 


ScrapName = $960; 


{ [GLOBAL 


VAR] 


Pointer to scrap file name (preceded by length byte) 




017963 


pointer to scrap name [pointer] } 








017964 


IntlSpec = $BAO; 


{ [GLOBAL 


VAR] 


(long) - ptr to extra Intl data } 




017965 


SwitcherTPtr = $286; 


{ [GLOBAL 


VAR] 


Switcher's switch table } 




017966 


CPUFlag = $12F; 


{ [GLOBAL 


VAR] 


$00=68000, $01=68010, $02=68020 (old ROM inits to $00) } 




017967 


VIA = $1D4; 


{ [GLOBAL 


VAR] 


VIA base address 




017968 


VIA base address [pointer] } 










017969 


IWM = $1E0; 


{ [GLOBAL 


VAR] 


IWM base address [pointer] } 




017970 


LvllDT = $192; 


{ [GLOBAL 


VAR] 


Level-1 secondary interrupt vector table (32 bytes) 




017971 


Interrupt level 1 dispatch t 


able [32 bytes 


] } 
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017972 


Lvl2DT = $1B2; 




{ [GLOBAL 


VAR] 


Level-2 secondary interrupt vector table (32 bytes) 




017973 


Interrupt level 2 dispat 


ch 


table [32 bytes 


) 




017974 


ExtStsDT = $2BE; 




{ [GLOBAL 


VAR] 


External/status interrupt vector table {15 bytes) 




017975 


sec ext/sts secondary dispatch table 


16 bytes] ) 




017976 


SPValid = $1F8; 




{ [GLOBAL 


VAR] 


Validity status (byte) 




017977 


validation field ($A7) 


byt 


e] } 








017978 


SPATalkA = $1F9; 




{ [GLOBAL 


VAR] 


AppleTalk node ID hint for modem port (byte) 




017979 


AppleTalk node number hint 


for port A 








017980 


SPATalkB = $1FA; 




{ [GLOBAL 


VAR] 


AppleTalk node ID hint for printer port (byte) 




017981 


AppleTalk node number hint 


for port B 








017982 


SPAlarm = $200; 




{ [GLOBAL 


VAR] 


Alarm setting (long) 




017983 


alarm time [long]} 












017984 


SPFont = $204; 




{ [GLOBAL 


VAR] 


Application font number minus 1 (word) 




017985 


default application font 


number minus 


1 [word] } 




017986 


SPKbd = $206; 




{ [GLOBAL 


VAR] 


Auto-key threshold and rate (byte) 




017987 


kbd repeat thresh in 4/60tl 


s [2 4-bit] } 






017988 


SPPrint = $207; 




{ [GLOBAL 


VAR] 


Printer connection (byte) 




017989 


print stuff [byte] } 












017990 


SPVolCtl = $208; 




{ [GLOBAL 


VAR] 


Speaker volume setting in parameter RAM (byte) 




017991 


volume control [byte]} 












017992 


SPClikCaret = $209; 




{ [GLOBAL 


VAR] 


Double-click and caret-blink times (byte) 




017993 


double click/caret time 


in 


4/60ths[2 4-bit] ) 




017994 


SPMiscl = $20A; 




{ [GLOBAL 


VAR] 


miscellaneous [1 byte]} 




017995 


SPMisc2 = $20B; 




{ [GLOBAL 


VAR] 


Mouse scaling, system startup disk, menu blink (byte) 




017996 


miscellaneous [1 byte]} 












017997 


GetParam = $1E4; 




{ [GLOBAL 


VAR] 


system parameter scratch [20 bytes]} 




017998 


SysParam = $1F8; 




{ [GLOBAL 


VAR] 


Low-memory copy of parameter RAM (20 bytes) 




017999 


system parameter memory 


[2C 


bytes] } 








018000 


CrsrThresh = $8EC; 




{ [GLOBAL 


VAR] 


Mouse-scaling threshold (word) 




018001 


delta threshold for mouse scaling [word] } 






018002 


JCrsrTask = $8EE; 




{ [GLOBAL 


VAR] 


address of CrsrVBLTask [long] } 




018003 


MTemp = $828; 




{ [GLOBAL 


VAR] 


Low-level interrupt mouse location [long]} 




018004 


RawMouse = $82C; 




{ [GLOBAL 


VAR] 


un-jerked mouse coordinates [long] } 




018005 


CrsrRect = $83C; 




{ [GLOBAL 


VAR] 


Cursor hit rectangle [8 bytes]} 




018006 


TheCrsr = $844; 




{ [GLOBAL 


VAR] 


Cursor data, mask & hotspot [68 bytes]} 




018007 


CrsrAddr = $888; 




{ [GLOBAL 


VAR] 


Address of data under cursor [long]} 




018008 


CrsrSave = $88C; 




{ [GLOBAL 


VAR] 


data under the cursor [64 bytes] } 




018009 


CrsrVis = $8CC; 




{ [GLOBAL 


VAR] 


Cursor visible? [byte] } 




018010 


CrsrBusy = $8CD; 




{ [GLOBAL 


VAR] 


Cursor locked out? [byte]} 




018011 


CrsrNew = $8CE; 




{ [GLOBAL 


VAR] 


Cursor changed? [byte] } 




018012 


CrsrState = $8D0; 




{ [GLOBAL 


VAR] 


Cursor nesting level [word] } 




018013 


CrsrObscure = $8D2; 




{ [GLOBAL 


VAR] 


Cursor obscure semaphore [byte] } 




018014 


KbdVars = $216; 




{ [GLOBAL 


VAR] 


Keyboard manager variables [4 bytes]} 




018015 


KbdType = $21E; 




{ [GLOBAL 


VAR] 


keyboard model number [byte]} 




018016 


MBState = $172; 




{ [GLOBAL 


VAR] 


current mouse button state [byte]} 




018017 


KeyMapLM = $174; 




{ [GLOBAL 


VAR] 


KeyMap has name conflict w/ type. Bitmap of the keyboard [4 longs] } 




018018 


KeypadMap = $17C; 




{ [GLOBAL 


VAR] 


bitmap for numeric pad-18bits [long]} 




018019 


KeylTrans = $29E; 




{ [GLOBAL 


VAR] 


keyboard translator procedure [pointer] } 




018020 


Key2Trans = $2A2; 




{ [GLOBAL 


VAR] 


numeric keypad translator procedure [pointer] } 




018021 


JGNEFilter = $29A; 




{ [GLOBAL 


VAR] 


GetNextEvent filter proc [pointer] } 




018022 


KeyMVars = $B04; 




{ [GLOBAL 


VAR] 


(word) for ROM KEYM proc state} 




018023 


Mouse = $830; 




{ [GLOBAL 


VAR] 


processed mouse coordinate [long]} 




018024 


CrsrPin = $834; 




{ [GLOBAL 


VAR] 


cursor pinning rectangle [8 bytes]} 




018025 


CrsrCouple = $8CF; 




{ [GLOBAL 


VAR] 


cursor coupled to mouse? [byte] } 




018026 


CrsrScale = $8D3; 




{ [GLOBAL 


VAR] 


cursor scaled? [byte]} 




018027 


MouseMask = $8D6; 




{ [GLOBAL 


VAR] 


V-H mask for ANDinq with mouse [long] } 
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018028 


MouseOffset = $8DA; 


{ [GLOBAL 


VAR] 


V-H offset for adding after ANDing [long] ) 




018029 


AlarmState = $21F; 


{ [GLOBAL 


VAR] 


Bit7=parity, Bit6=beeped, BitO=enable [byte] ) 




018030 


VBLQueue = $160; 


{ [GLOBAL 


VAR] 


Vertical retrace queue header (10 bytes) 




018031 


VBL queue header [10 bytes]} 










018032 


SysEvtMask = $144; 


{ [GLOBAL 


VAR] 


System event mask (word) 




018033 


system event mask [word] } 










018034 


SysEvtBuf = $146; 


{ [GLOBAL 


VAR] 


system event queue element buffer [pointer] } 




018035 


EventQueue = $14A; 


{ [GLOBAL 


VAR] 


Event queue header (10 bytes) 




018036 


event queue header [10 bytes 


1 ) 








018037 


EvtBufCnt = $154; 


{ [GLOBAL 


VAR] 


max number of events in SysEvtBuf - 1 [word] ) 




018038 


GZRootHnd = $328; 


{ [GLOBAL 


VAR] 


Handle to relocatable block not to be moved by grow zone function 




018039 


root handle for GrowZone [ha 


ndle] ) 








018040 


GZRootPtr = $32C; 


{ [GLOBAL 


VAR] 


root pointer for GrowZone [pointer] } 




018041 


GZMoveHnd = $330; 


{ [GLOBAL 


VAR] 


moving handle for GrowZone [handle] } 




018042 


MemTop = $108; 


{ [GLOBAL 


VAR] 


Address of end of RAM (on Macintosh XL, end of RAM available to applications) 




018043 


top of memory [pointer] } 










018044 


MmlnOK = $12E; 


{ [GLOBAL 


VAR] 


initial memory ragr checks ok? [byte]) 




018045 


HpChk = $316; 


{ [GLOBAL 


VAR] 


heap check RAM code [pointer] ) 




018046 


MaskBC = $31A; 


{ [GLOBAL 


VAR] 


Memory Manager Byte Count Mask [long]) 




018047 


MaskHandle = $31A; 


{ [GLOBAL 


VAR] 


Memory Manager Handle Mask [long]) 




018048 


MaskPtr = $31A; 


{ [GLOBAL 


VAR] 


Memory Manager Pointer Mask [long] } 




018049 


MinStack = $31E; 


{ [GLOBAL 


VAR] 


Minimum space allotment for stack (long) 




018050 


min stack size used in InitApplZone [long] 


} 




018051 


DefltStack = $322; 


{ [GLOBAL 


VAR] 


Default space allotment for stack (long) 




018052 


default size of stack [long] 


) 








018053 


MMDefFlags = $326; 


{ [GLOBAL 


VAR] 


default zone flags [word] ) 




018054 


DSAlertTab = $2BA; 


{ [GLOBAL 


VAR] 


Pointer to system error alert table in use 




018055 


system error alerts [pointer 


] ) 








018056 


DSAlertRect = $3F8; 


{ [GLOBAL 


VAR] 


Rectangle enclosing system error alert (8 bytes) 




018057 


rectangle for disk-switch alert [8 bytes]) 






018058 


DSDrawProc = $334; 


{ [GLOBAL 


VAR] 


alternate syserror draw procedure [pointer] } 




018059 


DSWndUpdate = $15D; 


{ [GLOBAL 


VAR] 


GNE not to paintBehind DS AlertRect? [byte] } 




018060 


WWExist = $8F2; 


{ [GLOBAL 


VAR] 


window manager initialized? [byte] } 




018061 


QDExist = $8F3; 


{ [GLOBAL 


VAR] 


quickdraw is initialized [byte] } 




018062 


ResumeProc = $A8C; 


{ [GLOBAL 


VAR] 


Address of resume procedure 




018063 


Resume procedure from InitDialogs [pointer 


] ) 




018064 


DSErrCode = $AFO; 


{ [GLOBAL 


VAR] 


Current system error ID (word) 




018065 


last system error alert ID] 










018066 


IntFlag = $15F; 


{ [GLOBAL 


VAR] 


reduce interrupt disable time when bit 7^0) 




018067 


SerialVars = $2D0; 


{ [GLOBAL 


VAR] 


async driver variables [16 bytes]) 




018068 


ABusVars = $2D8; 


{ [GLOBAL 


VAR] 


Pointer to AppleTalk variables 




018069 


; Pointer to AppleTalk local variables) 








018070 


ABusDCE = $2DC; 


{ [GLOBAL 


VAR] 


; Pointer to AppleTalk DCE ) 




018071 


PortAUse = $290; 


{ [GLOBAL 


VAR] 


bit 7: 1 ^ not in use, ^ in use) 




018072 


PortBUse = $291; 


{ [GLOBAL 


VAR] 


Current availability of serial port B (byte) 




018073 


port B use, same format as P 


ortAUse} 








018074 


SCCASts = $2CE; 


{ [GLOBAL 


VAR] 


sec read reg last ext/sts rupt - A [byte] } 




018075 


SCCBSts = $2CF; 


{ [GLOBAL 


VAR] 


sec read reg last ext/sts rupt - B [byte] } 




018076 


DskErr = $142; 


{ [GLOBAL 


VAR] 


disk routine result code [word] } 




018077 


PWMBuf2 = $312; 


{ [GLOBAL 


VAR] 


PWM buffer 1 (or 2 if sound) [pointer] } 




018078 


SoundPtr = $262; 


{ [GLOBAL 


VAR] 


Pointer to four-tone record 




018079 


4VE sound definition table [ 


pointer] ) 








018080 


SoundBase = $266; 


{ [GLOBAL 


VAR] 


Pointer to free-form synthesizer buffer 




018081 


sound bitMap [pointer] } 










018082 


SoundVBL = $26A; 


{ [GLOBAL 


VAR] 


vertical retrace control element [16 bytes]} 




018083 


SoundDCE = $27A; 


{ [GLOBAL 


VAR] 


sound driver DCE [pointer] } 
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018084 


SoundActlve = $27E; 


( [GLOBAL 


VAR] 


sound is active? [byte] } 




018085 


SoundLevel = $27F; 


( [GLOBAL 


VAR] 


Amplitude in 740-byte buffer (byte) 




018086 


current level in buffer [byt 


3] } 








018087 


CurPitch = $280; 


( [GLOBAL 


VAR] 


Value of count in square-wave synthesizer buffer (word) 




018088 


current pitch value [word] } 










018089 


DskVerify = $12C; 


{ [GLOBAL 


VAR] 


used by 3.5 disk driver for read/verify [byte]} 




018090 


TagData = $2FA; 


{ [GLOBAL 


VAR] 


sector tag info for disk drivers [14 bytes]} 




018091 


BufTgFNum = $2FC; 


( [GLOBAL 


VAR] 


File tags buffer: file number (long) 




018092 


file number [long] } 










018093 


BufTgFFlg = 5300; 


( [GLOBAL 


VAR] 


File tags buffer: flags (word: bit 1^1 if resource fork) 




018094 


flags [word] } 










018095 


BufTgFBltNum = $302; 


( [GLOBAL 


VAR] 


File tags buffer: logical block number (word) 




018096 


logical bloclc number [word] } 










018097 


BufTgDate = $304; 


( [GLOBAL 


VAR] 


File tags buffer: date and time of last modification (long) 




018098 


time stamp [word] } 










018099 


ScrDmpEnb = $2F8; 


( [GLOBAL 


VAR] 


if GetNextEvent shouldn't process Command-Shi ft-number combinations (byte) 




018100 


screen dump enabled? [byte] } 










018101 


ScrDmpType = $2F9; 


( [GLOBAL 


VAR] 


FF dumps screen, FE dumps front window [byte] ) 




018102 


ScrapVars = $960; 


( [GLOBAL 


VAR] 


scrap manager variables [32 bytes]} 




018103 


Scraplnfo = $960; 


{ [GLOBAL 


VAR] 


scrap length [long]} 




018104 


ScrapEnd = $980; 


{ [GLOBAL 


VAR] 


end of scrap vars } 




018105 


ScrapTag = $970; 


{ [GLOBAL 


VAR] 


scrap file name [ STRING [ 15 ]] ) 




018106 


LaunclnFlag = $902; 


{ [GLOBAL 


VAR] 


from launch or chain [byte] } 




018107 


SaveSegHandle = $930; 


( [GLOBAL 


VAR] 


seg handle [handle] ) 




018108 


CurJTOffset = $934; 


( [GLOBAL 


VAR] 


Offset to jump table from location pointed to by A5 (word) 




018109 


current jump table offset [word] } 








018110 


CurPageOption = $936; 


( [GLOBAL 


VAR] 


Sound/screen buffer configuration passed to Chain or Launch (word) 




018111 


current page 2 configuration 


[word] } 








018112 


LoaderPBlock = $93A; 


( [GLOBAL 


VAR] 


param block for ExitToSheli [10 bytes]} 




018113 


CurApRefNum = $900; 


( [GLOBAL 


VAR] 


Reference number of current application's resource file (word) 




018114 


refNum of application's resF 


Lie [word] } 






018115 


CurrentAS = $904; 


( [GLOBAL 


VAR] 


Address of boundary between application globals and application parameters 




018116 


current value of A5 [pointer 


) 








018117 


CurStackBase = $908; 


( [GLOBAL 


VAR] 


Address of base of stack; start of application globals 




018118 


current stack base [pointer] 


} 








018119 


CurApName = $910; 


( [GLOBAL 


VAR] 


Name of current application (length byte followed by up to 31 characters) 




018120 


name of application [STRING [31] ] } 








018121 


LoadTrap = $12D; 


{ [GLOBAL 


VAR] 


trap before launch? [byte] } 




018122 


SegHiEnabie = $BB2; 


{ [GLOBAL 


VAR] 


(byte) to disable MoveHHi in LoadSeg] 




018123 












018124 


( Window Manager Globals ] 










018125 


WindowList = $9D6; 


( [GLOBAL 


VAR] 


Pointer to first window in window list; if using events but not windows 




018126 


Z-ordered linked list of windows [pointer] } 






018127 


PaintWhite = $9DC; 


( [GLOBAL 


VAR] 


Flag for whether to paint window white before update event (word) 




018128 


erase newly drawn windows? [word]} 








018129 


WMgrPort = $9DE; 


( [GLOBAL 


VAR] 


Pointer to Window Manager port 




018130 


window manager's grafport [pointer]} 








018131 


GrayRgn = $9EE; 


( [GLOBAL 


VAR] 


Handle to region drawn as desktop 




018132 


rounded gray desk region [lian 


die] } 








018133 


CurActivate = $A64; 


( [GLOBAL 


VAR] 


Pointer to window to receive activate event 




018134 


window slated for activate event [pointer] } 






018135 


CurDeactive = $A68; 


( [GLOBAL 


VAR] 


Pointer to window to receive deactivate event 




018136 


window slated for deactivate 


event [pointer 


] } 




018137 


DragHook = $9F6; 


( [GLOBAL 


VAR] 


Address of procedure to execute during TrackGoAway, DragWindow, GrowWindow, DragGrayRgn, TrackContro' | 


018138 


user hook during dragging [pointer] } 








018139 


DeskPattern = $A3C; 


( [GLOBAL 


VAR] 


Pattern with which desktop is painted (8 bytes) 
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018140 


desk pattern [8 bytes]) 










018141 


DeskHook = $A6C; 


{ [GLOBAL VAR 


Address of procedure for painting desktop or responding to clicks on desktop 




018142 


hook for painting the desk [p 


ointer] } 








018143 


GhostWindow = $A84; 


{ [GLOBAL VAR 


Pointer to window never to be considered frontmost 






018144 


window hidden from FrontWindow [pointer] } 








018145 












018146 


{ Text Edit Giobais } 










018147 


TEDoText = $A70; 


{ [GLOBAL VAR 


Address of TextEdit multi-purpose routine 






018148 


textEdit doText proc hook [pointer] } 








018149 


TERecal = $A7 4; 


{ [GLOBAL VAR 


Address of routine to recalculate line starts for TextEdit 






018150 


textEdit recalText proc hook 


[pointer] } 








018151 


TEScrpLength = $ABO; 


{ [GLOBAL VAR 


Size in bytes of TextEdit scrap (long) 






018152 


textEdit Scrap Length [word] } 










018153 


TEScrpHandle = $AB4; 


{ [GLOBAL VAR 


Handle to TextEdit scrap 






018154 


textEdit Scrap [handle] } 










018155 


TEWdBreak = 5AF6; 


{ [GLOBAL VAR 


default word break routine [pointer] ) 






018156 


WordRedraw = $BA5; 


{ [GLOBAL VAR 


(byte) - used by TextEdit RecalDraw} 






018157 


TESysJust = 5BAC; 


{ [GLOBAL VAR 


(word) system justification (intl. textEdit)} 






018158 












018159 


{ Resource Manager Globals } 










018160 


TopMapHndl = $A5 0; 


{ [GLOBAL VAR 


Handle to resource map of most recently opened resource file 






018161 


topmost map in list [handle] } 










018162 


SysMapHndl = $A5 4; 


{ [GLOBAL VAR 


Handle to map of system resource file 






018163 


system map [handle] } 










018164 


SysMap = $A5 8; 


{ [GLOBAL VAR 


Reference number of system resource file (word) 






018165 


reference number of system map [word] } 








018166 


CurMap = $A5A; 


{ [GLOBAL VAR 


Reference number of current resource file (word) 






018167 


reference number of current map [word] ) 








018168 


ResReadOnly = $A5C; 


{ [GLOBAL VAR 


Read only flag [word] } 






018169 


ResLoad = $A5E; 


{ [GLOBAL VAR 


Current SetResLoad state (word) 






018170 


Auto-load feature [word] } 










018171 


ResErr = $A60; 


{ [GLOBAL VAR 


Current value of ResError (word) 






018172 


Resource error code [word] } 










018173 


ResErrProc = $AF2; 


{ [GLOBAL VAR 


Address of resource error procedure 






018174 


Resource error procedure [pointer] } 








018175 


SysResName = $AD8; 


{ [GLOBAL VAR 


Name of system resource file (length byte followed by up to 19 


characters) 




018176 


Name of system resource file 


[STRING[19] ] } 








018177 


RomMapInsert = $B9E; 


{ [GLOBAL VAR 


(byte) determines if we should link in map) 






018178 


TmpResLoad = $B9F; 


{ [GLOBAL VAR 


second byte is temporary ResLoad value.} 






018179 












018180 


{ Menu Mgr globals } 










018181 


MBarHeight = $BAA; 


{ [GLOBAL VAR 


height of the menu bar) 






018182 












018183 


{ CommToolbox Global } 










018184 


CommToolboxGlobals = $0BB4; 


{ [GLOBAL VAR 


pointer to CommToolbox globals } 






018185 












018186 












018187 


{$ENDC) { UsingSysEqu ) 










018188 












018189 


{$IFC NOT Usinglncludes} 










018190 


END. 










018191 


{$ENDC} 










018192 












018193 












018194 


### END OF FILE SysEqu.p 










018195 
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018196 

018197 ##################################################################### 

018198 ### FILE: Terminals. p 

01819 9 ##################################################################### 

018200 

018201 

018202 { 

018203 Created: Thursday, September 12, 1991 at 10:33 AM 

018204 Terminals. p 

018205 Pascal Interface to the Macintosh Libraries 
018206 

018207 Copyright Apple Computer, Inc. 1988-1991 

018208 All rights reserved 

018209 ) 
018210 
018211 

018212 {$IFC UNDEFINED Usinglncludes } 

018213 {$SETC Usinglncludes := 0} 

018214 {$ENDC) 
018215 

018216 {$IFC NOT Usinglncludes) 

018217 UNIT Terminals; 

018218 INTERFACE 

018219 {$ENDC} 
018220 

018221 {$IFC UNDEFINED UsingTerminals } 

018222 {$SETC UsingTerminals := 1} 
018223 

018224 {$!+) 

018225 {$SETC Terminalslncludes := Usinglncludes} 

018226 {$SETC Usinglncludes := 1} 

018227 {$IFC UNDEFINED UsingDialogs ) 

018228 {$1 5$Shell (Plnterfaces)Dialogs.p} 

018229 {$ENDC) 

018230 {$IFC UNDEFINED UsingCTBUtilities } 

018231 {$1 5$Shell (Plnterfaces)CTBUtilities .p) 

018232 {$ENDC) 

018233 {$IFC UNDEFINED UsingConnections ) 

018234 {$1 5$Shell (Plnterfaces)Connections.p} 

018235 {$ENDC) 

018236 {$SETC Usinglncludes := Terminalslncludes} 
018237 

018238 CONST 
018239 

018240 { current Terminal Manager version } 

018241 curTMVersion = 2; 
018242 

018243 { current Terminal Manager Environment Record version } 

018244 curTermEnvRecVers = 0; 
018245 

018246 { error codes } 

018247 tmGenericError = -1; 

018248 tmNoErr = 0; 

018249 tmNotSent = 1; 

018250 tmEnvironsChanged - 2; 
.018251 tmNotSupported = 7; 
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018252 tmNoTools = 8; 
018253 

018254 TYPE 

018255 TMErr = OSErr; 
018256 

018257 CONST 
018258 

018259 { TMFlags } 

018260 tmlnvisible = $00000001; 

018261 tmSaveBeforeClear = $00000002; 

018262 tmNoMenus = $00000004; 

018263 tmAutoScroll = $00000008; 

018264 tmConfigChanged = $00000010; 
018265 

018266 TYPE 

018267 { TMFlags } 

018268 TMFlags = LONGINT; 
018269 

018270 

018271 CONST 

018272 

018273 { TMSelTypes S TMSearchTypes } 

018274 selTextNormal = $0001; 

018275 selTextBoxed = $0002; 

018276 selGraphicsMarquee = $0004; 

018277 selGraphicsLasso = $0008; 

018278 tmSearchNoDiacrit = $0100; {These are only for TMSearchTypes} 

018279 tmSearchNoCase = $0200; {These are only for TMSearchTypes} 
018280 

018281 TYPE 

018282 { TMSelTypes s TMSearchTypes } 

018283 TMSearchTypes = INTEGER; 
018284 

018285 

018286 TMSelTypes = INTEGER; 

018287 

018288 CONST 

018289 

018290 { TMCursorTypes } 

018291 cursorText = 1; 

018292 cursorGraphics — 2; 
018293 

018294 TYPE 

018295 TMCursorTypes = INTEGER; 
018296 

018297 

018298 CONST 

018299 

018300 { TMTermTypes ) 

018301 tmTextTerminal = $0001; 

018302 tmGraphicsTerminal = $0002; 
018303 

018304 TYPE 

018305 { TMTermTypes } 

018306 TMTermTypes = INTEGER; 
^18307 
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018308 






018309 


TermDataBlockPtr = ^TermDataBlock; 




018310 


TermDataBlockH = ^TermDataBlockPtr; 




018311 


TermDataBlock = RECORD 




018312 


flags: TMTermTypes; 




018313 


theData: Handle; 




018314 


auxData: Handle; 




018315 


reserved: LONGINT; 




018316 


END; 




018317 






018318 


TermEnvironPtr = "^TermEnvironRec; 




018319 


TermEnvironRec = RECORD 




018320 


version: INTEGER; 




018321 


termType: TMTermTypes; 




018322 


textRows: INTEGER; 




018323 


textCols: INTEGER; 




018324 


cellSize: Point; 




018325 


graphicSize: Rect; 




018326 


slop: Point; 




018327 


auxSpace : Rect; 




018328 


END; 




018329 






018330 


TMSelection = RECORD 




018331 


CASE INTEGER OF 




018332 


1: (selRect: Rect); 




018333 


2: (selRgnHandle: RgnHandle; 




018334 


filler: LONGINT); 




018335 


END; 




018336 






018337 


{ TMTermTypes } 




018338 


TermPtr = ^TermRecord; 




018339 


TermHandle = -^TermPtr; 




018340 


TermRecord = RECORD 




018341 


procID: INTEGER; 




018342 


flags: TMFlags; 




018343 


errCode: TMErr; 




018344 


refCon: LONGINT; 




018345 


userData: LONGINT; 




018346 


defProc: ProcPtr; 




018347 


config: Ptr; 




018348 


oldConfig: Ptr; 




018349 


environsProc : ProcPtr; 




018350 


reservedl: LONGINT; 




018351 


reserved2: LONGINT; 




018352 


tmPrivate: Ptr; 




018353 


sendProc: ProcPtr; 




018354 


breakProc: ProcPtr; 




018355 


cacheProc: ProcPtr; 




018356 


clikLoop: ProcPtr; 




018357 


owner: WindowPtr; 




018358 


termRect: Rect; 




018359 


viewRect : Rect; 




018360 


visRect: Rect; 




018361 


lastldle: LONGINT; 




018362 


selection: TMSelection; 




018363 


selType: TMSelTypes; 
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018364 mluFleld: LONGINT; 

018365 END; 
018366 
018367 

018368 { application routines type definitions } 

018369 TerminalSendProcPtr = ProcPtr; 

018370 TerminalBreakProcPtr = ProcPtr; 

018371 TerminalCacheProcPtr = ProcPtr; 

018372 TerminalSearchCallBackProcPtr = ProcPtr; 

018373 TerminalClikLoopProcPtr = ProcPtr; 

018374 TerminalEnvironsProcPtr = ProcPtr; 

018375 TerminalChooseldleProcPtr = ProcPtr; 
018376 

018377 FUNCTION InitTM: TMErr; 

018378 FUNCTION TMGetVersion (hTerm : TermHandle) : Handle; 

018379 FUNCTION TMGetTMVersion : INTEGER; 
018380 

018381 FUNCTION TMNew (termRect : Rect ; viewRect : Rect;flags: TMFlags;procID : INTEGER; 

018382 owner: WindowPtr ; sendProc : TerminalSendProcPtr; cacheProc ; TerminalCacheProcPtr; 

018383 breakProc: TerminalBreakProcPtr; clikLoop ; TerminalClikLoopProcPtr; environsProc : TerminalEnvironsProcPtr; 

018384 refCon: LONGINT; userData : LONGINT) : TermHandle; 
018385 

018386 PROCEDURE TMDispose (hTerm: TermHandle); 
018387 

018388 PROCEDURE TMKey (hTerm: TermHandle; theEvent : EventRecord) ; 

018389 PROCEDURE TMUpdate (hTerm : TermHandle; visRgn : RgnHandle); 

018390 PROCEDURE TMPaint (hTerm : TermHandle; theTermData : TermDataBlock; theRect : Rect); 

018391 PROCEDURE TMActivate (hTerm: TermHandle; activate : BOOLEAN); 

018392 PROCEDURE TMResume (hTerm: TermHandle; resume : BOOLEAN); 

018393 PROCEDURE TMClick (hTerm : TermHandle; theEvent : EventRecord); 

018394 PROCEDURE TMIdle (hTerm: TermHandle); 
018395 

018396 FUNCTION TMStream (hTerm : TermHandle; theBuffer : Ptr; theLength : LONGINT; flags : CMFlags): LONGINT; 

018397 FUNCTION TMMenu (hTerm: TermHandle; menuID : INTEGER; item: INTEGER): BOOLEAN; 
018398 

018399 PROCEDURE TMReset (hTerm: TermHandle); 

018400 PROCEDURE TMClear (hTerm : TermHandle); 
018401 

018402 PROCEDURE TMResize (hTerm : TermHandle; newViewRect : Rect); 
018403 

018404 FUNCTION TMGetSelect (hTerm: TermHandle; theData : Handle ; VAR theType: ResType): LONGINT; 

018405 PROCEDURE TMGetLine (hTerm: TermHandle; lineNo : INTEGER; VAR theTermData: TermDataBlock); 

018406 PROCEDURE TMSetSelection (hTerm: TermHandle; theSelection : TMSelection; selType : TMSelTypes); 
018407 

018408 PROCEDURE TMScroll (hTerm : TermHandle; dh : INTEGER;dv: INTEGER); 
018409 

018410 FUNCTION TMValidate (hTerm: TermHandle): BOOLEAN; 

018411 PROCEDURE TMDefault (VAR theConfig: Ptr;procID: INTEGER; allocate : BOOLEAN); 
018412 

018413 FUNCTION TMSetupPref light (procID: INTEGER; VAR magicCookie: LONGINT): Handle; 

018414 PROCEDURE TMSetupSetup (procID : INTEGER; theConfig : Ptr;count: INTEGER; theDialog: DialogPtr; 

018415 VAR magicCookie: LONGINT); 

018416 FUNCTION TMSetupFilter (procID: INTEGER; theConfig : Ptr;count: INTEGER; theDialog: DialogPtr; 

018417 VAR theEvent: EventRecord;VAR theltem: INTEGER; VAR magicCookie: LONGINT): BOOLEAN; 

018418 PROCEDURE TMSetupItem (procID : INTEGER; theConfig : Ptr;count: INTEGER; theDialog: DialogPtr; 
.018419 VAR theltem: INTEGER; VAR magicCookie: LONGINT); 
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018420 


PROCEDURE TMSetupXCleanup{procID: INTEGER; theConfig: Ptr; count: INTEGER; 




018421 


theDialog: DialogPtr; OKed: BOOLEAN; VAR magicCookie: LONGINT) ; 




018422 


PROCEDURE TMSetupPostf light (procID: INTEGER); 




018423 






018424 


FUNCTION TMGetConfig(hTerm: TermHandle): Ptr; 




018425 


FUNCTION TMSetConfig(hTerm: TermHandle; thePtr : Ptr): INTEGER; 




018426 






018427 


FUNCTION TMIntlToEnglish (hTerm: TermHandle; inputPtr : Ptr; VAR outputPtr: Ptr; 




018428 


language: INTEGER) : OSErr; 




018429 


FUNCTION TMEnglishToIntl (hTerm: TermHandle; inputPtr : Ptr; VAR outputPtr: Ptr; 




018430 


language: INTEGER): OSErr; 




018431 






018432 


PROCEDURE TMGetToolNamedd: INTEGER; VAR name: Str255); 




018433 


FUNCTION TMGetProcID (name: Str255): INTEGER; 




018434 






018435 


PROCEDURE TMSetRef Con (hTerm: TermHandle; ref Con : LONGINT); 




018436 


FUNCTION TMGetRef Con (hTerm: TermHandle): LONGINT; 




018437 






018438 


PROCEDURE TMSetUserData (hTerm: TermHandle; userData : LONGINT); 




018439 


FUNCTION TMGetUserData (hTerm: TermHandle): LONGINT; 




018440 






018441 


FUNCTION TMAddSearch (hTerm: TermHandle; theStrlng : Str255; where : Rect ; searchType : TMSearchTypes; 




018442 


callBack: TerminalSearchCallBackProcPtr) : INTEGER; 




018443 


PROCEDURE TMRemoveSearch (hTerm: TermHandle; ref num: INTEGER); 




018444 


PROCEDURE TMClearSearch (hTerm: TermHandle); 




018445 






018446 


FUNCTION TMGetCursor (hTerm: TermHandle; cursType : TMCursorTypes) : Point; 




018447 






018448 


FUNCTION TMGetTermEnvirons (hTerm: TermHandle; VAR theEnvirons : TermEnvironRec) : TMErr; 




018449 






018450 


FUNCTION TMChoose{VAR hTerm: TermHandle; where : Point ; idleProc : TerminalChooseldleProcPtr) : INTEGER; 




018451 






018452 


PROCEDURE TMEvent (hTerm: TermHandle; theEvent : EventRecord) ; 




018453 






018454 


FUNCTION TMDoTermKey (hTerm: TermHandle; theKey: Str255): BOOLEAN; 




018455 


FUNCTION TMCountTermKeys (hTerm: TermHandle): INTEGER; 




018456 


PROCEDURE TMGetlndTermKey (hTerm: TermHandle; id: INTEGER; VAR theKey: Str255); 




018457 






018458 


PROCEDURE TMGetErrorString (hTerm: TermHandle; id : INTEGER;VAR errMsg: Str255); 




018459 






018460 






018461 


{$ENDC) { UsingTerminals } 




018462 






018463 


{$IFC NOT Usinglncludes) 




018464 


END. 




018465 


{$ENDC} 




018466 






018467 






018468 


### END OF FILE Terminals. p 




018469 
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018470 

018471 ##################################################################### 

018472 ### FILE: TerminalTools . p 

01847 3 ##################################################################### 

018474 

018475 

018476 { 

018477 Created: Thursday, September 12, 1991 at 11:07 AM 

018478 TerminalTools. p 

018479 Pascal Interface to the Macintosh Libraries 
018480 

018481 Copyright Apple Computer, Inc. 1988-1991 

018482 All rights reserved 

018483 ) 
018484 
018485 

018486 {$IFC UNDEFINED Usinglncludes } 

018487 {$SETC Usinglncludes := 0} 

018488 {$ENDC} 
018489 

018490 {$IFC NOT Usinglncludes) 

018491 UNIT TerminalTools; 

018492 INTERFACE 

018493 {$ENDC} 
018494 

018495 {$IFC UNDEFINED UsingTerminalTools } 

018496 {$SETC UsingTerminalTools := 1) 
018497 

018498 ($1+) 

018499 {$SETC TerminalToolsIncludes := Usinglncludes} 

018500 {$SETC Usinglncludes := 1} 

018501 {$IFC UNDEFINED UsingDialogs ) 

018502 {$1 5$Shell (Plnterfaces)Dialogs.p} 

018503 {$ENDC} 

018504 {$IFC UNDEFINED UsingTerminals ) 

018505 {$1 $$Sheil (PInterfaces) Terminals. p) 

018506 {$ENDC) 

018507 {$SETC Usinglncludes := TerminalToolsIncludes} 
018508 

018509 CONST 

018510 tdeflype = 'tdef 

018511 tvalType = 'tval' 

018512 tsetlype = 'tset' 

018513 tlocType = 'tioc' 

018514 tscrlype = 'tscr' 

018515 tbndlype = 'tbnd' 

018516 tverlype ^ 'vers' 
018517 

018518 { messages } 

018519 tmlnitMsg = 0; 

018520 tmDisposeMsg = 1; 

018521 tmSuspendMsg = 2; 

018522 tmResumeMsg = 3; 

018523 tmMenuMsg = 4; 

018524 tmEventMsg = 5; 
.018525 tmActivateMsg = i 
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018526 
018527 
018528 
018529 
018530 
018531 
018532 
018533 
018534 
018535 
018536 
018537 
018538 
018539 
018540 
018541 
018542 
018543 
018544 
018545 
018546 
018547 
018548 
018549 
018550 
018551 
018552 
018553 
018554 
018555 
018556 
018557 
018558 
018559 
018560 
018561 
018562 
018563 
018564 
018565 
018566 
018567 
018568 
018569 
018570 
018571 
018572 
018573 
018574 
018575 
018576 
018577 
018578 
018579 
018580 
018581 



tmDeactivateMsg ^ 7; 
tmGetErrorStringMsg = 8; 

tmldleMsg = 50; 
tmResetMsg = 51; 

tmKeyMsg = 100; 
tmStreamMsg = 101; 
tmResizeMsg = 102; 
tmUpdateMsg = 103; 
tmCllckMsg = 104; 
tmGetSelectionMsg = 105; 
tmSetSelectionMsg = 106; 
tmScrollMsg = 107; 
tmClearMsg = 108; 
tmGetLineMsg = 109; 
tmPaintMsg = 110; 
tmCursorMsg ^ 111; 
tmGetEnvironsMsg = 112; 
tmDoTermKeyMsg = 113; 
tmCountTermKeysMsg = 114; 
tmGetlndTermKeyMsg = 115; 

{ messages for validate DefProc ) 
tmValidateMsg = 0; 
tmDefaultMsg = 1; 

{ messages for Setup DefProc } 
tmSpref lightMsg = 0; 
tmSsetupMsg ^ 1; 
tmSitemMsg = 2; 
tmSfilterMsg = 3; 
tmScleanupMsg ^ 4; 

{ messages for scripting defProc } 
tmMgetMsg = 0; 
tmMsetMsg = 1; 

{ messages for localization defProc } 
tmL2English = 0; 
tmL2Intl = 1; 

TYPE 

TMSearchBlockPtr = ^TMSearchBlock; 

TMSearchBiock = RECORD 

theString: StringHandle; 

where : Rect ; 

searchType: TMSearchTypes; 

callBack; ProcPtr; 

refnum: INTEGER; 

next: TMSearchBlockPtr; 

END; 

TMSetupPtr = ^TMSetupStruct; 
TMSetupStruct = RECORD 
theDialoq: DialoqPtr; 
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018582 count: INTEGER; 

018583 theConflg: Ptr; 

018584 procID: INTEGER; { procID of the tool } 

018585 END; 
018586 
018587 
018588 

018589 {$ENDC) { UslngTerminalTools } 
018590 

018591 {$IFC NOT Uslnglncludes ) 

018592 END. 

018593 {$ENDC} 
018594 

018595 

018596 ### END OF FILE TerminalTools . p 

018597 
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018598 






018599 


##################################################################### 




018600 


### FILE: TextEdit. p 




018601 


##################################################################### 




018602 






018603 






018604 


{ 




018605 


Created: Thursday, September 12, 1991 at 12:34 PM 




018606 


TextEdit .p 




018607 


Pascal Interface to the Macintosh Libraries 




018608 






018609 


Copyright Apple Computer, Inc. 1985-1991 




018610 


All rights reserved 




018611 


) 




018612 






018613 






018614 


{$IFC UNDEFINED Usinglncludes } 




018615 


{$SETC Usinglncludes := 0} 




018616 


{$ENDC) 




018617 






018618 


{$IFC NOT Usinglncludes) 




018619 


UNIT TextEdit; 




018620 


INTERFACE 




018621 


{$ENDC} 




018622 






018623 


{$IFC UNDEFINED UsingTextEdit } 




018624 


{$SETC UsingTextEdit := 1} 




018625 






018626 


{$!+) 




018627 


{$SETC TextEditlncludes := Usinglncludes) 




018628 


{$SETC Usinglncludes := 1} 




018629 


{$IFC UNDEFINED UsingQuickdraw} 




018630 


{$1 $$ Shell (Plnterfaces)Quickdraw.p) 




018631 


{$ENDC} 




018632 


{$SETC Usinglncludes := TextEditlncludes) 




018633 






018634 


CONST 




018635 






018636 


{ Justification styles ) 




018637 


teJustLeft = 0; 




018638 


teJustCenter = 1; 




018639 


teJustRight = -1; 




018640 


teForceLeft = -2; 




018641 






018642 


{ new names for the Justification styles } 




018643 


teFlushDefault = 0; {flush according to the line direction ) 




018644 


teCenter ^ 1; {center justify ) 




018645 


teFlushRight = -1; {flush right for all scripts } 




018646 


teFlushLeft = -2; {flush left for all scripts ) 




018647 






018648 


{ Set/Replace style modes } 




018649 


fontBit = 0; {set font) 




018650 


faceBit = 1; {set face) 




018651 


sizeBit ^ 2; {set size) 




018652 


clrBit = 3; {set color} 




018653 


addSizeBit = 4; {add size mode} 
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018654 


toglBit = 5; 




{set faces in toggle mode} 




018655 










018656 


{ TESetStyle/TEContinuousStyle 


modes } 






018657 


doFont = 1; 




{ set font (family) number} 




018658 


doFace = 2; 




{set character style} 




018659 


doSize = 4; 




{set type size} 




018660 


doColor = 8; 




{set color} 




018661 


doAll = 15; 




{set all attributes} 




018662 


addSlze = 16; 




{adjust type size} 




018663 


doToggle = 32; 




{toggle mode for TESetStyle S TEContinuousStyle } 




018664 










018665 


{ offsets into TEDispatchRec } 








018666 


EOLHook = 0; 




{ [ProcPtr] TEEOLHook} 




018667 


DRAWHook = 4; 




{ [ProcPtr] TEWidthHook} 




018668 


WIDTHHook = 8; 




{[ProcPtr] TEDrawHook} 




018669 


HITTESTHook = 12; 




{ [ProcPtr] TEHitTestHook} 




018670 


nWIDTHHook = 24; 




{ [ProcPtr] nTEWidthHook} 




018671 


TextWidthHook = 28; 




{ [ProcPtr] TETextWidthHook} 




018672 










018673 


{ selectors for TECustomHook } 








018674 


IntEOLHook = 0; 




{TEIntHook value} 




018675 


IntDrawHook = 1; 




{TEIntHook value} 




018676 


IntWidthHook = 2; 




{TEIntHook value} 




018677 


IntHitTestHook = 3; 




{TEIntHook value} 




018678 


IntNWidthHook = 6; 




{TEIntHook value for new version of WidthHook} 




018679 


IntTextWldtliHook = 7; 




{TEIntHook value for new TextWidthHook} 




018680 










018681 


{ feature or bit definitions f 


or TEFeatureFlag ) 




018682 


teFAutoScr = 0; 




{00000001b} 




018683 


teFTextBuffering = 1; 




{00000010b} 




018684 


teFOutlineHilite = 2; 




{00000100b} 




018685 


teFInlinelnput = 3; 




{00001000b} 




018686 


teFUseTextServices = 4; 




{00010000b} 




018687 










018688 


{ action for the new "bit (un) 


set" int 


srface, TEFeatureFlag } 




018689 


TEBitClear = 0; 








018690 


TEBitSet = 1; 




{set the selector bit} 




018691 


TEBitTest = -1; 




{no change; just return the current setting} 




018692 










018693 


{constants for identifying the 


routine 


that called FindWord } 




018694 


teWordSelect = 4; 




{clickExpand to select word} 




018695 


teWordDrag = 8; 




{clickExpand to drag new word} 




018696 


teFromFind = 12; 




{FindLine called it ($0C) } 




018697 


teFromRecal = 16; 




{RecalLines called it ($10) } 




018698 










018699 


TYPE 








018700 


TEPtr = ^TERec; 








018701 


TEHandle = ^TEPtr; 








018702 


TERec = RECORD 








018703 


destRect: Rect; 








018704 


viewRect ; Rect; 








018705 


selRect: Rect; 








018706 


lineHeight: INTEGER; 








018707 


fontAscent: INTEGER; 








018708 


selPoint; Point; 








018709 


selStart: INTEGER; 
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018710 
018711 
018712 
018713 
018714 
018715 
018716 
018717 
018718 
018719 
018720 
018721 
018722 
018723 
018724 
018725 
018726 
018727 
018728 
018729 
018730 
018731 
018732 
018733 
018734 
018735 
018736 
018737 
018738 
018739 
018740 
018741 
018742 
018743 
018744 
018745 
018746 
018747 
018748 
018749 
018750 
018751 
018752 
018753 
018754 
018755 
018756 
018757 
018758 
018759 
018760 
018761 
018762 
018763 
018764 
018765 



selEnd: INTEGER; 
active: INTEGER; 
wordBreak: ProcPtr; 
clikLoop: ProcPtr; 
clickTime: LONGINT; 
clickLoc: INTEGER; 
caretTime: LONGINT; 
caretState: INTEGER; 
just: INTEGER; 
teLength: INTEGER; 
hText : Handle; 
recalBack: INTEGER; 
recalLines: INTEGER; 
clikStuff: INTEGER; 
crOnly: INTEGER; 
txFont: INTEGER; 
txFace: Style; 
txMode: INTEGER; 
txSlze: INTEGER; 
InPort: GrafPtr; 
highHook: ProcPtr; 
caretHook: ProcPtr; 
nLines : INTEGER; 
lineStarts: ARRAY [0. 
END; 

CharsPtr = ^Chars; 
CharsHandle = ''CharsPtr; 



{txFace is unpacked byte} 



,16000] OF INTEGER; 



Chars = PACKED ARRAY [0.. 32000] OF CHAR; 

StyleRun = RECORD 
startChar: INTEGER; 
stylelndex: INTEGER; 
END; 

STElement = RECORD 
stCount: INTEGER; 
stHeight: INTEGER; 
stAscent: INTEGER; 



{starting character position) 
{index in style table] 



stFont : 
stFace : 
stSize : 
stColor : 
END; 



INTEGER; 
Style; 
INTEGER; 
RGBColor; 



{number of runs in this style] 

{ line height ) 

{font ascent] 

{font (family) number] 

{character Style) 

{size in points) 

{absolute (RGB) color] 



STPtr = ^TEStyleTable; 
STHandle = ^STPtr; 

TEStyleTable = ARRAY [0..1776] OF STElement; 



LHElement = RECORD 
IhHeight: INTEGER; 
IhAscent: INTEGER; 
END; 



{maximum height in line) 
{maximum ascent in line) 
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018766 


LHPtr = "LHTable; 












018767 


LHHandle = "LHPtr; 












018768 














018769 


LHTable = ARRAY [0..8000] 


OF 


LHElement; 






018770 














018771 


ScrpSTElement = RECORD 












018772 


scrpStartChar: LONGINT; 








{starting character position) 




018773 


scrpHeight: INTEGER; 








{starting character position) 




018774 


scrpAscent: INTEGER; 












018775 


scrpFont: INTEGER; 












018776 


scrpFace; Style; 








{unpacked byte} 




018777 


scrpSize: INTEGER; 












018778 


scrpColor: RGBColor; 












018779 


END; 












018780 














018781 


ScrpSTTable = ARRAY [0 .. 1600 ] 


OF So 


rpSTElement; 




018782 














018783 


StScrpPtr = "StScrpRec; 












018784 


StScrpHandle = "StScrpPtr; 












018785 


StScrpRec = RECORD 












018786 


scrpNStyles: INTEGER; 








{number of styles in scrap} 




018787 


scrpStyleTab: ScrpSTTable 


; 






{table of styles for scrap} 




018788 


END; 












018789 














018790 


NullStPtr = "NullStRec; 












018791 


NullStHandle = "NullStPtr; 












018792 


NullStRec = RECORD 












018793 


teReserved: LONGINT; 








{reserved for future expansion) 




018794 


nullScrap: StScrpHandle; 








{handle to scrap style table) 




018795 


END; 












018796 














018797 


TEStylePtr = "TEStyleRec; 












018798 


TEStyleHandle = "TEStylePt 


r; 










018799 


TEStyleRec = RECORD 












018800 


nRuns : INTEGER; 








{number of style runs} 




018801 


nStyles: INTEGER; 








{size of style table) 




018802 


styleTab: STHandle; 








{handle to style table} 




018803 


IhTab: LHHandle; 








{handle to line-height table) 




018804 


teRefCon: LONGINT; 








{reserved for application use} 




018805 


nullStyle: NullStHandle; 








{Handle to style set at null selection} 




018806 


runs: ARRAY [0..8000] OF 


StyleRun 




{ARRAY [0..8000] OF StyleRun) 




018807 


END; 












018808 














018809 


TextStylePtr = "TextStyle; 












018810 


TextStyleHandle = "TextSty 


le 


Ptr; 








018811 


TextStyle = RECORD 












018812 


tsFont: INTEGER; 








{font (family) number} 




018813 


tsFace: Style; 








{character Style) 




018814 


tsSlze: INTEGER; 








{size in point} 




018815 


tsColor: RGBColor; 








{absolute (RGB) color) 




018816 


END; 












018817 














018818 














018819 


TEIntHook = INTEGER; 












018820 














018821 


PROCEDURE TEInit; 
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018822 INLINE $A9CC; 

018823 FUNCTION TENew(destRect : Rect ; viewRect : Rect): TEHandle; 

018824 INLINE $A9D2; 

018825 PROCEDURE TEDispose (hTE : TEHandle); 

018826 INLINE $A9CD; 

018827 PROCEDURE TESetText (text : Ptr; length: LONGINT;hTE: TEHandle); 

018828 INLINE $A9CF; 

018829 FUNCTION TEGetText (liTE: TEHandle): CharsHandle; 

018830 INLINE $A9CB; 

018831 PROCEDURE TEIdle(hTE: TEHandle); 

018832 INLINE 5A9DA; 

018833 PROCEDURE TESetSelect (selStart : LONGINT; selEnd : LONGINT;hTE: TEHandle); 

018834 INLINE $A9D1; 

018835 PROCEDURE TEActivate (hTE : TEHandle); 

018836 INLINE $A9D8; 

018837 PROCEDURE TEDeactivate (hTE : TEHandle); 

018838 INLINE $A9D9; 

018839 PROCEDURE TEKey(key: CHAR; hTE: TEHandle); 

018840 INLINE 5A9DC; 

018841 PROCEDURE TECut(hTE: TEHandle); 

018842 INLINE $A9D6; 

018843 PROCEDURE TECopy(hTE: TEHandle); 

018844 INLINE $A9D5; 

018845 PROCEDURE TEPaste{hTE: TEHandle); 

018846 INLINE $A9DB; 

018847 PROCEDURE TEDelete (hTE : TEHandle); 

018848 INLINE $A9D7; 

018849 PROCEDURE TEInsert (text : Ptr; length: LONGINT; hTE: TEHandle); 

018850 INLINE $A9DE; 

018851 PROCEDURE TESet Just ( just : INTEGER;hTE: TEHandle); 

018852 INLINE $A9DF; 

018853 PROCEDURE TEUpdate (rUpdate : Rect; hTE: TEHandle); 

018854 INLINE $A9D3; 

018855 PROCEDURE TextBox (text : Ptr;length: LONGINT;box: Rect; just: INTEGER); 

018856 INLINE $A9CE; 

018857 PROCEDURE TEScroll(dh: INTEGER;dv: INTEGER;hTE: TEHandle); 

018858 INLINE $A9DD; 

018859 PROCEDURE TESelVlew (hTE : TEHandle); 

018860 INLINE $A811; 

018861 PROCEDURE TEPinScroll (dh : INTEGER;dv: INTEGER;hTE: TEHandle); 

018862 INLINE $A812; 

018863 PROCEDURE TEAutoView (fAuto : BOOLEAN;hTE: TEHandle); 

018864 INLINE $A813; 

018865 FUNCTION TEScrapHandle: Handle; 

018866 INLINE $2EB8,$0AB4; 

018867 PROCEDURE TECalText (hTE : TEHandle); 

018868 INLINE $A9D0; 

018869 FUNCTION TEGetOf fset (pt : Point;hTE: TEHandle): INTEGER; 

018870 INLINE $A83C; 

018871 FUNCTION TEGetPoint (of f set : INTEGER;hTE: TEHandle): Point; 

018872 INLINE $3F3C, $0008 , 5A83D; 

018873 PROCEDURE TEClick (pt : Point ; f Extend : BOOLEAN;h: TEHandle); 

018874 INLINE $A9D4; 

018875 FUNCTION TEStylNew (destRect : Rect ; viewRect : Rect): TEHandle; 

018876 INLINE $A83E; 

018877 FUNCTION TEStyleNew (destRect : Rect; viewRect : Rect): TEHandle; 
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018878 
018879 
018880 
018881 
018882 
018883 
018884 
018885 
018886 
018887 
018888 
018889 
018890 
018891 
018892 
018893 
018894 
018895 
018896 
018897 
018898 
018899 
018900 
018901 
018902 
018903 
018904 
018905 
018906 
018907 
018908 
018909 
018910 
018911 
018912 
018913 
018914 
018915 
018916 
018917 
018918 
018919 
018920 
018921 
018922 
018923 
018924 
018925 
018926 
018927 
018928 
018929 
018930 
018931 
018932 
018933 



TEHandle) ; 



TEHandle) : TEStyleHandle; 

INTEGER; VAR theStyle: Text Style; VAR lineHeight : INTEGER; 
: TEHandle); 



TextStyle; redraw: BOOLEAN; 



TextStyle;newStyle: TextStyle; 



INLINE $A83E; 
PROCEDURE SetStylHandle (theHandle: TEStyleHandle; hTE 

INLINE $3F3C, $0005, $A83D; 
PROCEDURE SetStyleHandle (theHandle: TEStyleHandle; hTE : TEHandle) 

INLINE $3E3C, $0005, $A83D; 
FUNCTION GetStylHandle (hTE: TEHandle): TEStyleHandle; 

INLINE $3F3C, $0004, $A83D; 
FUNCTION GetStyleHandle (hTE: 

INLINE $3F3C, $0004, $A83D; 
PROCEDURE TEGetStyle (offset : 

VAR fontAscent: INTEGER; hTE 

INLINE $3F3C, $0003, $A83D; 
PROCEDURE TEStylPaste (hTE: TEHandle); 

INLINE $3F3C, $0000, $A83D; 
PROCEDURE TEStylePaste (hTE: TEHandle); 

INLINE $3F3C, $0000, $A83D; 
PROCEDURE TESetStyle (mode: INTEGER; newStyle 

hTE: TEHandle); 

INLINE $3F3C, $0001, $A83D; 
PROCEDURE TEReplaceStyle (mode: INTEGER; oldStyle 

redraw: BOOLEAN;hTE: TEHandle); 

INLINE $3F3C, $0002, $A83D; 
FUNCTION GetStylScrap (hTE: TEHandle): StScrpHandle; 

INLINE $3E3C, $0006, $A83D; 
FUNCTION GetStyleScrap (hTE: TEHandle): StScrpHandle; 

INLINE $3E3C, $0006, $A83D; 
PROCEDURE TEStyllnsert (text : 

INLINE $3E3C, $0007, $A83D; 
PROCEDURE TEStylelnsert (text 

INLINE $3E3C, $0007, 5A83D; 
FUNCTION TEGetHeight (endLine 

INLINE $3E3C, $0009, 5A83D; 
FUNCTION TEContinuousStyle (VAR mode 

INLINE $3E3C, $000A, $A83D; 
PROCEDURE SetStylScrap (rangeStart : LONGINT; rangeEnd: 

redraw: BOOLEAN;hTE: TEHandle); 

INLINE $3E3C, $000B, $A83D; 
PROCEDURE SetStyleScrap (rangeStart : LONGINT; rangeEnd 

redraw: BOOLEAN;hTE: TEHandle); 

INLINE $3E3C, $000B, $A83D; 
PROCEDURE TECustomHook (which: TEIntHook; VAR addr : ProcPtr;hTE: TEHandle); 

INLINE $3F3C, $000C, $A83D; 
FUNCTION TENumStyles (rangeStart : LONGINT; rangeEnd: LONGINT;hTE: TEHandle): 

INLINE $3E3C, $000D, $A83D; 
FUNCTION TEFeatureFlag( feature 

INLINE $3E3C, $000E, $A83D; 
FUNCTION TEGetScrapLen: LONGINT; 
PROCEDURE TESetScrapLen (length: LONGINT); 
FUNCTION TEFromScrap: OSErr; 
FUNCTION TEToScrap: OSErr; 

PROCEDURE SetClikLoop (clikProc: ProcPtr;hTE: 
PROCEDURE SetWordBreak (wBrkProc: ProcPtr;hTE; 



Ptr; length: 
: Ptr; length 



LONGINT; hST: StScrpHandle; hTE : 
LONGINT; hST: StScrpHandle; hTE ; 
LONGINT; startLlne: LONGINT;hTE: TEHandle); 
INTEGER; VAR aStyle : TextStyle; hTE : 
LONGINT; newStyles : 



TEHandle) ; 

TEHandle) ; 

LONGINT; 
TEHandle) : BOOLEAN; 
StScrpHandle; 



LONGINT; newStyles : StScrpHandle; 



LONGINT; 



INTEGER; action: INTEGER;hTE: TEHandle): INTEGER; 



TEHandle) ; 
TEHandle) ; 



{$ENDC) { UsingTextEdit ) 
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018934 
018935 
018936 
018937 
018938 
018939 
018940 



{$IFC NOT Usinglncludes) 
END. 
{$ENDC} 



### END OF FILE TextEdit. p 
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018941 


018942 


018943 


018944 


018945 


018946 


018947 


018948 


018949 


018950 


018951 


018952 


018953 


018954 


018955 


018956 


018957 


018958 


018959 


018960 


018961 


018962 


018963 


018964 


018965 


018966 


018967 


018968 


018969 


018970 


018971 


018972 


018973 


018974 


018975 


018976 


018977 


018978 


018979 


018980 


018981 


018982 


018983 


018984 


018985 


018986 


018987 


018988 


018989 


018990 


018991 


018992 


018993 


018994 


018995 


018996 



##################################################################### 

### FILE: Timer. p 

##################################################################### 



Created: Sunday, January 6, 1991 at 11:25 PM 
Timer . p 
Pascal Interface to the Macintosh Libraries 



Copyright Apple Computer, Inc. 1985-199C 
All rights reserved 
) 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 

{$ENDC} 

{$IFC NOT Usinglncludes} 

UNIT Timer; 
INTERFACE 
{$ENDC) 

{$IFC UNDEFINED UsingTimer} 
{$SETC UsingTimer := 1) 

{$1+) 

{$SETC Timerlncludes := Usinglncludes} 

{$SETC Usinglncludes := 1} 

{$IFC UNDEFINED UsingTypes} 

{$1 $$Shell (PInterfaces) Types. p} 

{$ENDC} 

{$IFC UNDEFINED UsingOSUtils } 

{$1 $$ Shell (Plnterfaces)OSUtils.p} 

{$ENDC} 

{$SETC Usinglncludes := Timerlncludes} 

TYPE 

TMTaskPtr = ^TMTask; 

TMTask = RECORD 

qLink: QElemPtr; 

qType: INTEGER; 

tmAddr : ProcPtr; 

tmCount : LONGINT; 

tmWakeUp: LONGINT; 

tmReserved: LONGINT; 

END; 



PROCEDURE InsTime (tmlaskPtr: QElemPtr); 

INLINE $205F,$A058; 
PROCEDURE InsXTime (tmTaskPtr: QElemPtr); 

INLINE $205F,$A458; 
PROCEDURE PrimeTime (tmTaskPtr: QElemPtr; count : LONGINT), 

INLINE $201F, $205F, $A05A; 
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018997 PROCEDURE RmvTime (tmTaskPtr : QElemPtr); 

018998 INLINE $205F,$A059; 
018999 

019000 

019001 {$ENDC) { UsingTimer ) 

019002 

019003 {$IFC NOT Uslnglncludes) 

019004 END. 

019005 {$ENDC} 
019006 

019007 

019008 ### END OF FILE Timer. p 

019009 
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019010 

019011 ##################################################################### 

019012 ### FILE: Toollntf.p 

019013 ##################################################################### 
019014 

019015 { 

019016 File: Toollntf.p 
019017 

019018 As of MPW 3.0, interface files were reorganized to more closely 

019019 match "Inside Macintosh" reference books and be more consistant 

019020 from language to language. 
019021 

019022 Interfaces for the Macintosh toolbox calls are now found in the 

019023 files included below. This file is provided for compatibility 

019024 with old sources. 
019025 

019026 Pascal Interface to the Macintosh Libraries 

019027 Copyright Apple Computer, Inc. 1988 

019028 All Rights Reserved 

019029 ) 
019030 

019031 {$IFC UNDEFINED Usinglncludes } 

019032 {$SETC Usinglncludes := 0} 

019033 {$ENDC) 
019034 

019035 {$IFC NOT Usinglncludes) 

019036 UNIT Toollntf; 

019037 INTERFACE 

019038 {$ENDC) 
019039 

019040 {$IFC UNDEFINED UsingToolInt f } 

019041 {$SETC UsingToolIntf := 1} 
019042 

019043 {$1+) 

019044 {$SETC Toollntflncludes := Usinglncludes) 

019045 {$SETC Usinglncludes := 1} 

019046 {$IFC UNDEFINED UsingEvents) 

019047 {$1 $$Shell (PInterfaces) Events. p) 

019048 {$ENDC) 

019049 {$IFC UNDEFINED UsingControls } 

019050 {$1 $$Shell (Plnterfaces)Controls.p) 

019051 {$ENDC) 

019052 {$IFC UNDEFINED UsingDesk} 

019053 {$1 5$Shell (PInterfaces) Desk. p) 

019054 {$ENDC) 

019055 {$IFC UNDEFINED UsingWindows ) 

019056 {$1 $$Shell (Plnterfaces)Windows.p} 

019057 {$ENDC} 

019058 {$IFC UNDEFINED UsingTextEdit } 

019059 {$1 $$Shell (PInterfaces) TextEdit .p) 

019060 {$ENDC) 

019061 {$IFC UNDEFINED UsingDialogs ) 

019062 {$1 $$Shell (PInterfaces)Dialog3.p} 

019063 {$ENDC} 

019064 {$IFC UNDEFINED UsingFonts) 
.019065 {$1 $$Shell (PInterfaces) Fonts. p) 
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019066 {$ENDC) 

019067 {$IFC UNDEFINED UsingLists) 

019068 {$1 $$Shell (Plnterfaces)Lists.p) 

019069 {$ENDC) 

019070 {$IFC UNDEFINED UsingMenus) 

019071 {$1 5$Shell (Plnterfaces)Menus.p) 

019072 {$ENDC) 

019073 {$IFC UNDEFINED UsingResources ) 

019074 {$1 5$Shell (Plnterfaces)Resources.p) 

019075 {$ENDC) 

019076 {$IFC UNDEFINED UsingScrap) 

019077 {$1 5$Shell (PInterfaces) Scrap. p) 

019078 {$ENDC) 

019079 {$IFC UNDEFINED UsingToolUtils ) 

019080 {$1 $$Shell (Plnterfaces)ToolUtils.p) 

019081 {$ENDC) 

019082 {$SETC Usinglncludes := Toollntf Includes ) 
019083 

019084 {$ENDC) { UsingToolIntf ) 
019085 

019086 {$IFC NOT Usinglncludes) 

019087 END. 

019088 {$ENDC} 
019089 

019090 

019091 ### END OF FILE Toollntf. p 

019092 
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019093 

0190 94 ##################################################################### 

019095 ### FILE: ToolUtils.p 

0190 96 ##################################################################### 

019097 

019098 { 

019099 Created: Sunday, January 6, 1991 at 11:25 PM 

019100 ToolUtils.p 

019101 Pascal Interface to the Macintosh Libraries 
019102 

019103 Copyright Apple Computer, Inc. 1985-1990 

019104 All rights reserved 

019105 ) 
019106 
019107 

019108 {$IFC UNDEFINED Usinglncludes } 

019109 {$SETC Usinglncludes := 0} 

019110 {$ENDC} 
019111 

019112 {$IFC NOT Usinglncludes} 

019113 UNIT ToolUtils; 

019114 INTERFACE 

019115 {$ENDC) 
019116 

019117 {$IFC UNDEFINED UsingToolUt ils } 

019118 {$SETC UsingToolUtils := 1) 
019119 

019120 {$1+) 

019121 {$SETC ToolUtilsIncludes := Usinglncludes} 

019122 {$SETC Usinglncludes := 1} 

019123 {$IFC UNDEFINED UsingQuickdraw} 

019124 {$1 $$Shell (PInterfaces) Quickdraw.p} 

019125 {$ENDC} 

019126 {$SETC Usinglncludes := ToolUtilsIncludes} 
019127 

019128 CONST 

019129 sysPatListID = 0; 

019130 iBeamCursor = 1 ; 

019131 crossCursor = 2 ; 

019132 plusCursor = 3; 

019133 watchCursor = 4 ; 
019134 

019135 TYPE 

019136 Int64Bit = RECORD 

019137 hiLong: LONGINT; 

019138 loLong: LONGINT; 

019139 END; 
019140 

019141 

019142 FUNCTION FixRatio (numer : INTEGER; denom: INTEGER): Fixed; 

019143 INLINE $A869; 

019144 FUNCTION FixMul(a: Fixed;b: Fixed): Fixed; 

019145 INLINE $A868; 

019146 FUNCTION FixRound{x: Fixed) : INTEGER; 

019147 INLINE $A86C; 

.019148 FUNCTION GetStrinq ( stringID : INTEGER): StrinqHandle; 
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019149 INLINE $A9BA; 

019150 FUNCTION Munger (h: Handle; of f set : LONGINT; ptrl : Ptr;lenl: LONGINT; ptr2 : Ptr; 

019151 len2: LONGINT): LONGINT; 

019152 INLINE $A9E0; 

019153 PROCEDURE PackBits (VAR srcPtr: Ptr;VAR dstPtr: Ptr; srcBytes : INTEGER); 

019154 INLINE $A8CF; 

019155 PROCEDURE UnpackBit s (VAR srcPtr: Ptr;VAR dstPtr: Ptr ; dstBytes : INTEGER); 

019156 INLINE $A8D0; 

019157 FUNCTION BitTst (bytePtr : Ptr;bitNum: LONGINT): BOOLEAN; 

019158 INLINE $A85D; 

019159 PROCEDURE BitSet (bytePtr : Ptr;bitNum: LONGINT); 

019160 INLINE $A85E; 

019161 PROCEDURE BitClr (bytePtr : Ptr;bitNum: LONGINT); 

019162 INLINE $A85F; 

019163 FUNCTION BitAnd ( valuel : LONGINT; value2 : LONGINT): LONGINT; 

019164 INLINE $A858; 

019165 FUNCTION BitOr (valuel : LONGINT; value2 : LONGINT): LONGINT; 

019166 INLINE $A85B; 

019167 FUNCTION BitXor (valuel : LONGINT; value2 : LONGINT): LONGINT; 

019168 INLINE $A859; 

019169 FUNCTION BitNot (value : LONGINT): LONGINT; 

019170 INLINE $A85A; 

019171 FUNCTION BitShift (value : LONGINT; count : INTEGER): LONGINT; 

019172 INLINE $A85C; 

019173 FUNCTION HiWord(x: LONGINT): INTEGER; 

019174 INLINE $A86A; 

019175 FUNCTION LoWord(x: LONGINT): INTEGER; 

019176 INLINE $A86B; 

019177 PROCEDURE LongMul(a: LONGINT;b: LONGINT;VAR result: Int64Bit); 

019178 INLINE $A867; 

019179 FUNCTION Get Icon (IconlD : INTEGER): Handle; 

019180 INLINE $A9BB; 

019181 PROCEDURE Plot Icon (theRect : Rect ; thelcon : Handle); 

019182 INLINE $A94B; 

019183 FUNCTION GetPattern (patternID : INTEGER): PatHandle; 

019184 INLINE $A9B8; 

019185 FUNCTION GetCursor (cursorlD : INTEGER): CursHandle; 

019186 INLINE $A9B9; 

019187 FUNCTION GetPicture (picturelD : INTEGER): PicHandle; 

019188 INLINE $A9BC; 

019189 FUNCTION SlopeFromAngle (angle: INTEGER): Fixed; 

019190 INLINE $A8BC; 

019191 FUNCTION AngleFromSlope (slope: Fixed): INTEGER; 

019192 INLINE $A8C4; 

019193 PROCEDURE SetString (theString : StringHandle; strNew : Str255); 

019194 INLINE $A907; 

019195 FUNCTION DeltaPoint (ptA : Point;ptB: Point): LONGINT; 

019196 INLINE $A94F; 

019197 FUNCTION NewString (theString: Str255): StringHandle; 

019198 INLINE $A906; 

019199 PROCEDURE ShieldCursor ( shieldRect : Rect ; of f setPt : Point); 

019200 INLINE $A855; 

019201 PROCEDURE Get IndString (VAR theString : Str255 ; strList ID : INTEGER; index : INTEGER); 

019202 PROCEDURE ScreenRes (VAR scrnHRes : INTEGER;VAR scrnVRes: INTEGER); 

019203 INLINE $225F, $32B8 , $0102 , $225F, $32B8 , $0104 ; 

019204 PROCEDURE Get IndPattern (VAR thePat : Pattern;patternListID : INTEGER; index : INTEGER), 
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019205 

019206 

019207 {$ENDC) { UsingToolUtils ) 

019208 

019209 {$IFC NOT Uslnglncludes) 

019210 END. 

019211 {$ENDC} 
019212 

019213 

019214 ### END OF FILE ToolUtils.p 

019215 
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019216 
019217 
019218 
019219 
019220 
019221 
019222 
019223 
019224 
019225 
019226 
019227 
019228 
019229 
019230 
019231 
019232 
019233 
019234 
019235 
019236 
019237 
019238 
019239 
019240 
019241 
019242 
019243 
019244 
019245 
019246 
019247 
019248 
019249 
019250 
019251 
019252 
019253 
019254 
019255 
019256 
019257 
019258 
019259 
019260 
019261 
019262 
019263 
019264 
019265 
019266 
019267 
019268 
019269 
019270 
019271 



######################################################1 
### FILE: Traps. p 
######################################################1 



Created: Saturday, December 7, 1991 at 12:50 PM 
Traps . p 
Pascal Interface to the Macintosh Libraries 

Copyright Apple Computer, Inc. 1986-1991 
All rights reserved 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 
{$ENDC) 

{$IFC NOT Usinglncludes) 
UNIT Traps; 
INTERFACE 

{$ENDC} 

{$IFC UNDEFINED UsingTraps} 
{$SETC UsingTraps := 1) 



; QuickDraw 

} 
_CopyMask = $A817; 
_MeasureText = $A837; 
_GetMaskTable = $A836; 
_CalcMask = $A838; 
_SeedFill = 5A839; 
_InitCursor = $A850; 
_SetCursor = $A851; 
_HideCursor = $A852; 
_ShowCursor = $A853; 
_ShieldCursor = $A855; 
_ObscureCursor — SA856 
_BitAnd = $A858; 
_BitXOr = $A859; 
_BitNot = $A85A; 
_BitOr = $A85B; 
_BitShift = $A85C; 
_BitTst = $A85D; 
_BitSet = $A85E; 
_BitClr = $A85F; 
_Random = $A8 61; 
_ForeColor = $A8 62; 
_BackColor = $A863; 



#######1 



###### 
###### 
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019272 


_ColorBit = $A864 






019273 


_GetPixel = $A865 






019274 


_StuffHex = $A866 






019275 


_LongMul = $A8 67; 




019276 


_FixMul = $A8 6 8; 




019277 


_FixRatio = $A869; 




019278 


_HiWord = $A8 6A; 




019279 


_LoWord = $A86B; 




019280 


_FixRound = $A8 6C 






019281 


_InitPort = 5A86D 






019282 


_InitGraf = $A86E 






019283 


_OpenPort = 5A8 6F 






019284 


_LocalToGlobal = $A870; 




019285 


_GlobalToLocal = $A871; 




019286 


_GrafDevice = $A872; 




019287 


_SetPort = $A873; 




019288 


_GetPort = $A874; 




019289 


_SetPBits = 5A875; 




019290 


_PortSize = 5A876; 




019291 


_MovePortTo = $A877; 




019292 


_SetOrigin = $A878; 




019293 


_SetClip = $A879; 




019294 


_GetClip = $A87A; 




019295 


_ClipRect = $A87B; 




019296 


_BackPat = $A87C; 




019297 


_ClosePort = $A87D; 




019298 


_AddPt = $A87E; 




019299 


_SubPt = $A87F; 




019300 


_SetPt = $A880; 




019301 


_EqualPt = $A881; 




019302 


_StdText = $A882; 




019303 


_DrawChar = $A883; 




019304 


_DrawString = $A884; 




019305 


_DrawText = 5A885; 




019306 


_TextWidth = $A886; 




019307 


_TextFont = 5A8 8 7 






019308 


_TextFace = $A888 






019309 


_TextMode = $A889 






019310 


_TextSize = 5A88A 






019311 


_GetFontInfo = $A88B; 




019312 


_StringWidth = $A88C; 




019313 


_CharWidth = $A88D; 




019314 


_SpaceExtra = $A88E; 




019315 


_StdLine = $A890; 




019316 


_LineTo = $A8 91; 




019317 


_Line = $A8 92; 




019318 


_MoveTo = $A8 93; 




019319 


_Move = $A8 94; 




019320 


_ShutDown = $A8 95; 




019321 


_HidePen = $A896; 




019322 


_ShowPen = $A8 97; 




019323 


_GetPenState = $A8 98; 




019324 


_SetPenState = $A899; 




019325 


_GetPen = $A8 9A; 




019326 


_PenSize = $A89B; 




019327 


_PenMode = $A8 9C; 
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019328 


_PenPat = $A8 9D; 




019329 


_PenNormal = $A8 9E; 




019330 


_Unimplemented = $A8 9F; 




019331 


_StdRect = $A8A0; 




019332 


_FrameRect = $A8A1; 




019333 


_PaintRect = $A8A2; 




019334 


_EraseRect = $A8A3; 




019335 


_InverRect = $A8A4; 




019336 


_FillRect = $A8A5; 




019337 


_EqualRect = $A8A6; 




019338 


_SetRect = $A8A7; 




019339 


_OffsetRect = $A8A8; 




019340 


_InsetRect = $A8A9; 




019341 


_SectRect = $A8AA; 




019342 


_UnionRect = $A8AB; 




019343 


_Pt2Rect = $A8AC; 




019344 


_PtInRect = $A8AD; 




019345 


_EmptyRect = $A8AE; 




019346 


_StdRRect = 5A8AF; 




019347 


_FrameRoundRect = $A8B0 




019348 


_PaintRoundRect = $A8B1 




019349 


_EraseRoundRect = $A8B2 




019350 


_InverRoundRect = $A8B3 




019351 


_FillRoundRect = $A8B4; 




019352 


_StdOval = $A8B6; 




019353 


_FrameOval = $A8B7; 




019354 


_PaintOval = $A8B8; 




019355 


_EraseOval = $A8B9; 




019356 


_InvertOval = $A8BA; 




019357 


_FillOval = $A8BB; 




019358 


_SlopeFromAngle = $A8BC 




019359 


_StdArc = $A8BD; 




019360 


_FrameArc = $A8BE; 




019361 


_PaintArc = $A8BF; 




019362 


_EraseArc = $A8C0; 




019363 


_InvertArc = $A8C1; 




019364 


_FillArc = $A8C2; 




019365 


_PtToAngle = $A8C3; 




019366 


_AngleFromSlope = $A8C4 




019367 


_StdPoly = $A8C5; 




019368 


_FramePoly = $A8C6; 




019369 


_PaintPoly = $A8C7; 




019370 


_ErasePoly = $A8C8; 




019371 


_InvertPoly = $A8C9; 




019372 


_FillPoly = $A8CA; 




019373 


_OpenPoly = $A8CB; 




019374 


_ClosePgon = $A8CC; 




019375 


_ClosePoly = $A8CC; 




019376 


_KillPoly = $A8CD; 




019377 


_OffsetPoly = $A8CE; 




019378 


_PackBits = 5A8CF; 




019379 


_UnpackBits = $A8D0; 




019380 


_StdRgn = $A8D1; 




019381 


_FrameRgn = $A8D2; 




019382 


_PaintRgn = 5A8D3; 




019383 


_EraseRgn = $A8D4; 
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019384 


_InverRgn = $A8D5; 




019385 


_FillRgn = $A8D6; 




019386 


_BitMapRgn = $A8D7; 




019387 


_BitMapToReglon = $A8D7; 




019388 


_NewRgn = $A8D8; 




019389 


_DisposRgn = $A8D9; 




019390 


_DisposeRgn = $A8D9; 




019391 


_OpenRgn = $A8DA; 




019392 


_CloseRgn = $A8DB; 




019393 


_CopyRgn = $A8DC; 




019394 


_SetEmptyRgn = $A8DD; 




019395 


_SetRecRgn = $A8DE; 




019396 


_RectRgn = $A8DF; 




019397 


_OfsetRgn = $A8E0; 




019398 


_OffsetRgn = $A8E0; 




019399 


_InsetRgn = $A8E1; 




019400 


_EmptyRgn = $A8E2; 




019401 


_EqualRgn = $A8E3; 




019402 


_SectRgn = $A8E4; 




019403 


_UnionRgn = $A8E5; 




019404 


_DiffRgn = $A8E6; 




019405 


_XOrRgn = $A8E7; 




019406 


_PtInRgn = $A8E8; 




019407 


_RectInRgn = $A8E9; 




019408 


_SetStdProcs = $A8EA; 




019409 


_StdBitS = $A8EB; 




019410 


_CopyBits = $A8EC; 




019411 


_StdTxMeas = $A8ED; 




019412 


_StdGetPic = $A8EE; 




019413 


_ScrollRect = $A8EF; 




019414 


_StdPutPic = $A8F0; 




019415 


_StdComment = $A8F1; 




019416 


_PicComment = $A8F2; 




019417 


_OpenPicture = $A8F3; 




019418 


_ClosePicture = $A8F4; 




019419 


_KillPicture = $A8F5; 




019420 


_DrawPicture = $A8F6; 




019421 


_Layout = $A8F7; 




019422 


_ScalePt = $A8F8; 




019423 


_MapPt = $A8F9; 




019424 


_MapRect = $A8FA; 




019425 


_MapRgn = $A8FB; 




019426 


_MapPoly = $A8FC; 




019427 






019428 


{ 




019429 


; Toolbox 




019430 






019431 


} 




019432 


_CountlResources = $A80D; 




019433 


_GetlIxResource = $A80E; 




019434 


_GetlIxType = $A80F; 




019435 


_UniquelID = $A810; 




019436 


_TESelView = $A811; 




019437 


_TEPlnScroll = $A812; 




019438 


_TEAutoView = $A813; 




019439 


_Pack8 = $A816; 





9/2/99 10:00 AM 




David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL Page 389 | 


019440 


_FixATan2 = $A818; 




019441 


_XMunger = $A819; 




019442 


_HOpenResFile = $A81A; 




019443 


_HCreateResFlle = $A81B; 




019444 


_CountlTypes = $A81C; 




019445 


_GetlResource = $A81F; 




019446 


_GetlNamedResource = $A820; 




019447 


_MaxSizeRsrc = $A821; 




019448 


_InsMenuItem = $A826; 




019449 


_HideDItem = $A827; 




019450 


_ShowDItem = $A82 8; 




019451 


_LayerDispatch = $A829; 




019452 


_Pack9 = $A82B; 




019453 


_PacklO = $A82C 






019454 


_Packll = $A82D 






019455 


_Packl2 = $A82E 






019456 


_Packl3 = $A82F 






019457 


_Packl4 = $A830 






019458 


_Packl5 = $A831 






019459 


_ScrnBitMap = $A833; 




019460 


_SetFScaleDisable = 5A834; 




019461 


_FontMetrics = $A835; 




019462 


_ZoomWindow = $A83A; 




019463 


_TrackBox = $A83B; 




019464 


_PrGlue = $A8FD; 




019465 


_InitFonts = $A8FE; 




019466 


_GetFName = 5A8FF; 




019467 


_GetFNum = $A900; 




019468 


_FMSwapFont = $A901; 




019469 


_RealFont = $A902; 




019470 


_SetFontLock = $A903; 




019471 


_DrawGrowIcon = $A904; 




019472 


_DragGrayRgn = $A905; 




019473 


_NewString = $A906; 




019474 


_SetString = $A907; 




019475 


_ShowHide = 5A908; 




019476 


_CalcVis = $A909; 




019477 


_CalcVBehlnd = $A90A; 




019478 


_ClipAbove = $A90B; 




019479 


_PaintOne = 5A90C; 




019480 


_PaintBehlnd = $A90D; 




019481 


_Save01d = $A90E; 




019482 


_DrawNew = $A90F; 




019483 


_GetWMgrPort = $A910; 




019484 


_CheckUpDate = $A911; 




019485 


_InitWindows = $A912; 




019486 


_NewWindow = $A913; 




019487 


_DisposWlndow = 5A914; 




019488 


_DisposeWindow = $A914; 




019489 


_ShowWindow = $A915 






019490 


_HideWindow = $A916 






019491 


_GetWRefCon = $A917 






019492 


_SetWRefCon = $A918 






019493 


_GetWTitle = $A919; 




019494 


_SetWTitle = $A91A; 




019495 


_MoveWindow ^ $^ 


\91B 







9/2/99 10:00 AM David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL Page 390 | 


019496 


_HillteWlndow = $A91C; 




019497 


_SizeWindow = $A91D; 




019498 


_TrackGoAway = $A91E; 




019499 


_SelectWindow = $A91F; 




019500 


_BringToFront = $A920; 




019501 


_SendBehlnd = $A921; 




019502 


_BeglnUpDate = $A922; 




019503 


_EndUpDate = $A92 3; 




019504 


_FrontWindow = $A924; 




019505 


_DragWindow = $A925; 




019506 


_DragTheRgn = $A926; 




019507 


_InvalRgn = $A927; 




019508 


_InvalRect = $A92 8; 




019509 


_ValidRgn = $A92 9; 




019510 


_ValidRect = $A92A; 




019511 


_GrowWindow = $A92B; 




019512 


_FindWindow = $A92C; 




019513 


_CloseWindow = $A92D; 




019514 


_SetWindowPic = $A92E; 




019515 


_GetWindowPic = $A92F; 




019516 


_InitMenus = $A930; 




019517 


_NewMenu = $A931; 




019518 


_DisposMenu = $A932; 




019519 


_DisposeMenu = $A932; 




019520 


_AppendMenu = $A933; 




019521 


_ClearMenuBar = $A934; 




019522 


_InsertMenu = $A935; 




019523 


_DeleteMenu = $A936; 




019524 


_DrawMenuBar = $A937; 




019525 


_InvalMenuBar = $A81D; 




019526 


_HiliteMenu = $A938; 




019527 


_EnableItem = $A939; 




019528 


_DisableItem = $A93A; 




019529 


_GetMenuBar = $A93B; 




019530 


_SetMenuBar = $A93C; 




019531 


_MenuSelect = $A93D; 




019532 


_MenuKey = $A93E; 




019533 


_GetItmIcon = $A93F; 




019534 


_SetItmIcon = $A940; 




019535 


_GetItmStyle = $A941; 




019536 


_SetItmStyle = $A942; 




019537 


_GetItmMark = $A9 4 3; 




019538 


_SetItmMark = $A9 4 4; 




019539 


_CheckItem = $A945; 




019540 


_GetItem = $A946; 




019541 


_SetItem = $A947; 




019542 


_CalcMenuSize = $A948; 




019543 


_GetMHandle = $A9 4 9; 




019544 


_SetMFlash = $A94A; 




019545 


_PlotIcon = $A94B; 




019546 


_FlashMenuBar = 5A94C; 




019547 


_AddResMenu = $A94D; 




019548 


_PinRect = $A94E; 




019549 


_DeltaPolnt = $A94F; 




019550 


_CountMItems = $A950; 




019551 


_InsertResMenu = $A951; 
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019552 


_DelMenuItem = $A952; 




019553 


_UpdtControl = $A953; 




019554 


_NewControl = $A954; 




019555 


_DisposControl = $A955; 




019556 


_DisposeControl = $A955; 




019557 


_KillControls = $A956; 




019558 


_ShowControl = $A957; 




019559 


_HideControl = $A958; 




019560 


_MoveControl = $A959; 




019561 


_GetCRefCon = $A95A; 




019562 


_SetCRefCon = $A95B; 




019563 


_SizeControl = $A95C; 




019564 


_HillteControl = $A95D; 




019565 


_GetCTitle = $A95E; 




019566 


_SetCTitle = $A95F; 




019567 


_GetCtlValue = $A960; 




019568 


_GetMinCtl = $A961; 




019569 


_GetMaxCtl = $A962; 




019570 


_SetCtlValue = $A963; 




019571 


_SetMinCtl = $A964; 




019572 


_SetMaxCtl = $A965; 




019573 


_TestControl = $A966; 




019574 


_DragControl = $A967; 




019575 


_TrackControl = $A968; 




019576 


_DrawControls = $A969; 




019577 


_GetCtlAction = $A96A; 




019578 


_SetCtlAction = $A96B; 




019579 


_FindControl = $A96C; 




019580 


_DrawlControl = $A96D; 




019581 


_Dequeue = $A9 6E; 




019582 


_Enqueue = $A9 6F; 




019583 


_WaitNextEvent = $A8 60; 




019584 


_GetNextEvent = $A970; 




019585 


_EventAvail = $A971; 




019586 


_GetMouse = 5A972; 




019587 


_StillDown = $A973; 




019588 


_Button = $A9 7 4; 




019589 


_TickCount = $A975; 




019590 


_GetKeys = $A976; 




019591 


_WaitMouseUp = $A977; 




019592 


_UpdtDialog = $A978; 




019593 


_CouldDialog = $A979; 




019594 


_FreeDialog = $A97A; 




019595 


_InitDialogs = $A97B; 




019596 


_GetNewDialog = $A97C; 




019597 


_NewDialog = $A97D; 




019598 


_SelIText = 5A97E; 




019599 


_IsDialogEvent = $A97F; 




019600 


_DialogSelect = $A980; 




019601 


_DrawDialog = $A981; 




019602 


_CloseDialog = $A982; 




019603 


_DisposDialog = $A983; 




019604 


_DisposeDialog = $A983; 




019605 


_FindDItem = $A984; 




019606 


_Alert = $A985; 




019607 


_StopAlert = $A986; 
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019608 


_NoteAlert = $A987; 




019609 


_CautionAlert = $A988; 




019610 


_CouldAlert = $A9 8 9; 




019611 


_FreeAlert = $A98A; 




019612 


_ParamText = $A98B; 




019613 


_ErrorSound = $A98C; 




019614 


_GetDItem = 5A98D 






019615 


_SetDItem = $A98E 






019616 


_SetIText = $A98F 






019617 


_GetIText = 5A990 






019618 


_ModalDialog = $A991; 




019619 


_DetachResource = $A9 92; 




019620 


_SetResPurge = $A993; 




019621 


_CurResFile = $A9 94; 




019622 


_InitResources = $A995; 




019623 


_RsrcZoneInit = $A996; 




019624 


_OpenResFile = $A997; 




019625 


_UseResFlle = $A998; 




019626 


_UpdateResFile = $A999; 




019627 


_CloseResFile = $A99A; 




019628 


_SetResLoad = $A99B; 




019629 


_CountResources = $A99C; 




019630 


_GetIndResource = $A99D; 




019631 


_CountTypes = $A99E; 




019632 


_GetIndType = $A99F; 




019633 


_GetResource = $A9A0; 




019634 


_GetNamedResource = $A9A1; 




019635 


_LoadResource = $A9A2 ; 




019636 


_ReleaseResource = $A9A3; 




019637 


_HomeResFile = $A9A4; 




019638 


_SizeRsrc = 5A9A5; 




019639 


_GetResAttrs = $A9A6; 




019640 


_SetResAttrs = $A9A7; 




019641 


_GetResInfo = $A9A8; 




019642 


_SetResInfo = $A9A9; 




019643 


_ChangedResource = $A9AA; 




019644 


_AddResource = $A9AB; 




019645 


_AddReference = $A9AC; 




019646 


_RmveResource = $A9AD; 




019647 


_RmveReference = $A9AE; 




019648 


_ResError = $A9AF; 




019649 


_WriteResource = $A9B0; 




019650 


_CreateResFile = $A9B1; 




019651 


_SystemEvent = $A9B2; 




019652 


_SystemClick = $A9B3; 




019653 


_SystemTask = $A9B4; 




019654 


_SystemMenu = $A9B5; 




019655 


_OpenDeskAcc = $A9B6; 




019656 


_CloseDeskAcc = $A9B7; 




019657 


_GetPattern = $A9B8; 




019658 


_GetCursor = $A9B9; 




019659 


_GetString = $A9BA; 




019660 


_GetIcon = $A9BB; 




019661 


_GetPicture = $A9BC; 




019662 


_GetNewWindow = $A9BD; 




019663 


_GetNewControl = 


?A9BE; 





9/2/99 10:00 AM 


David - Power Mac G3 (6G):MPW:Interfaces copy:PInterfaces;Mac Interfaces PASCAL Page 393 | 


019664 


_GetRMenu = $A9BF; 




019665 


_GetNewMBar = $A9C0; 




019666 


_UniqueID = $A9C1; 




019667 


_SysEdit = $A9C2; 




019668 


_OpenRFPerm = $A9C4; 




019669 


_RsrcMapEntry = $A9C5; 




019670 


_Secs2Date = $A9C6; 




019671 


_Date2Secs = $A9C7; 




019672 


_SysBeep = $A9C8; 




019673 


_SysError = 5A9C9; 




019674 


_PutIcon = $A9CA; 




019675 


_Munger = $A9E0; 




019676 


_HandToHand = $A9E1; 




019677 


_PtrToXHand = $A9E2; 




019678 


_PtrToHand = $A9E3; 




019679 


_HandAndHand = $A9E4; 




019680 


_InitPack = $A9E5; 




019681 


_InitAllPacks = $A9E6; 




019682 


_Pack0 = $A9E7 






019683 


_Packl = $A9E8 






019684 


_Pack2 = $A9E9 






019685 


_Pack3 = $A9EA 






019686 


_FP68K = $A9EB 






019687 


_Pack4 = $A9EB 






019688 


_Elems68K = $A9EC; 




019689 


_Pack5 = $A9EC; 




019690 


_Pack6 = $A9ED; 




019691 


_DECSTR68K = $A9EE; 




019692 


_Pack7 = $A9EE; 




019693 


_PtrAndHand = $A9EF; 




019694 


_LoadSeg = $A9F0; 




019695 


_UnLoadSeg = $A9F1; 




019696 


_Launch = $A9F2; 




019697 


_Chain = $A9F3; 




019698 


_ExitToShell = $A9F4; 




019699 


_GetAppParms = $A9F5; 




019700 


_GetResFileAttrs = $A9F6; 




019701 


_SetResFlleAttrs = $A9F7; 




019702 


_MethodDlspatch = $A9F8; 




019703 


_InfoScrap = $A9F9; 




019704 


_UnlodeScrap = $A9FA; 




019705 


_UnloadScrap = $A9FA; 




019706 


_LodeScrap = $A9FB; 




019707 


_LoadScrap = $A9FB; 




019708 


_ZeroScrap = $A9FC; 




019709 


_GetScrap = $A9FD; 




019710 


_PutScrap = 5A9FE; 




019711 


_Debugger = $A9FF; 




019712 


_IconDispatch = $ABC9; 




019713 


_DebugStr = 5ABFF; 




019714 






019715 


{ 




019716 


; Resource Manager 




019717 






019718 


} 




019719 


_ResourceDispa1 


;ch = $A822; 
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019720 
019721 
019722 
019723 
019724 
019725 
019726 
019727 
019728 
019729 
019730 
019731 
019732 
019733 
019734 
019735 
019736 
019737 
019738 
019739 
019740 
019741 
019742 
019743 
019744 
019745 
019746 
019747 
019748 
019749 
019750 
019751 
019752 
019753 
019754 
019755 
019756 
019757 
019758 
019759 
019760 
019761 
019762 
019763 
019764 
019765 
019766 
019767 
019768 
019769 
019770 
019771 
019772 
019773 
019774 
019775 



PPCToolbox 



} 
_PPC = $AODD; 



Alias Manager 



} 
_AliasDispatch = $A823; 



Component Manager 



} 
_ComponentDispatch ^ SA82A; 



; Device Manager {some shared by the File Manager) 

} 
_Open = $A000; 
_Close = $A001; 
_Read = $A002; 
_Write = $A003; 
.Control = $A004; 
.Status = $A005; 
_KillIO = $A006; 



File Manager 

} 
.GetVolInfo = $A007; 
.Create = $A008; 
.Delete = $A009; 
_OpenRF = $A0 0A; 
.Rename = $AOOB; 
.GetFilelnfo = $AOOC; 
_SetFileInfo = $AOOD; 
.Unmount Vol = $AOOE; 
_HUnmountVol = $A2 0E; 
_MountVol = 5A0 0F; 
.Allocate = $A010; 

$A011; 

$A012; 



_GetEOF 
_SetEOF 
_FlushVol = $A013; 
_GetVol = $A014; 
_SetVol = $A015; 
_FInitQueue = $A016; 
_Eject = $A017; 
_GetFPos = $A018; 
_SetFilLock = $A041; 
_RstFilLock = $A042; 
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019776 
019777 
019778 
019779 
019780 
019781 
019782 
019783 
019784 
019785 
019786 
019787 
019788 
019789 
019790 
019791 
019792 
019793 
019794 
019795 
019796 
019797 
019798 
019799 
019800 
019801 
019802 
019803 
019804 
019805 
019806 
019807 
019808 
019809 
019810 
019811 
019812 
019813 
019814 
019815 
019816 
019817 
019818 
019819 
019820 
019821 
019822 
019823 
019824 
019825 
019826 
019827 
019828 
019829 
019830 
019831 



_SetFilType = $A043; 
_SetFPos = $A044; 
_FlushFile = $A045; 
_HOpen = $A200; 
_HGetVInfo = $A207; 



_HCreate = 
_HDelete = 



$A208; 
$A20 9; 



_HOpenRF = $A2 0A; 
_HRename = $A20B; 
_HGetFileInfo = $A20C; 
_HSetFileInfo = 5A20D; 
_AllocContig = $A210; 
_HSetVol = $A215; 
_HGetVol = $A214; 
_HSetFLock = $A241; 
_HRstFLock = $A242; 



dispatch trap for remaining File Manager (and Desktop Manager) calls 



_FSDispatch = $A060; 
_HFSDispatch = $A260; 

{ 

; High level FSSpec calls 

} 
_HighLevelFSDispatch = $AA52; 



Memory Manager 



} 
_InitZone 
_GetZone = 
_SetZone = 
_FreeMem ^ 
_MaxMem = 
_NewPtr = 
_NewPtrSys 
_NewPtrCle 
_NewPtrSys 
_DisposPtr 
_DisposePt 
_SetPtrSiz 
_GetPtrSiz 
_NewHandle 
_NewHandle 
_DisposHan 
_DisposeHa 
_SetHandle 
_GetHandle 
_HandleZon 
_ReallocHa 
_RecoverHa 



$A019; 

$A11A; 

$A01B; 

$A01C; 
$A11D; 
$A11E; 

= $A51E; 
ar = $A31E; 
Clear = $A71E 

= $A01F; 
r = $A01F 
e = $A020 
$A021 
$A12 2; 
Clear = $A322 
die = $A02 3; 
ndle = $A023 
Size = $A024 
Size = $A025 
e = $A126; 
ndle = $A027; 
ndle = $A12 8; 
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019832 


_HLock = $A02 9; 






019833 


_HUnlock = $A02A; 






019834 


_EmptyHandle = $A02B; 






019835 


_InitApplZone = $A02C; 






019836 


_SetApplLimit = $A02D; 






019837 


_BlockMove = $A02E; 






019838 


_MemoryDispatch = $A05C; 






019839 


_MemoryDispatchAOResult = $A15C; 






019840 


_DeferUserFn = $A08F; 






019841 


_DebugUtil = $A08D; 






019842 








019843 


{ 






019844 


; Event Manager 






019845 








019846 


} 






019847 


_PostEvent = $A02F; 






019848 


_PPostEvent = $A12F; 






019849 


_OSEvent Avail = $A030; 






019850 


_GetOSEvent = $A031; 






019851 


_FlushEvents = $A032; 






019852 


_VInstall = $A033; 






019853 


_VRemove = $A034; 






019854 


_OffLine = $A035; 






019855 


_MoreMasters = $A036; 






019856 


_WriteParam = $A038; 






019857 


_ReadDateTime = $A03 9; 






019858 


_SetDateTime = $A03A; 






019859 


_Delay = $A03B; 






019860 


_CmpString = $A03C; 






019861 


_DrvrInstall = $A03D; 






019862 


_DrvrRemove = $A03E; 






019863 


_InitUtil = $A03F; 






019864 


_ResrvMem = $A040; 






019865 


_GetTrapAddress = $A146; 






019866 


_SetTrapAddress = $A047; 






019867 


_GetOSTrapAddress = $A34 6; 






019868 


_SetOSTrapAddress = $A247; 






019869 


_GetToolTrapAddress = $A746; 






019870 


_SetToolTrapAddress = $A647; 






019871 


_GetToolBoxTrapAddress = $A746; 






019872 


_SetToolBoxTrapAddress = $A647; 






019873 


_PtrZone = $A148; 






019874 


_HPurge = $A04 9; 






019875 


_HNoPurge = 5A0 4A; 






019876 


_SetGrowZone = $A04B; 






019877 


_CompactMem = $A04C; 






019878 


_PurgeMem = 5A0 4D; 






019879 


_AddDrive = $A0 4E; 






019880 


_RDrvrInstall = $A04F; 






019881 


_LwrString = $A056; 






019882 


_UprString = $A054; 






019883 


_SetApplBase = $A057; 






019884 


_HWPriv = $A198; 






019885 








019886 


{ 






019887 


; New names for (mostly) new flavors 


of old LwrStrinq trap (redone <13>) 


J 
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019888 


} 




019889 


_LowerText = $A056; 




019890 


_StrlpText = $A256; 




019891 


_UpperText = $A456; 




019892 


_StrlpUpperText = $A656; 




019893 






019894 


{ 




019895 


; Temporary Memory routines 




019896 






019897 


} 




019898 


_OSDlspatch = $A88F; 




019899 


_RelString = $A050; 




019900 


_ReadXPRam = $A051; 




019901 


_WriteXPRam = $A052; 




019902 


_InsTime = $A058; 




019903 


_InsXTime = $A458; 




019904 


_RmvTime = $A059; 




019905 


_PrimeTime = $A05A; 




019906 


_PowerOff = 5A05B; 




019907 


_MaxBlock = 5A0 61; 




019908 


_PurgeSpace = $A162; 




019909 


_MaxApplZone = $A063; 




019910 


_MoveHHi = $A064; 




019911 


_StackSpace = $A065; 




019912 


_NewEmptyHandle = $A16 6; 




019913 


_HSetRBit = 5A0 67; 




019914 


_HClrRBit = $A0 68; 




019915 


_HGetState = $A069; 




019916 


_HSetState = $A0 6A; 




019917 


_InitFS = $A06C; 




019918 


_InitEvents = $A06D; 




019919 


_StrlpAddress = $A055; 




019920 


_Translate24To32 = $A091; 




019921 


_SetAppBase = $A057; 




019922 


_SwapMMUMode = $A05D; 




019923 


_SlotVInstall = $A06F; 




019924 


_SlotVRemove = $A070; 




019925 


_AttachVBL = $A071; 




019926 


_DoVBLTask = $A072; 




019927 


_SIntInstall = $A075; 




019928 


_SIntRemove = $A076; 




019929 


_CountADBs = $A077; 




019930 


_GetIndADB = $A07 8; 




019931 


_GetADBInfo = $A079; 




019932 


_SetADBInfo = $A07A; 




019933 


_ADBReInit = $A07B; 




019934 


_ADBOp = $A0 7C; 




019935 


_GetDefaultStartup = $A07D; 




019936 


_SetDefaultStartup = $A07E; 




019937 


_InternalWait = $A07F; 




019938 


_RGetResource = $A80C; 




019939 


_GetVideoDefault = $A080; 




019940 


_SetVideoDefault = $A081; 




019941 


_DTInstall = $A082; 




019942 


_SetOSDefault = $A083; 




019943 


_GetOSDefault = $A084; 
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019944 


_IOPInfoAccess = $A086; 




019945 


_IOPMsgRequest = $A087; 




019946 


_IOPMoveData = $AQ88; 




019947 






019948 


{ 




019949 


; Power Manager 




019950 






019951 


} 




019952 


_PMgrOp = $A0 8 5; 




019953 


_IdleUpdate = $A285; 




019954 


_IdleState = $A485; 




019955 


_SerlalPower = $A685; 




019956 


_Sleep = $A08A; 




019957 


_SleepQInstall = $A28A; 




019958 


_SlpQInstall = $A28A; 




019959 


_SleepQRemove = $A48A; 




019960 


_SlpQRemove = $A4 8A; 




019961 






019962 


{ 




019963 


; Comm. Toolbox 




019964 






019965 


} 




019966 


_CommToolboxDispatch = $AQ8B; 




019967 


_SysEnvirons = $A090; 




019968 






019969 


{ 




019970 


; Egret Manager 




019971 






019972 


} 




019973 


_EgretDispatch = $A092; 




019974 


_Gestalt = $A1AD; 




019975 


_NewGestalt = $A3AD; 




019976 


_ReplaceGestalt = $A5AD; 




019977 


_GetGestaltProcPtr = $A7AD; 




019978 


_InitProcMenu = $A808; 




019979 


_GetItemCmd = $A84E; 




019980 


_SetItemCmd = $A84F; 




019981 


_PopUpMenuSelect = $A80B; 




019982 


_KeyTrans = $A9C3; 




019983 






019984 


{ 




019985 


; TextEdit 




019986 






019987 


} 




019988 


_TEGetText = $A9CB; 




019989 


_TEInit = $A9CC; 




019990 


_TEDispose = $A9CD; 




019991 


_TextBox = $A9CE; 




019992 


_TESetText = $A9CF; 




019993 


_TECalText = $A9D0; 




019994 


_TESetSelect = $A9D1; 




019995 


_TENew = $A9D2; 




019996 


_TEUpdate = $A9D3; 




019997 


_TECllck = $A9D4; 




019998 


_TECopy = $A9D5; 




019999 


_TECut = $A9D6; 
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020000 


_TEDelete = $A9D7; 




020001 


_TEActivate = $A9D8; 




020002 


_TEDeactlvate = $A9D9; 




020003 


_TEIdle = $A9DA; 




020004 


_TEPaste = $A9DB; 




020005 


_TEKey = $A9DC; 




020006 


_TEScroll = 5A9DD; 




020007 


_TEInsert = $A9DE; 




020008 


_TESetJust = $A9DF; 




020009 


_TEGetOffset = $A83C; 




020010 


_TEDlspatch = $A83D; 




020011 


_TEStyleNew = $A83E; 




020012 






020013 


{ 




020014 


; Color Quickdraw 




020015 






020016 


} 




020017 


_OpenCPort = $AAOO; 




020018 


_InitCPort = $AA01; 




020019 


_CloseCPort = $A87D; 




020020 


_NewPixMap = $AA03; 




020021 


_DisposPixMap = 5AA04; 




020022 


_DisposePlxMap = $AA04; 




020023 


_CopyPixMap = $AA05; 




020024 


_SetPortPix = $AA06; 




020025 


_NewPixPat = $AA07; 




020026 


_DisposPixPat = 5AA08; 




020027 


_DisposePlxPat = $AA08; 




020028 


_CopyPixPat = $AA09; 




020029 


_PenPixPat = $AAOA; 




020030 


_BackPixPat = $AAOB; 




020031 


_GetPixPat = $AAOC; 




020032 


_MakeRGBPat = $AAOD; 




020033 


_FillCRect = $AAOE; 




020034 


_FillCOval = $AAOF; 




020035 


_FillCRoundRect = $AA10; 




020036 


_FillCArc = $AA11; 




020037 


_FillCRgn = $AA12; 




020038 


_FillCPoly = $AA13; 




020039 


_RGBForeColor = $AA14; 




020040 


_RGBBackColor = $AA15; 




020041 


_SetCPixel = $AA16; 




020042 


_GetCPixel = $AA17; 




020043 


_GetCTable = $AA18; 




020044 


_GetForeColor = $AA19; 




020045 


_GetBackColor = $AA1A; 




020046 


_GetCCursor = $AA1B; 




020047 


_SetCCursor = $AA1C; 




020048 


_AllocCursor = $AA1D; 




020049 


_GetCIcon = $AA1E; 




020050 


_PlotCICon = $AA1F; 




020051 


_OpenCPicture = $AA20; 




020052 


_OpColor = $AA21; 




020053 


_HiliteColor = $AA22; 




020054 


_CharExtra = $AA23; 




020055 


_DisposCTable = $AA24; 
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020056 _DisposeCTable = $AA24; 

020057 _DisposCIcon = $AA25; 

020058 _DisposeCIcon = $AA25; 

020059 _DisposCCursor = $AA26; 

020060 _DisposeCCursor = $AA26; 

020061 _SeedCFill = $AA50; 

020062 _CalcCMask = $AA4F; 

020063 _CopyDeepMask = $AA51; 
020064 

020065 { 

020066 ; Routines for video devices 
020067 

020068 } 

020069 _GetMaxDevice = $AA27; 

020070 _GetCTSeed = $AA28; 

020071 _GetDeviceList = $AA29; 

020072 _GetMainDevice = $AA2A; 

020073 _GetNextDevice = $AA2B; 

020074 _TestDeviceAttribute = $AA2C; 

020075 _SetDeviceAttribute = $AA2D; 

020076 _InitGDevice = $AA2E; 

020077 _NewGDevice = $AA2F; 

020078 _DisposGDevice = $AA30; 

020079 _DisposeGDevice = $AA30; 

020080 _SetGDevice = $AA31; 

020081 _GetGDevice = $AA32; 

020082 _DeviceLoop = $ABCA; 
020083 

020084 { 

020085 ; Color Manager 
020086 

020087 } 

020088 _Color2Index = $AA33; 

020089 _Index2Color = $AA34; 

020090 _InvertColor = $AA35; 

020091 _RealColor = $AA36; 

020092 _GetSubTable = $AA37; 

020093 _UpdatePixMap = $AA38; 
020094 

020095 { 

020096 ; Dialog Manager 
020097 

020098 } 

020099 _NewCDialog = $AA4B; 

020100 _MakeITable = $AA39; 

020101 _AddSearch = $AA3A; 
02 0102 _AddComp = $AA3B; 

020103 _SetClientID = $AA3C; 

020104 _ProtectEntry = $AA3D; 

020105 _ReserveEntry = $AA3E; 

020106 _SetEntries = $AA3F; 

020107 _QDError = $AA40; 

020108 _SaveEntries = $AA49; 

020109 _RestoreEntries = $AA4A; 

020110 _DelSearch = $AA4C; 
.020111 _DelComp = $AA4D; 
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020112 _SetStdCProcs = $AA4E; 

020113 _StdOpcodeProc = $ABF8; 
020114 

020115 { 

020116 ; added to Toolbox for color 
020117 

020118 } 

020119 _SetWinColor = $AA41; 

020120 _GetAuxWin = $AA42; 

020121 _SetCtlColor = $AA43; 
02 0122 _GetAuxCtl = $AA4 4; 

020123 _NewCWindow = $AA45; 

020124 _GetNewCWlndow = $AA46; 

020125 _SetDeskCPat = $AA47; 

020126 _GetCWMgrPort = $AA48; 

020127 _GetCVariant = $A809; 

020128 _GetWVarlant = $A80A; 
020129 

020130 { 

020131 ; added to Menu Manager for color 
020132 

020133 } 

020134 _DelMCEntries = $AA60; 

020135 _GetMCInfo = $AA61; 

020136 _SetMCInfo = $AA62; 

020137 _DispMCInfo = $AA63; 

020138 _GetMCEntry = $AA64; 

020139 _SetMCEntries = $AA65; 
020140 

020141 { 

020142 ; Menu Manager 
020143 

020144 } 

020145 _MenuChoice = $AA66; 
020146 

020147 { 

020148 ; Dialog Manager? 
020149 

020150 } 

020151 _ModalDialogMenuSetup = $AA67; 

020152 _DialogDlspatch = $AA68; 
020153 

020154 { 

020155 ; Font Manager 
020156 

020157 } 

020158 _SetFractEnable = $A814; 

020159 _FontDispatch = 5A854; 
020160 

020161 { 

020162 ; Palette Manager 
020163 

020164 } 

020165 _InitPalettes = $AA90; 

020166 _NewPalette = $AA91; 

020167 _GetNewPalette = $AA92; 
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020168 _DisposePalette = $AA93; 

020169 _ActivatePalette = $AA94; 

020170 _SetPalette = $AA95; 

020171 _NSetPalette = $AA95; 

020172 _GetPalette = $AA96; 

020173 _PmForeColor = $AA97; 

020174 _PmBackColor = $AA98; 

020175 _AnimateEntry = $AA99; 

020176 _AnimatePalette = $AA9A; 

020177 _GetEntryColor = $AA9B; 

020178 _SetEntryColor = $AA9C; 
02017 9 _GetEntryUsage = $AA9D; 

020180 _SetEntryUsage = $AA9E; 

020181 _CTab2Palette = $AA9F; 

020182 _Palette2CTab = $AAAO; 

020183 _CopyPalette = $AAA1; 

020184 _PaletteDlspatch = $AAA2; 
020185 

020186 { 

020187 ; Sound Manager 
020188 

020189 } 

020190 _SoundDispatch = $A800; 

020191 _SndDisposeChannel = $A801; 

020192 _SndAddModifier = $A802; 

020193 _SndDoCommand = $A803; 

020194 _SndDoImmediate = $A804; 

020195 _SndPlay = $A805; 

020196 _SndControl = $A806; 

020197 _SndNewChannel = $A807; 

020198 _SlotManager = $A06E; 

020199 _ScrlptUtll = $A8B5; 

020200 _SCSIDispatch = $A815; 

020201 _Long2Fix = $A83F; 

020202 _Fix2Long = $A840; 

020203 _Fix2Frac = 5A841; 

020204 _Frac2Fix = $A842; 

020205 _Fix2X = $A843; 

020206 _X2Fix = $A844; 

020207 _Frac2X = $A845; 

020208 _X2Frac = $A846; 

020209 _FracCos = $A847; 

020210 _FracSin = $A848; 

020211 _FracSqrt = $A849; 

020212 _FracMul = $A84A; 

020213 _FracDiv = $A84B; 

020214 _FixDiv = $A84D; 

020215 _NMInstall = $A05E; 

020216 _NMRemove = $A05F; 
020217 

020218 { 

020219 ; All QDOffscreen Routines go through one trap with a selector 
020220 

020221 } 

020222 _QDExtensions = $AB1D; 
^20223 
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020224 { 

020225 ; UserDelay 
020226 

020227 } 

020228 _UserDelay = $A84C; 

020229 _InitDogCow = $A89F; 

020230 _EnableDogCow = $A89F; 

020231 _DisableDogCow = $A89F; 

020232 _Moof = $A89F; 

020233 _HFSPinaforeDispatch = $AA52; 
020234 

020235 

020236 

020237 

020238 

020239 {$ENDC) { UslngTraps } 

020240 

020241 {$IFC NOT Uslnglncludes ) 

020242 END. 

020243 {$ENDC} 
020244 

020245 

020246 ### END OF FILE Traps. p 

020247 
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##############################################################1 
### FILE: Types. p 
##############################################################1 



Created: Saturday, January 5, 1991 at 9:27 AM 
Types .p 
Pascal Interface to the Macintosh Libraries 



020248 
020249 
020250 
020251 
020252 
020253 
020254 
020255 
020256 
020257 
020258 
020259 
020260 
020261 
020262 
020263 
020264 
020265 
020266 
020267 
020268 
020269 
020270 
020271 
020272 
020273 
020274 
020275 
020276 
020277 
020278 
020279 
020280 
020281 
020282 
020283 
020284 
020285 
020286 
020287 
020288 
020289 
020290 
020291 
020292 
020293 
020294 
020295 
020296 
020297 
020298 
020299 
020300 
020301 
020302 
020303 Fixed = LONGINT; 



###### 
###### 



Copyright Apple Computer, Inc. 1985-1991 
All rights reserved. 



{$IFC UNDEFINED Usinglncludes } 
{$SETC Usinglncludes := 0} 
{$ENDC) 

{$IFC NOT Usinglncludes) 

UNIT Types; 

INTERFACE 
{$ENDC} 

{$IFC UNDEFINED UsingTypes) 
{$SETC UsingTypes := 1) 

{$IFC UNDEFINED SystemSevenOrLater ) 
{$SETC SystemSevenOrLater := FALSE) 
{$ENDC) 

{$IFC UNDEFINED SystemSixOrLater ) 

{$SETC SystemSixOrLater := SystemSevenOrLater) 

{$ENDC) 



CONST 
noErr ^ 0; 



TYPE 

Byte = . .255; 
SignedByte = - 128.. 127; 
Ptr = ^SignedByte; 
Handle = -^Ptr; 

{$IFC UNDEFINED qMacApp) 
IntegerPtr = -^INTEGER; 
LonglntPtr = -^LONGINT; 
{$ENDC) 



{All is well) 



{ unsigned byte for fontmgr ) 
{ any byte in memory ) 

{ pointer to a master pointer ) 



{ fixed point arithmatic type ) 
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020304 FlxedPtr = ^Flxed; 

020305 Fract = LONGINT; 

020306 FractPtr = ^Fract; 

020307 {$IFC OPTION (MC68881) } 

020308 Extended80 = ARRAY [0..4] OF INTEGER; 

020309 {$ELSEC) 

020310 Extended80 = EXTENDED; 

020311 {$ENDC} 
020312 

020313 VHSelect = (v,h); 

020314 

020315 

020316 ProcPtr ^ Ptr; { pointer to a procedure } 

020317 

020318 StringPtr = ^Str255; 

020319 StringHandle = ^StringPtr; 
020320 

020321 Str255 = Strlng[255]; { maximum string size ) 

020322 

020323 Str63 = String[63]; 

020324 

020325 Str32 = String[32]; 

020326 

020327 Str31 = String[31]; 

020328 

020329 Str27 = String[27]; 

020330 

020331 Strl5 = String[15]; 

020332 

020333 

020334 

020335 OSErr = INTEGER; { error code } 

020336 OSType = PACKED ARRAY [1..4] OF CHAR; 

020337 OSTypePtr = ^OSType; 

020338 ResType = PACKED ARRAY [1..4] OF CHAR; 

020339 ResTypePtr = -^ResType; 

020340 ScriptCode = INTEGER; 

020341 LangCode = INTEGER; 
020342 

020343 

020344 PointPtr = ^Point; 

020345 Point = RECORD 

020346 CASE INTEGER OF 

020347 1: 

020348 (v: INTEGER; {vertical coordinate) 

020349 h: INTEGER); {liorizontal coordinate) 

020350 2: 

020351 (vh: ARRAY [VHSelect ] OF INTEGER); 

020352 END; 
020353 

020354 RectPtr = '■Rect; 

020355 Rect = RECORD 

020356 CASE INTEGER OF 

020357 1: 

020358 (top: INTEGER; 
.020359 left: INTEGER; 
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020360 bottom: INTEGER; 

020361 right: INTEGER); 

020362 2: 

020363 (topLeft: Point; 

020364 botRight: Point); 

020365 END; 
020366 
020367 

020368 PROCEDURE Debugger; 

020369 INLINE $A9FF; 

020370 PROCEDURE DebugStr (aStr : Str255) ; 

020371 INLINE $ABFF; 

020372 PROCEDURE SysBreak; 

020373 INLINE $303C, $FE16, $A9C9; 

020374 PROCEDURE SysBreakStr (debugStr : Str255); 

020375 INLINE $303C, $FE15, $A9C9 ; 

020376 PROCEDURE SysBreakFunc (debugFunc : Str255); 

020377 INLINE $303C, $FE14 , $A9C9 ; 
020378 

020379 

020380 

020381 

020382 {$ENDC) { UsingTypes } 

020383 

020384 {$IFC NOT Usinglncludes ) 

020385 END. 

020386 {$ENDC) 
020387 

020388 

020389 ### END OF FILE Types. p 

020390 
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020391 






020392 


##################################################################### 




020393 


### FILE: Video. p 




020394 


##################################################################### 




020395 






020396 


{ 




020397 


Created: Sunday, January 6, 1991 at 11:26 PM 




020398 


Video .p 




020399 


Pascal Interface to the Macintosh Libraries 




020400 






020401 


Copyright Apple Computer, Inc. 1986-1990 




020402 


All rights reserved 




020403 


) 




020404 






020405 






020406 


{$IFC UNDEFINED Usinglncludes } 




020407 


{$SETC Usinglncludes := 0} 




020408 


{$ENDC} 




020409 






020410 


{$IFC NOT Usinglncludes} 




020411 


UNIT Video; 




020412 


INTERFACE 




020413 


{$ENDC) 




020414 






020415 


{$IFC UNDEFINED UsingVideo} 




020416 


{$SETC UsingVideo := 1) 




020417 






020418 


{$1+) 




020419 


{$SETC Videolncludes := Usinglncludes} 




020420 


{$SETC Usinglncludes := 1} 




020421 


{$IFC UNDEFINED UsingQuickdraw} 




020422 


{$1 $$ Shell (P Interfaces) Quickdraw.p} 




020423 


{$ENDC} 




020424 


{$SETC Usinglncludes := Videolncludes} 




020425 






020426 


CONST 




020427 


mBaseOffset = 1; {Id of mBaseOf f set . ) 




020428 


mRowBytes = 2; {Video sResource parameter Id's } 




020429 


mBounds ^ 3; {Video sResource parameter Id's } 




020430 


mVersion ^ 4; {Video sResource parameter Id's } 




020431 


mHRes = 5; {Video sResource parameter Id's } 




020432 


mVRes = 6; {Video sResource parameter Id's } 




020433 


mPixelType = 7; {Video sResource parameter Id's } 




020434 


mPixelSize = 8; {Video sResource parameter Id's } 




020435 


mCmpCount = 9; {Video sResource parameter Id's } 




020436 


mCmpSize = 10; {Video sResource parameter Id's } 




020437 


mPlaneBytes ^ 11; {Video sResource parameter Id's } 




020438 


mVertRefRate ^ 14; {Video sResource parameter Id's } 




020439 


mVidParams = 1; {Video parameter block id.} 




020440 


mTable = 2; {Offset to the table.} 




020441 


mPageCnt ^ 3; {Number of pages} 




020442 


mDevType ^ 4; {Device Type} 




020443 






020444 


oneBitMode = 128; {Id of OneBitMode Parameter list.} 




020445 


twoBitMode = 129; {Id of TwoBitMode Parameter list.} 




020446 


fourBitMode = 130; {Id of FourBitMode Parameter list.} 
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020447 


eightBitMode = 131; 


{Id of EightBitMode Parameter list.) 




020448 


sixteenBitMode = 132; 


{Id of SixteenBitMode Parameter list.} 




020449 


thirtyTwoBitMode = 133; 


{Id of ThirtyTwoBitMode Parameter list.) 




020450 








020451 


firstVidMode = 12 8; 


{The new, better way to do the above. } 




020452 


secondVidMode = 129; 


{ QuickDraw only supports six video } 




020453 


thirdVidMode = 130; 


{ at this time. } 




020454 


fourthVidMode = 131; 






020455 


fifthVidMode = 132; 






020456 


sixthVidMode = 133; 






020457 








020458 


spGammaDir = 64; 






020459 


spVidNamesDir = 65; 






020460 








020461 


{ Control Codes ) 






020462 


cscReset = 0; 






020463 


cscKlllIO = 1; 






020464 


cscSetMode = 2; 






020465 


cscSetEntries = 3; 






020466 


cscSetGamma ^ 4; 






020467 


cscGrayPage = 5; 






020468 


cscGrayScreen = 5; 






020469 


cscSetGray = 6; 






020470 


cscSetlnterrupt ^ 7; 






020471 


cscDirectSetEntrles = 8; 






020472 


cscSetDefaultMode = 9; 






020473 








020474 


{ Status Codes ) 






020475 


cscGetMode = 2; 






020476 


cscGetEntries = 3; 






020477 


cscGetPageCnt = 4; 






020478 


cscGetPages = 4; 


{ This is what C&D 2 calls it. ) 




020479 


cscGetPageBase = 5; 






020480 


cscGetBaseAddr = 5; 


{ This is what CSD 2 calls it. ) 




020481 


cscGetGray = 6; 






020482 


cscGetlnterrupt ^ 7; 






020483 


cscGetGamma = 8; 






020484 


cscGetDefaultMode = 9; 






020485 








020486 


TYPE 






020487 


VPBlockPtr = "VPBlock; 






020488 


VPBlock = RECORD 






020489 


vpBaseOf fset : LONGINT; 


{Offset to page zero of video RAM {From minorBaseOS) .} 




020490 


vpRowBytes: INTEGER; 


{Width of each row of video memory.) 




020491 


vpBounds : Rect; 


{BoundsRect for the video display (gives dimensions) .} 




020492 


vpVersion: INTEGER; 


{PixeiMap version number.} 




020493 


vpPackType : INTEGER; 






020494 


vpPackSize: LONGINT; 






020495 


vpHRes: LONGINT; 


{Horizontal resolution of the device (pixels per inch) .) 




020496 


vpVRes: LONGINT; 


{Vertical resolution of the device (pixels per inch) . } 




020497 


vpPixelType: INTEGER; 


{Defines the pixel type.) 




020498 


vpPixelSlze: INTEGER; 


{Number of bits in pixel.} 




020499 


vpCmpCount : INTEGER; 


{Number of components in pixel.) 




020500 


vpCmpSize: INTEGER; 


{Number of bits per component} 




020501 


vpPlaneBytes : LONGINT; 


{Offset from one plane to the next.) 




020502 


END; 
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020503 










020504 


VDEntRecPtr = ''VDEntryRecord; 






020505 


VDEntryRecord = RECORD 








020506 


csTable: Ptr; 


{ (long) 


pointer to color table entry=value, r, g, b : INTEGER} 




020507 


END; 








020508 










020509 


{ Farm block for SetGray control ca 


11 ) 




020510 


VDGrayPtr = ^VDGrayRecord, 








020511 


VDGrayRecord = RECORD 








020512 


csMode: BOOLEAN; 


{Same as GDDevType value {O^mono, l^color) } 




020513 


END; 








020514 










020515 


{ Farm block for SetEntries control 


call } 




020516 


VDSetEntryPtr = ^VDSetEntryRecord; 






020517 


VDSetEntryRecord = RECORD 








020518 


csTable: '^ColorSpec; 


{Pointer to an array of color specs) 




020519 


csStart: INTEGER; 


{Which 


spec in array to start with, or -1} 




020520 


csCount : INTEGER; 


{Number 


of color spec entries to set} 




020521 


END; 








020522 










020523 


{ Farm block for SetGarama 


control call } 




020524 


VDGamRecPtr = ''VDGammaRecord; 






020525 


VDGammaRecord = RECORD 








020526 


csGTable: Ftr; 


{pointe 


r to gamma table} 




020527 


END; 








020528 










020529 


VDFglnfoPtr = ''VDPagelnf o, 








020530 


VDPagelnfo = RECORD 








020531 


csMode: INTEGER; 


{ (word) 


mode within device} 




020532 


csData: LONGINT; 


{ (long) 


data supplied by driver} 




020533 


csPage: INTEGER; 


{ (word) 


page to switch in} 




020534 


csBaseAddr: Ptr; 


{ (long) 


base address of page} 




020535 


END; 








020536 










020537 


VDSzInfoPtr = ^VDSizelnfo, 








020538 


VDSizelnfo = RECORD 








020539 


csHSize: INTEGER; 


{ (word) 


desired/returned h size} 




020540 


csHFos: INTEGER; 


{ (word) 


desired/returned h position} 




020541 


csVSize: INTEGER; 


{ (word) 


desired/returned v size} 




020542 


CsVFos: INTEGER; 


{ (word) 


desired/returned v position} 




020543 


END; 








020544 










020545 


VDSettingsFtr = ^VDSettings; 






020546 


VDSettings = RECORD 








020547 


csParamCnt: INTEGER; 


{ (word) 


number of params } 




020548 


csBrightMax: INTEGER; 


{ (word) 


max brightness} 




020549 


csBrightDef: INTEGER; 


{ (word) 


default brightness} 




020550 


csBrightVal: INTEGER; 


{ (word) 


current brightness} 




020551 


csCntrstMax: INTEGER; 


{ (word) 


max contrast} 




020552 


csCntrstDef: INTEGER; 


{ (word) 


default contrast} 




020553 


csCntrstVal: INTEGER; 


{ (word) 


current contrast} 




020554 


csTintMax: INTEGER; 


{ (word) 


max tint} 




020555 


csTintDef: INTEGER; 


{ (word) 


default tint} 




020556 


csTintVal: INTEGER; 


{ (word) 


current tint} 




020557 


csHueMax: INTEGER; 


{ (word) 


max hue } 




020558 


csHueDef: INTEGER; 


{ (word) 


default hue} 
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020559 
020560 
020561 
020562 
020563 
020564 
020565 
020566 
020567 
020568 
020569 
020570 
020571 
020572 
020573 
020574 
020575 
020576 
020577 
020578 



csHueVal: INTEGER; 



csHorizDef : 
csHorizVal : 
csHorizMax : 
csVertDef ; 
csVertVal ; 
csVertMax : 
END; 



INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 



(word) current hue} 

(word) default horizontal} 

(word) current horizontal} 

(word) max horizontal} 

(word) default vertical) 

(word) current vertical) 

(word) max vertical) 



{$ENDC} 



{ UsingVideo ) 



{$IFC NOT Usinglncludes) 
END. 

{$ENDC} 



### END OF FILE Vldeo.p 



' N 
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020579 

020580 ##################################################################### 

020581 ### FILE: Videolntf.p 

020582 ##################################################################### 
020583 

020584 { 

020585 File: Videolntf.p 
020586 

020587 As of MPW 3.0, interface files were reorganized to more closely 

020588 match "Inside Macintosh" reference books and be more consistant 

020589 from language to language. 
020590 

020591 Interfaces for the Videolntf are now found in Video. p. 

020592 This file, which includes Video. p, is provided for compatibility 

020593 with old sources. 
020594 

020595 Pascal Interface to the Macintosh Libraries 

020596 Copyright Apple Computer, Inc. 1988 

020597 All Rights Reserved 

020598 ) 
020599 

020600 {$IFC UNDEFINED Usinglncludes } 

020601 {$SETC Usinglncludes := 0} 

020602 {$ENDC) 
020603 

020604 {$IFC NOT Usinglncludes) 

020605 UNIT Videolntf; 

020606 INTERFACE 

020607 {$ENDC) 
020608 

020609 {$IFC UNDEFINED UsingVideoInt f } 

020610 {$SETC UsingVideoIntf := 1) 
020611 

020612 {$1+) 

020613 {$SETC Videolntf Includes := Usinglncludes} 

020614 {$SETC Usinglncludes := 1} 

020615 {$IFC UNDEFINED UsingVideo) 

020616 {$1 5$Shell (PInterfaces) Video. p) 

020617 {$ENDC) 

020618 {$SETC Usinglncludes := Videolntf Includes } 
020619 

020620 {$ENDC) { UsingVideoIntf ) 
020621 

020622 {$IFC NOT Usinglncludes) 

020623 END. 

020624 {$ENDC} 
020625 

020626 

020627 ### END OF FILE Videolntf.p 

020628 
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020629 






020630 


##################################################################### 




020631 


### FILE: Windows. p 




020632 


##################################################################### 




020633 






020634 


{ 




020635 


Created: Saturday, December 15, 1990 at 8:08 PM 




020636 


Windows .p 




020637 


Pascal Interface to the Macintosh Libraries 




020638 






020639 


Copyright Apple Computer, Inc. 1985-1990 




020640 


All rights reserved. 




020641 


) 




020642 






020643 






020644 


{$IFC UNDEFINED Usinglncludes } 




020645 


{$SETC Usinglncludes := 0} 




020646 


{$ENDC} 




020647 






020648 


{$IFC NOT Usinglncludes) 




020649 


UNIT Windows; 




020650 


INTERFACE 




020651 


{$ENDC) 




020652 






020653 


{$IFC UNDEFINED UsingWindows ) 




020654 


{$SETC UsingWindows := 1) 




020655 






020656 


{$1+) 




020657 


{$SETC Windowslncludes := Usinglncludes) 




020658 


{$SETC Usinglncludes := 1} 




020659 


{$IFC UNDEFINED UsingQuickdraw) 




020660 


{$1 $$ Shell (P Interfaces) Quickdraw.p) 




020661 


{$ENDC) 




020662 


{$IFC UNDEFINED UsingEvents) 




020663 


{$1 $$ Shell (P Interfaces) Event s.p) 




020664 


{$ENDC) 




020665 


{$IFC UNDEFINED UsingControls } 




020666 


{$1 5$ Shell (P Interfaces) Controls .p) 




020667 


{$ENDC) 




020668 


{$SETC Usinglncludes := Windowslncludes) 




020669 






020670 


CONST 




020671 


documentProc ^ 0; 




020672 


dBoxProc = 1; 




020673 


plainDBox ^ 2; 




020674 


altDBoxProc = 3; 




020675 


noGrowDocProc ^ 4; 




020676 


movableDBoxProc ^ 5; 




020677 


zoomDocProc ^ 8 ; 




020678 


zoomNoGrow = 12; 




020679 


rDocProc ^ 16; 




020680 


dialogKind = 2; 




020681 


userKind = 8; 




020682 






020683 


{FindWindow Result Codes) 




020684 


inDesk = 0; 


J 



' N 
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020685 InMenuBar = 1; 

020686 inSysWindow = 2; 

020687 inContent = 3; 

020688 inDrag = 4; 

020689 InGrow = 5; 

020690 InGoAway = 6; 

020691 InZoomln = 7; 

020692 inZoomOut = 8; 
020693 

020694 {window messages} 

020695 wDraw = ; 

020696 wHit = 1; 

020697 wCalcRgns = 2 ; 

020698 wNew = 3; 

020699 wDispose = 4; 

020700 wGrow = 5; 

020701 wDrawGIcon = 6; 
020702 

020703 {defProc hit test codes) 

020704 wNoHit = 0; 

020705 wInContent = 1; 

020706 wInDrag = 2; 

020707 wInGrow = 3; 

020708 wInGoAway = 4; 

020709 wInZoomIn = 5; 

020710 wInZoomOut = 6; 

020711 deskPatID = 16; 
020712 

020713 {Window Part Identifiers which correlate color table entries with window elements} 

020714 wContentColor = 0; 

020715 wFrameColor = 1 ; 

020716 wTextColor = 2; 

020717 wHiliteColor = 3; 

020718 wTitleBarColor = 4; 
020719 

020720 TYPE 

020721 WindowPeek = -^WindowRecord; 

020722 WindowRecord = RECORD 

020723 port: GrafPort; 

020724 windowKind: INTEGER; 

020725 visible: BOOLEAN; 

020726 hilited: BOOLEAN; 

020727 goAwayFlag: BOOLEAN; 

020728 spareFlag: BOOLEAN; 
02072 9 strucRgn: RgnHandle; 

020730 contRgn: RgnHandle; 

020731 updateRgn: RgnHandle; 

020732 windowDefProc: Handle; 

020733 dataHandle: Handle; 

020734 titleHandle: StringHandle; 

020735 titleWidth: INTEGER; 

020736 controlList: ControlHandle; 

020737 nextWindow: WindowPeek; 

020738 windowPic: PicHandle; 

020739 refCon: LONGINT; 
.020740 END; 
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020741 
020742 
020743 
020744 
020745 
020746 
020747 
020748 
020749 
020750 
020751 
020752 
020753 
020754 
020755 
020756 
020757 
020758 
020759 
020760 
020761 
020762 
020763 
020764 
020765 
020766 
020767 
020768 
020769 
020770 
020771 
020772 
020773 
020774 
020775 
020776 
020777 
020778 
020779 
020780 
020781 
020782 
020783 
020784 
020785 
020786 
020787 
020788 
020789 
020790 
020791 
020792 
020793 
020794 
020795 
020796 



CWindowPeek ^ ^CWindowRecord; 
CWindowRecord = RECORD 

port: CGrafPort; 

windowKind: INTEGER; 

visible: BOOLEAN; 

hiiited: BOOLEAN; 

goAwayFlag: BOOLEAN; 

spareFiag: BOOLEAN; 

strucRgn: RgnHandle; 

contRgn: RgnHandle; 

updateRgn: RgnHandle; 

windowDef Proc : Handle; 

dataHandle: Handle; 

titleHandle: StringHandle; 

titleWidth: INTEGER; 

controlList: ControlHandle; 

nextWindow: CWindowPeek; 

windowPic: PicHandle; 

refCon: LONGINT; 

END; 

WStateDataPtr = ^WStateData; 
WStateDataHandle = ^WStateDataPtr; 
WStateData = RECORD 



userState: Rect; 
stdState: Rect; 
END; 

AuxWinPtr ^ ^AuxWinRec; 
AuxWinHandle ^ ^AuxWinPtr; 
AuxWinRec = RECORD 

awNext : AuxWinHandle; 

awOwner: WindowPtr; 

awCTable: CTabHandle; 

dialogCItera : Handle; 

awFlags: LONGINT; 

awReserved: CTabHandle; 

awRefCon: LONGINT; 

END; 



{user state) 
{standard state) 



{handle to next AuxWinRec} 

{ptr to window ) 

{color table for this window) 

{handle to dialog manager structures) 

{reserved for expansion) 

{reserved for expansion) 

{user Constant) 



WCTabPtr = ^WinCTab; 
WCTabHandle = ^WCTabPtr; 
WinCTab = RECORD 

wCSeed: LONGINT; 

wCReserved: INTEGER; 

ctSize: INTEGER; 

ctTable: ARRAY [0..4] OF ColorSpec; 

END; 



{ reserved} 
{ reserved} 
{usually 4 for windows) 



PROCEDURE InitWindows; 

INLINE $A912; 
PROCEDURE GetWMgrPort (VAR wPort : Graf Ptr) ; 

INLINE $A910; 
FUNCTION NewWindow(wStorage: Ptr ; boundsRect : Rect;title: Str255; visible : BOOLEAN; 
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020797 theProc: INTEGER; behind : WindowPtr; goAwayFlag : BOOLEAN; ref Con : LONGINT): WindowPtr; 

020798 INLINE $A913; 

020799 FUNCTION GetNewWlndow (windowID : INTEGER; wStorage : Ptr;behlnd: WindowPtr): WindowPtr; 

020800 INLINE $A9BD; 

020801 PROCEDURE CloseWindow{theWindow: WindowPtr); 

020802 INLINE $A92D; 

020803 PROCEDURE DisposeWindow (theWindow: WindowPtr); 

020804 INLINE $A914; 

020805 PROCEDURE GetWTitle (theWindow: WindowPtr; VAR title: Str255); 

020806 INLINE $A919; 

020807 PROCEDURE SelectWindow (theWindow : WindowPtr); 

020808 INLINE $A91F; 

020809 PROCEDURE HideWindow (theWindow: WindowPtr); 

020810 INLINE $A916; 

020811 PROCEDURE ShowWindow (theWindow : WindowPtr); 

020812 INLINE $A915; 

020813 PROCEDURE ShowHide (theWindow : WindowPtr; showFlag : BOOLEAN); 

020814 INLINE $A908; 

020815 PROCEDURE HiliteWindow (theWindow : WindowPtr; fHilite : BOOLEAN); 

020816 INLINE $A91C; 

020817 PROCEDURE BringToFront (theWindow : WindowPtr); 

020818 INLINE $A920; 

020819 PROCEDURE SendBehind (theWindow : WindowPtr ; behindWindow : WindowPtr); 

020820 INLINE $A921; 

020821 FUNCTION FrontWindow: WindowPtr; 

020822 INLINE $A924; 

020823 PROCEDURE DrawGrowIcon (theWindow : WindowPtr); 

020824 INLINE $A904; 

020825 PROCEDURE MoveWindow (theWindow: WindowPtr; hGlobal : INTEGER; vGlobal : INTEGER; 

020826 front: BOOLEAN); 

020827 INLINE $A91B; 

020828 PROCEDURE SizeWindow (theWindow : WindowPtr;w: INTEGER;h: INTEGER; f Update : BOOLEAN); 

020829 INLINE $A91D; 

020830 PROCEDURE ZoomWindow (theWindow : WindowPtr ; partCode : INTEGER; front : BOOLEAN); 

020831 INLINE $A83A; 

020832 PROCEDURE InvalRect (badRect : Rect); 

020833 INLINE $A928; 

020834 PROCEDURE InvalRgn (badRgn : RgnHandle); 

020835 INLINE $A927; 

020836 PROCEDURE ValidRect (goodRect : Rect); 

020837 INLINE $A92A; 

020838 PROCEDURE ValidRgn (goodRgn: RgnHandle); 

020839 INLINE $A929; 

020840 PROCEDURE BeginUpdate (theWindow : WindowPtr); 

020841 INLINE $A922; 

020842 PROCEDURE EndUpdate (theWindow : WindowPtr); 

020843 INLINE $A923; 

020844 PROCEDURE SetWRef Con (theWindow : WindowPtr; data : LONGINT); 

020845 INLINE $A918; 

020846 FUNCTION GetWRefCon (theWindow: WindowPtr): LONGINT; 

020847 INLINE $A917; 

020848 PROCEDURE SetWindowPic (theWindow : WindowPtr;pic : PicHandle) ; 

020849 INLINE $A92E; 

020850 FUNCTION GetWindowPic (theWindow : WindowPtr): PicHandle; 

020851 INLINE $A92F; 

.020852 FUNCTION CheckUpdate (VAR theEvent : EventRecord) : BOOLEAN; 
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020853 INLINE $A911; 

020854 PROCEDURE CllpAbove (window : WindowPeek) ; 

020855 INLINE $A90B; 

020856 PROCEDURE SaveOld (window : WindowPeek); 

020857 INLINE $A90E; 

020858 PROCEDURE DrawNew (window : WindowPeek; update : BOOLEAN); 

020859 INLINE $A90F; 

020860 PROCEDURE PaintOne (window : WindowPeek; clobberedRgn : RgnHandle) ; 

020861 INLINE $A90C; 

020862 PROCEDURE PaintBehind ( startWindow : WindowPeek; clobberedRgn : RgnHandle); 

020863 INLINE $A90D; 

020864 PROCEDURE CalcVis (window : WindowPeek); 

020865 INLINE $A909; 

020866 PROCEDURE CalcVisBehind ( startWindow : WindowPeek; clobberedRgn : RgnHandle); 

020867 INLINE $A90A; 

020868 FUNCTION GrowWindow(theWindow: WindowPtr; startPt : Point;bBox: Rect): LONGINT; 

020869 INLINE $A92B; 

020870 FUNCTION FindWindow (thePoint : Point;VAR theWindow: WindowPtr): INTEGER; 

020871 INLINE $A92C; 

020872 FUNCTION PinRect (theRect : Rect;thePt: Point): LONGINT; 

020873 INLINE $A94E; 

020874 FUNCTION DragGrayRgn (theRgn : RgnHandle; startPt : Point ; boundsRect : Rect; 

020875 slopRect: Rect;axis: INTEGER; actionProc : ProcPtr) : LONGINT; 

020876 INLINE $A905; 

020877 FUNCTION TrackBox (theWindow : WindowPtr; thePt : Point ; partCode : INTEGER): BOOLEAN; 

020878 INLINE $A83B; 

020879 PROCEDURE GetCWMgrPort (VAR wMgrCPort : CGrafPtr); 

020880 INLINE $AA48; 

020881 PROCEDURE SetWinColor (theWindow : WindowPtr; newColorlable : WCTabHandle) ; 

020882 INLINE $AA41; 

020883 FUNCTION GetAuxWin (theWindow: WindowPtr; VAR awHndl : AuxWinHandle) : BOOLEAN; 

020884 INLINE $AA42; 

020885 PROCEDURE SetDeskCPat (deskPixPat : PixPatHandle) ; 

020886 INLINE $AA47; 

020887 FUNCTION NewCWindow(wStorage: Ptr; boundsRect : Rect;title: Str255; visible : BOOLEAN; 

020888 procID: INTEGER; behind: WindowPtr; goAwayFlag : BOOLEAN; ref Con : LONGINT): WindowPtr; 

020889 INLINE $AA45; 

020890 FUNCTION GetNewCWindow (windowID : INTEGER; wStorage : Ptr;behind: WindowPtr): WindowPtr; 

020891 INLINE $AA46; 

020892 FUNCTION GetWVariant (theWindow : WindowPtr): INTEGER; 

020893 INLINE $A80A; 

020894 FUNCTION GetGrayRgn: RgnHandle; 

020895 INLINE $2EB8,$09EE; 

020896 PROCEDURE SetWTitle (theWindow : WindowPtr; title : Str255); 

020897 INLINE $A91A; 

020898 FUNCTION TrackGoAway (theWindow: WindowPtr; thePt : Point): BOOLEAN; 

020899 INLINE $A91E; 

020900 PROCEDURE DragWindow (theWindow : WindowPtr ; startPt : Point ; boundsRect : Rect); 

020901 INLINE $A925; 
020902 

020903 

020904 {$ENDC) { UsingWindows } 

020905 

020906 {$IFC NOT Usinglncludes ) 

020907 END. 
.020908 {$ENDC) 
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020909 
020910 
020911 ### END OF FILE Windows. p 



